call CwGetBitmapInfo path, stem ("stem" è il nome di una variabile stem in cui vengono immagazzinati i risultati. Questa variabile ha due campi da riempire.) path (stringa) Il percorso al file bitmap. stem.width (numerico) L'ampiezza corrente (in pixel) della bitmap così com'è immagazzinata nel file. stem.height (numerico) L'altezza corrente (in pixel) della bitmap così com'è immagazzinata nel file.
/* Restore a bitmap to its correct aspect ratio.*/ bm = CwGetSelectedObject() t = CwGetProperty(bm, "tool type") if t \= "Bitmap" then do say "Must select a bitmap." exit end bt = CwGetTool(bm) bmp = CwGetProperty(bt,"image") call CwGetBitmapInfo bmp, 'bminfo' r = bminfo.width / bminfo.height call CwGetPosition bm, bmdim nheight = bmdim.width/r call CwSetPosition bm, bmdim.x, bmdim.y, bmdim.width, , nheight, bmdim.rotation, bmdim.xshear
![]() Funzioni per NOME |
![]() Indice |
![]() Funzioni per SCOPO |