Tdk161 Valued Contributor


Joined: 08 Feb 2005 Posts: 399 Location: ITALY
|
Posted: Wed Dec 15, 2010 11:54 pm Post subject: resize bitmap [SOLVED] |
|
|
Hi to all,
i would like resize a bitmap onfly moving 2 trakbar
1 for height
1 for width
mantain bitmap position centered on dialog (if possible)
but at now I don't work and I don't understand why.....maybe I' to
much stupid
There is my code:
| Code: | %%IcoA = @IniRead(Generale,IcoA,40)
%%IcoL = @IniRead(Generale,Icol,40)
DIALOG CREATE,Configurazione,-1,0,259,226,Ontop,Smallcap Child
DIALOG ADD,STYLE,STYLE2,Verdana,10,B,,
DIALOG ADD,STYLE,STYLE1,Times New Roman,,,,
DIALOG ADD,GROUP,GROUP1,6,33,174,176,Dimensione Icona,,STYLE1
DIALOG ADD,BITMAP,ICONA,83,104,32,32,#f.bmp,,STRETCH
DIALOG ADD,BITBTN,Salva,161,223,32,32,#Conferma.BMP
DIALOG ADD,BITBTN,Chiudi,190,223,32,32,#Annulla.bmp
DIALOG ADD,TRACKBAR,Larghezza,185,20,180,32,10|152|1,%%IcoL,Larghezza Icona,CLICK,LEFT,HAND
DIALOG ADD,TRACKBAR,Altezza,6,-2,35,175,10|152|1,%%IcoA,Altezza Icona,VERTICAL,CLICK,HAND
DIALOG ADD,TEXT,Tx,28,215,,,X: %%IcoL,,STYLE2
DIALOG ADD,TEXT,Ty,52,216,,,Y: %%IcoA,,STYLE2
DIALOG SHOW
:cLoop
Wait Event
%%eC = c@Event()
Goto %%eC
:cSalvaButton
IniFile Write,Generale,IcoA,%%IcoA
IniFile Write,Generale,IcoL,%%IcoL
Goto cClose
:cAltezzaClick
%%IcoA = @Abs(@DlgText(Altezza))
Dialog SetPos,ICONA,24,36,%%Icoa,%%Icol
Dialog Set,Ty,Y: %%IcoA
Goto cLoop
:cLarghezzaClick
%%IcoL = @DlgText(Larghezza)
Dialog SetPos,ICONA,24,36,%%Icoa,%%Icol
Dialog Set,Tx,X: %%IcoL
Goto cLoop
:cClose
:cChiudiButton
Dialog Close
While @Event()
Wend
Exit |
Someone can help me please?
Many tnx in advance
Last edited by Tdk161 on Mon Dec 20, 2010 11:51 pm; edited 1 time in total |
|