[Setup]
AppName=Alpha+Trackbar
AppVerName=Alpha+Trackbar
DefaultDirName={pf}\Alpha+Trackbar
[Code]
var
AlphaTrackBar: TTrackBar;
function SetLayeredWindowAttributes(hwnd: HWND; crKey: TColor; bAlpha: BYTE; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;external 'SetWindowLongA@user32.dll stdcall';
procedure AlphaTrackBarChange(Sender: TObject);
begin
SetWindowLong(WizardForm.Handle, (-20), GetWindowLong(WizardForm.Handle, (-20)) or $80000);
SetLayeredWindowAttributes(WizardForm.Handle, 0, AlphaTrackBar.Position, 2);
end;
Procedure InitializeWizard();
begin
AlphaTrackBar:=TTrackBar.Create(WizardForm);
AlphaTrackBar.Name:='AlphaTrackBar';
AlphaTrackBar.Parent:=WizardForm;
AlphaTrackBar.SetBounds(ScaleX(0),ScaleY(327),ScaleX(238),ScaleY(29));
AlphaTrackBar.Max:=255;
AlphaTrackBar.Position:=255;
AlphaTrackBar.OnChange:=@AlphaTrackBarChange;
end; |
