Вопрос Как добавить описание под картинку через botva2? [Или: вывод изображения и описания через botva2]

  • Автор темы Автор темы Toni12
  • Дата начала Дата начала
Franklin228 написал(а):
Опять я со своим 125% масштабом:acute: Как пофиксить?
Нажмите для раскрытия...
и участок получения размера изображения:
Код: 
  ComponentImg:=pImgLoad(ComponetForm.Handle, FileName, 0,0,0,0, False, False);
  ImgGetPosition(ComponentImg, Get_Left, Get_Top, Get_Width, Get_Height);

Лучше переписать на сам Inno Setup: Ссылка на пост

Тогда можно будет использовать:
Код: 
ComponentImg:=pImgLoad(ComponetForm.Handle, FileName, ScaleX(0),ScaleY(0),ComponetForm.Width,ComponetForm.Height, True, False);
Чтобы растянуть картинку при увеличение формы
 
Toni12 написал(а):
Этот код не стал работать на 6.2, выдал ошибку "Unknown identifier 'WrapTimerProc' ". Не подошло....
Нажмите для раскрытия...
Так надо задать индификатор (и тащить библиотеку InnoCallBack.dll или CallbackCtrl.dll) или поменять (для Inno Setup 6.0 и выше):
Код: 
WrapTimerProc(@..., 4)
на
Код: 
CreateCallback(@...)
 
Andreo Fadio написал(а):
Так надо задать индификатор (и тащить библиотеку InnoCallBack.dll или CallbackCtrl.dll) или поменять (для Inno Setup 6.0 и выше):
Код: 
WrapTimerProc(@..., 4)
на
Код: 
CreateCallback(@...)
Нажмите для раскрытия...

Библиотека и так подгружена, осталось от прошлых скриптов.
CreateCallback(@...)
Так же ошибку выдал.
 
Наконец-то дома. По сути сейчас на руках такой вариант скрипта, но без текстового описания, зато компилится на 6.2.

Был 2, но я его случайно удалил из-за путаницы в файлах...
 

Вложения

