INNO TROUBLESHOOT - Questions Here

[Logrim]

One little question, please help me in you can

i have a botva2 button, this:

InstallGame1Btn:=BtnCreate(WizardForm.Handle,55,84 ,15,15,'AutorunMainBtn.png',0,False);
BtnSetEvent(InstallGame1Btn,BtnClickEventID,CallBa ckAddr('InstallGame1BtnClick'));
BtnSetEvent(InstallGame1Btn,BtnMouseEnterEventID,C allBackAddr('BtnEnter'));
BtnSetCursor(InstallGame1Btn,GetSysCursorHandle(32 649));

and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:

InstallGame1Label:=TLabel.Create(WizardForm);
InstallGame1Label.Parent:=WizardForm;
InstallGame1Label.SetBounds(75,84,0,0);
InstallGame1Label.Font.Name:='Verdana';
InstallGame1Label.Font.Style:=[fsBold];
InstallGame1Label.Font.Color:=$C0C0C0; //Light Gray;
InstallGame1Label.Font.Size:=9;
InstallGame1Label.Caption:=ExpandConstant('{#Game1 Name}');
InstallGame1Label.OnMouseDown:=@WFMouseDown;
InstallGame1LabelS:=TLabel.Create(WizardForm);
with InstallGame1LabelS do begin
Parent:=WizardForm;
SetBounds(75+1,84+1,0,0);
Font.Name:='Verdana';
Font.Style:=[fsBold];
Font.Color:=clBlack;
Font.Size:=9;
SendToBack;
Caption:=ExpandConstant('{#Game1Name}');
OnMouseDown:=@WFMouseDown;
end;

Thanks

Edit: anyone know how to make a label color semitransparent?

[Razor12911]

Originally Posted by Logrim

One little question, please help me in you can

i have a botva2 button, this:



and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:


Thanks

Edit: anyone know how to make a label color semitransparent?

these botva2 buttons are longintegers, looks at the functions and the variables, they are longint and longit doesn't have left, nor top and stuff like that but you can get those values by doing this:
var
Pos: TRect;
begin
BtnGetPosition(InstallGame1Btn,Pos.Left,Pos.Top,Po s.Right,Pos.Bottom);
//Right is Width and and Bottom is Height
SetBounds((Pos.Left + Pos.Right) + 10,0,0,0);
end;

[Razor12911]

Originally Posted by Logrim

One little question, please help me in you can

i have a botva2 button, this:



and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:


Thanks

Edit: anyone know how to make a label color semitransparent?

semitransparent font color? I don't think it is possible under VCL well maybe it is but is possible in FMX where color is written in this manner $AARRGGBB where the AA is the alpha/transparent color level but in VCL/Inno Ssetup it is something like this $AABBGGRR where AA is normal when it is < 60 but when it is > 60 it is black.