[habib2302]

StongCool,

Ссылка битая на скриншот. »

http://krinkels.org/threads/iswin7.1946/

Код:

[Setup]
DisableWelcomePage=true
InfoBeforeFile=файл с описанием.rtf

[ShadeUa]

Здраствуйте. Я не так давно завадал вопрос но на него так не кто не ответил , а сам не мог розобраться. Как мне затекстурировать кнопку info через батву, и как сдлеать что при нажатии на кнопку открівалось не окно а картинка ?
http://forum.oszone.net/attachment.p...1&d=1421577903

[kotyarko@fb]

Как мне затекстурировать кнопку info через батву »

Так же, как и текстурировали остальные.

и как сдлеать что при нажатии на кнопку открівалось не окно а картинка ? »

Создать функцию\процедуру, рисующую эту картинку и вызывать её через свойство OnClick вашей кнопки.

[ShadeUa]

Еще один вопрос , а что ето за ошибка?
http://forum.oszone.net/attachment.p...1&d=1421585491

[kotyarko@fb]

Еще один вопрос , а что ето за ошибка? »

У вас два раза подряд создаётся InfBtn, это во-первых.
Во-вторых, InfBtn должен быть объявлен как HWND.
В-третьих, последний заданный параметр функции BtnCreate - это:

Код:

//IsCheckBtn - если True, то будет создана кнопка (аналог CheckBox) имеющая включенное и выключенное состояние
//             если False, то создастся обычная кнопка

По логике (если кнопка просто должна открывать изображение) должен быть выставлен False, а у вас True.

[ShadeUa]

У вас два раза подряд создаётся InfBtn, это во-первых. Во-вторых, InfBtn должен быть объявлен как HWND. В-третьих, последний заданный параметр функции BtnCreate - это: Код: Выделить весь код //IsCheckBtn - если True, то будет создана кнопка (аналог CheckBox) имеющая включенное и выключенное состояние // если False, то создастся обычная кнопка По логике (если кнопка просто должна открывать изображение) должен быть выставлен False, а у вас True. »

Я все исправил , но тоже самое , я то не програмист просто любитель , вот каникулы начались решил опять етим позаниматься но нечего не полуаеться
Я сделал все как вы говорили , и обьявил его
([code]
var
hCancelBtn, hNextBtn, hBackBtn, hDirBrowseBtn, hGroupBrowseBtn, InfBtn (*, TButtonOnClick *):HWND;
ButtonFont: TFont ; ) но нечего не изменилось

[Dodakaedr]

и как сдлеать что при нажатии на кнопку открівалось не окно а картинка ? »

Такой пример не пойдет?

Скрытый текст

Код:

[Setup]
AppName=My Programm
AppVersion=1.1
DefaultDirName={pf}\My Programm
OutputDir=.

[Files]
DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernSmallImage-IS.bmp"; Flags: dontcopy solidbreak

[Code]
const
  GCL_STYLE = -26;
  CS_NOCLOSE = $200;

var
  BitmapImage1: TBitmapImage;
  NewButton1, NewButton2: TButton;
  Form: TSetupForm;

function GetClassLong(Wnd: HWnd; Index: Integer): Longint; external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetClassLongA@user32.dll stdcall';

procedure ButtonOnClick(Sender: TObject);
begin
   Form.Close;
   WizardForm.Enabled:=true;
end;

procedure ButtonOnClick2(Sender: TObject);
begin
   Form.Show;
   WizardForm.Enabled:=false;
end;

procedure RedesignWizardForm;
begin
  Form:= CreateCustomForm;
  Form.ClientWidth := ScaleX(150);
  Form.ClientHeight := ScaleY(100);
  Form.Caption := 'Инфо';
  Form.Center;
  Form.FormStyle := fsStayOnTop;
  SetClassLong(Form.Handle, GCL_STYLE, GetClassLong(Form.Handle, GCL_STYLE) or CS_NOCLOSE);

  NewButton2 := TButton.Create(Form);
  NewButton2.Parent := Form;
  NewButton2.Width := ScaleX(55);
  NewButton2.Height := ScaleY(23);
  NewButton2.Left := Form.ClientWidth - ScaleY(57);
  NewButton2.Top := Form.ClientHeight - ScaleY(25);
  NewButton2.Caption := 'OK';
  NewButton2.OnClick := @ButtonOnClick;

  BitmapImage1 := TBitmapImage.Create(Form);
  with BitmapImage1 do
  begin
    Parent := Form;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(50);
    Height := ScaleY(50);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  NewButton1 := TButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(48);
    Top := ScaleY(328);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Инфо';
    OnClick := @ButtonOnClick2;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[ShadeUa]

Такой пример не пойдет? »

к сожилению нет , я вам сейчас покажу что я хочу сделать

[ShadeUa]

Такой пример не пойдет? »

Вот так хотелося б сделать .Весь скрипт перелапошил и непонял как ето сделать
http://forum.oszone.net/attachment.p...1&d=1421605464
http://forum.oszone.net/attachment.p...1&d=1421605464

[sergey3695]

ShadeUa,

Скрытый текст

Код:

function InitializeSetup:boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  if not FileExists(ExpandConstant('{tmp}\1.png')) then ExtractTemporaryFile('1.png');
  Result:=True;
end;

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

const
  GWL_WNDPROC = -4;
  WM_NCLBUTTONDOWN = $00A1;
type
  LPARAM = Integer;
  WPARAM = Integer;
  LRESULT = Integer;
  TFNWndProc = Integer;
var
  OldWindowProc: Longint;

function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProc{#A}@user32.dll stdcall';

function WindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
begin
  case Msg of
    WM_NCLBUTTONDOWN:
    begin
      Msg := 0;
      WizardForm.Close;
    end;
  end;
  Result := CallWindowProc(OldWindowProc, hWnd, Msg, wParam, lParam);
end;

procedure CloseForm(Sender: TObject);
begin
  WizardForm.Close;
end;

procedure InitializeWizard;
begin
  CreateFormFromImage(wizardform.Handle,ExpandConstant('{tmp}\1.png'));
  ImgApplyChanges(WizardForm.Handle);
  OldWindowProc := SetWindowLong(WizardForm.Handle, GWL_WNDPROC, CallbackAddr('WindowProc'));
end;

procedure DeinitializeSetup();
begin
  SetWindowlong(WizardForm.Handle, GWL_WNDPROC, OldWindowProc);
  gdipShutdown;
end;

на кнопку, на форму, картинку. удачи