Tapas77789
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
[code]
#define A = (Defined UNICODE) ? "W" : "A"
const
GWL_STYLE = -16;
BS_MULTILINE = $2000;
function GetWindowLong(Wnd: HWnd; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
procedure InitializeWizard();
var
Baton: TNewButton;
begin
Baton:=TNewButton.Create(WizardForm);
with Baton do begin
Parent:=WizardForm.SelectDirPage;
SetBounds(ScaleX(50),ScaleY(150),ScaleX(150),ScaleY(50));
Caption:='sdfds'+#10+#13+'uiuiui';
End;
SetWindowLong(Baton.Handle,GWL_STYLE,(BS_MULTILINE or GetWindowLong(Baton.Handle, GWL_STYLE)));
end;
|
Всего записей: 70 | Зарегистр. 26-05-2008 | Отправлено: 11:45 02-03-2014 | Исправлено: Tapas77789, 11:46 02-03-2014 |
|
