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 |