vint56
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=.
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[Code]
function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';
procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0)
end;
procedure InitializeWizard;
begin
with WizardForm do begin
BorderStyle:=bsNone;
Bevel.Hide;
InnerNotebook.Hide;
OuterNotebook.Hide;
Center;
end;
with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
AutoSize:=False;
Top:=7;
Left:=0;
Width:=WizardForm.Width;
Alignment:=taCenter;
Transparent:=True;
Font.Color:=$000000;
Font.Size:= 9;
Font.Style:=[fsBold];
Caption:=WizardForm.Caption; //это что текст у нас по середине
OnMouseDown:=@LabelOnMouseDown;
end;
//Создаем лейбл на всю форму, чтоб ее можно было двигать
with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
AutoSize:=False;
Top:=0;
Left:=0;
Width:=WizardForm.Width;
Height:= WizardForm.Height
Transparent:=True;
OnMouseDown:=@LabelOnMouseDown;
end;
end; |
Всего записей: 1277 | Зарегистр. 07-10-2008 | Отправлено: 18:07 28-08-2011 | Исправлено: vint56, 18:10 28-08-2011 |
|