Toni12 написал(а):
Библиотека и так подгружена, осталось от прошлых скриптов.
CreateCallback(@...)
Так же ошибку выдал.
Нажмите для раскрытия...
Там полный код выглядит так:
Код: 
[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no

[Components]
Name: comp1; Description: "Компонент 1";
Name: comp2; Description: "Компонент 2";
Name: comp3; Description: "Компонент 3";

[Files]
Source: "Main.bmp"; Flags: dontcopy
Source: "Additional.bmp"; Flags: dontcopy
Source: "Help.bmp"; Flags: dontcopy

[code]
var
  LastMouse: TPoint;
  CompLabel: TLabel;
  CompImage: TBitmapImage;
  LoadingImage: Boolean;

function GetCursorPos(var lpPoint: TPoint): BOOL;
  external 'GetCursorPos@user32.dll stdcall';
function SetTimer(hWnd: longword; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
  external 'SetTimer@user32.dll stdcall';
function ScreenToClient(hWnd: HWND; var lpPoint: TPoint): BOOL;
  external 'ScreenToClient@user32.dll stdcall';
function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL;
  external 'ClientToScreen@user32.dll stdcall';
function ListBox_GetItemRect(
  const hWnd: HWND; const Msg: Integer; Index: LongInt; var Rect: TRect): LongInt;
  external 'SendMessageW@user32.dll stdcall';

const
  LB_GETITEMRECT = $0198;
  LB_GETTOPINDEX = $018E;

function FindControl(Parent: TWinControl; P: TPoint): TControl;
var
  Control: TControl;
  WinControl: TWinControl;
  I: Integer;
  P2: TPoint;
begin
  for I := 0 to Parent.ControlCount - 1 do
  begin
    Control := Parent.Controls[I];
    if Control.Visible and
       (Control.Left <= P.X) and (P.X < Control.Left + Control.Width) and
       (Control.Top <= P.Y) and (P.Y < Control.Top + Control.Height) then
    begin
      if Control is TWinControl then
      begin
        P2 := P;
        ClientToScreen(Parent.Handle, P2);
        WinControl := TWinControl(Control);
        ScreenToClient(WinControl.Handle, P2);
        Result := FindControl(WinControl, P2);
        if Result <> nil then Exit;
      end;

      Result := Control;
      Exit;
    end;
  end;

  Result := nil;
end;

function PointInRect(const Rect: TRect; const Point: TPoint): Boolean;
begin
  Result :=
    (Point.X >= Rect.Left) and (Point.X <= Rect.Right) and
    (Point.Y >= Rect.Top) and (Point.Y <= Rect.Bottom);
end;

function ListBoxItemAtPos(ListBox: TCustomListBox; Pos: TPoint): Integer;
var
  Count: Integer;
  ItemRect: TRect;
begin
  Result := SendMessage(ListBox.Handle, LB_GETTOPINDEX, 0, 0);
  Count := ListBox.Items.Count;
  while Result < Count do
  begin
    ListBox_GetItemRect(ListBox.Handle, LB_GETITEMRECT, Result, ItemRect);
    if PointInRect(ItemRect, Pos) then Exit;
    Inc(Result);
  end;
  Result := -1;
end;

procedure HoverComponentChanged(Index: Integer);
var
  Description: string;
  Image: string;
  ImagePath: string;
begin
  case Index of
    0: begin Description := 'This is the description of Main Files'; Image := 'main.bmp'; end;
    1: begin Description := 'This is the description of Additional Files'; Image := 'additional.bmp'; end;
    2: begin Description := 'This is the description of Help Files'; Image := 'help.bmp'; end;
  else
    Description := 'Move your mouse over a component to see its description.';
  end;
  CompLabel.Caption := Description;

  if Image <> '' then
  begin
    { The ExtractTemporaryFile pumps the message queue, prevent recursion }
    if not LoadingImage then
    begin
      LoadingImage := True;
      try
        ImagePath := ExpandConstant('{tmp}\' + Image);
        if not FileExists(ImagePath) then
        begin
          ExtractTemporaryFile(Image);
        end;
        CompImage.Bitmap.LoadFromFile(ImagePath);
      finally
        LoadingImage := False;
      end;
    end;
    CompImage.Visible := True;
  end
    else
  begin
    CompImage.Visible := False;
  end;
end;

procedure HoverTimerProc(H: LongWord; Msg: LongWord; IdEvent: LongWord; Time: LongWord);
var
  P: TPoint;
  Control: TControl;
  Index: Integer;
begin
  GetCursorPos(P);
  if P <> LastMouse then { just optimization }
  begin
    LastMouse := P;
    ScreenToClient(WizardForm.Handle, P);

    if (P.X < 0) or (P.Y < 0) or
       (P.X > WizardForm.ClientWidth) or (P.Y > WizardForm.ClientHeight) then
    begin
      Control := nil;
    end
      else
    begin
      Control := FindControl(WizardForm, P);
    end;

    Index := -1;
    if (Control = WizardForm.ComponentsList) and
       (not WizardForm.TypesCombo.DroppedDown) then
    begin
      P := LastMouse;
      ScreenToClient(WizardForm.ComponentsList.Handle, P);
      Index := ListBoxItemAtPos(WizardForm.ComponentsList, P);
    end;

    HoverComponentChanged(Index);
  end;
end;

procedure InitializeWizard();
begin
  SetTimer(0, 0, 50, CreateCallback(@HoverTimerProc));

  CompLabel := TLabel.Create(WizardForm);
  CompLabel.Parent := WizardForm.SelectComponentsPage;
  CompLabel.Left := WizardForm.ComponentsList.Left;
  CompLabel.Width := (WizardForm.ComponentsList.Width - ScaleX(16)) div 2;
  CompLabel.Height := ScaleY(64);
  CompLabel.Top := WizardForm.ComponentsList.Top + WizardForm.ComponentsList.Height - CompLabel.Height;
  CompLabel.AutoSize := False;
  CompLabel.WordWrap := True;

  CompImage := TBitmapImage.Create(WizardForm);
  CompImage.Parent := WizardForm.SelectComponentsPage;
  CompImage.Top := CompLabel.Top;
  CompImage.Width := CompImage.Width;
  CompImage.Height := CompLabel.Height;
  CompImage.Left := WizardForm.ComponentsList.Left + WizardForm.ComponentsList.Width - CompLabel.Width;

  WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height - CompLabel.Height - ScaleY(8);
end;

И он изначально подстроен под 6.0 и выше.
 
Andreo Fadio написал(а):
Там полный код выглядит так:
Код: 
[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no

[Components]
Name: comp1; Description: "Компонент 1";
Name: comp2; Description: "Компонент 2";
Name: comp3; Description: "Компонент 3";

[Files]
Source: "Main.bmp"; Flags: dontcopy
Source: "Additional.bmp"; Flags: dontcopy
Source: "Help.bmp"; Flags: dontcopy

[code]
var
  LastMouse: TPoint;
  CompLabel: TLabel;
  CompImage: TBitmapImage;
  LoadingImage: Boolean;

function GetCursorPos(var lpPoint: TPoint): BOOL;
  external 'GetCursorPos@user32.dll stdcall';
function SetTimer(hWnd: longword; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
  external 'SetTimer@user32.dll stdcall';
function ScreenToClient(hWnd: HWND; var lpPoint: TPoint): BOOL;
  external 'ScreenToClient@user32.dll stdcall';
function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL;
  external 'ClientToScreen@user32.dll stdcall';
function ListBox_GetItemRect(
  const hWnd: HWND; const Msg: Integer; Index: LongInt; var Rect: TRect): LongInt;
  external 'SendMessageW@user32.dll stdcall';

const
  LB_GETITEMRECT = $0198;
  LB_GETTOPINDEX = $018E;

function FindControl(Parent: TWinControl; P: TPoint): TControl;
var
  Control: TControl;
  WinControl: TWinControl;
  I: Integer;
  P2: TPoint;
begin
  for I := 0 to Parent.ControlCount - 1 do
  begin
    Control := Parent.Controls[I];
    if Control.Visible and
       (Control.Left <= P.X) and (P.X < Control.Left + Control.Width) and
       (Control.Top <= P.Y) and (P.Y < Control.Top + Control.Height) then
    begin
      if Control is TWinControl then
      begin
        P2 := P;
        ClientToScreen(Parent.Handle, P2);
        WinControl := TWinControl(Control);
        ScreenToClient(WinControl.Handle, P2);
        Result := FindControl(WinControl, P2);
        if Result <> nil then Exit;
      end;

      Result := Control;
      Exit;
    end;
  end;

  Result := nil;
end;

function PointInRect(const Rect: TRect; const Point: TPoint): Boolean;
begin
  Result :=
    (Point.X >= Rect.Left) and (Point.X <= Rect.Right) and
    (Point.Y >= Rect.Top) and (Point.Y <= Rect.Bottom);
end;

function ListBoxItemAtPos(ListBox: TCustomListBox; Pos: TPoint): Integer;
var
  Count: Integer;
  ItemRect: TRect;
begin
  Result := SendMessage(ListBox.Handle, LB_GETTOPINDEX, 0, 0);
  Count := ListBox.Items.Count;
  while Result < Count do
  begin
    ListBox_GetItemRect(ListBox.Handle, LB_GETITEMRECT, Result, ItemRect);
    if PointInRect(ItemRect, Pos) then Exit;
    Inc(Result);
  end;
  Result := -1;
end;

procedure HoverComponentChanged(Index: Integer);
var
  Description: string;
  Image: string;
  ImagePath: string;
begin
  case Index of
    0: begin Description := 'This is the description of Main Files'; Image := 'main.bmp'; end;
    1: begin Description := 'This is the description of Additional Files'; Image := 'additional.bmp'; end;
    2: begin Description := 'This is the description of Help Files'; Image := 'help.bmp'; end;
  else
    Description := 'Move your mouse over a component to see its description.';
  end;
  CompLabel.Caption := Description;

  if Image <> '' then
  begin
    { The ExtractTemporaryFile pumps the message queue, prevent recursion }
    if not LoadingImage then
    begin
      LoadingImage := True;
      try
        ImagePath := ExpandConstant('{tmp}\' + Image);
        if not FileExists(ImagePath) then
        begin
          ExtractTemporaryFile(Image);
        end;
        CompImage.Bitmap.LoadFromFile(ImagePath);
      finally
        LoadingImage := False;
      end;
    end;
    CompImage.Visible := True;
  end
    else
  begin
    CompImage.Visible := False;
  end;
end;

procedure HoverTimerProc(H: LongWord; Msg: LongWord; IdEvent: LongWord; Time: LongWord);
var
  P: TPoint;
  Control: TControl;
  Index: Integer;
begin
  GetCursorPos(P);
  if P <> LastMouse then { just optimization }
  begin
    LastMouse := P;
    ScreenToClient(WizardForm.Handle, P);

    if (P.X < 0) or (P.Y < 0) or
       (P.X > WizardForm.ClientWidth) or (P.Y > WizardForm.ClientHeight) then
    begin
      Control := nil;
    end
      else
    begin
      Control := FindControl(WizardForm, P);
    end;

    Index := -1;
    if (Control = WizardForm.ComponentsList) and
       (not WizardForm.TypesCombo.DroppedDown) then
    begin
      P := LastMouse;
      ScreenToClient(WizardForm.ComponentsList.Handle, P);
      Index := ListBoxItemAtPos(WizardForm.ComponentsList, P);
    end;

    HoverComponentChanged(Index);
  end;
end;

procedure InitializeWizard();
begin
  SetTimer(0, 0, 50, CreateCallback(@HoverTimerProc));

  CompLabel := TLabel.Create(WizardForm);
  CompLabel.Parent := WizardForm.SelectComponentsPage;
  CompLabel.Left := WizardForm.ComponentsList.Left;
  CompLabel.Width := (WizardForm.ComponentsList.Width - ScaleX(16)) div 2;
  CompLabel.Height := ScaleY(64);
  CompLabel.Top := WizardForm.ComponentsList.Top + WizardForm.ComponentsList.Height - CompLabel.Height;
  CompLabel.AutoSize := False;
  CompLabel.WordWrap := True;

  CompImage := TBitmapImage.Create(WizardForm);
  CompImage.Parent := WizardForm.SelectComponentsPage;
  CompImage.Top := CompLabel.Top;
  CompImage.Width := CompImage.Width;
  CompImage.Height := CompLabel.Height;
  CompImage.Left := WizardForm.ComponentsList.Left + WizardForm.ComponentsList.Width - CompLabel.Width;

  WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height - CompLabel.Height - ScaleY(8);
end;

И он изначально подстроен под 6.0 и выше.
Нажмите для раскрытия...


Думал я где-то ошибся, но нет, он действительно не выводит текст и изображение у меня
 
@Toni12, вот вам рабочее решение (напримере кода от Nemko) по выводу формы с описанием и картинкой для любых версий inno:

2 варианта для botva и на расширенной версии от Leserg
Размер высоты участка текста регулируется через #define HeightInfo "желаемое число высоты"
 

Вложения

Последнее редактирование:
Andreo Fadio написал(а):
@Toni12, вот вам рабочее решение (напримере кода от Nemko) по выводу формы с описанием и картинкой для любых версий inno:

2 варианта для botva и на расширенной версии от Leserg
Размер высоты участка текста регулируется через #define HeightInfo "желаемое число высоты"
Нажмите для раскрытия...

Спасибо! Первый вариант на Ботве подошёл)
 
Не знаю зачем это здесь, но пусть будет.
Закинул пару комментариев. (Место изменения подложки под текстом и автоматическое масштабирование текста в рамке)
 

Вложения

Toni12 написал(а):
и автоматическое масштабирование текста в рамке
Нажмите для раскрытия...
не надо вывешивать свойства масштабирование на обновление окна, а добавить в сам задаваемый элемент:
Код: 
ComponetLabel:= TLabel.Create(ComponetForm);
  with ComponetLabel do
  begin
    Parent:= ComponetForm;
    Caption:= '';
    AutoSize := True;   // Перенос строки
    WordWrap:= True;     //
    Transparent:= True; //
  end;
 
Последнее редактирование:
Просматривал на днях ветку ISDone ради полезной информации и случайно наткнулся на эту форму компонентов. Естественно стало интересно на чём она подготовлена. Я так понял, что там botva2 не задействована. Есть ли интерпретация данной формы под стиль modern с использованием превью изображений jpg/png? Хотелось бы её поковырять в Inno Setup VCL ради интереса.

Пример.jpg
 
Cyberworm написал(а):
Есть ли интерпретация данной формы под стиль modern с использованием превью изображений jpg/png? Хотелось бы её поковырять в Inno Setup VCL ради интереса.
Нажмите для раскрытия...
Что-то вроде этого . На форуме есть несколько реализаций, поищите
 
Shegorat написал(а):
Что-то вроде этого . На форуме есть несколько реализаций, поищите
Нажмите для раскрытия...
На 45-й строчке компилятор выдаёт ошибку, мол неизвестный тип Area: TItemArea и соответственно весь блок procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea); уже не рабочий. С чем может быть связана данная проблема?
 
@Cyberworm, нет такого функционала в чистой inno и расширенной от leserg, пример чисто для китайской версии.
 
Andreo Fadio написал(а):
@Cyberworm, нет такого функционала в чистой inno и расширенной от leserg, пример чисто для китайской версии.
Нажмите для раскрытия...
Значит только один выход в этом случае - это botva2. Главное теперь подогнать размер блоков описания компонентов и их превью под WizardStyle=modern
 
HandyMan написал(а):
Как-то Так
Нажмите для раскрытия...
Спасибо, всё работает. Правда пришлось немного повозиться с габаритами блоков ради WizardStyle=modern
Компоненты.jpg
Тем не менее Info Picture Form считаю более продвинутым (или универсальным) решением за счёт вызова внешней функции просмотра кастомного разрешения и прикрученного к картинке текста. И самый главный плюс, что в наличии имеется готовая форма для Inno Setup VCL. Поэтому всего скорей буду его использовать для переработки старого русификатора к игре Arma: Cold War Assault, который в бородатые времена был собран в NSIS. Ещё иногда смотрю в сторону FMXInno, но там сдерживающим фактором является то, что его используют для репаков. Я этим не промышляю, так что насколько целесообразно использовать комплекс FMXInno для русификации игр?
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху