[Sotonisto]

Uragan66, вы забыли раскомментировать строку BtnPanel.OnClick:=@logoOnClick в процедуре создания лого.

[Uragan66]

Sotonisto, Спасибо большое за помощь, но когда раскомментирую эту строку компилятор не находит идентификатора logoOnClick.

[Sotonisto]

не находит идентификатора »

Извините, я не сразу заметил, что у вас процедура LogoOnClick расположена после процедуры LogoImage, хотя должна находится перед ней.

Скрипт

Код:

procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND);external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free;external 'iswin7_free@files:iswin7.dll stdcall';

// функция проверки того, сработает iswin7, или нет
function GlassEnabled:Boolean;external 'GlassEnabled@files:dwmEnabled.dll stdcall';

procedure LogoOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://www.google.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

// Сделал отдельную процедуру создания лого,чтоб удобно было - вызываем и указываем размеры
procedure LogoImage(ImgLeft,ImgTop,ImgWidth,ImgHeight:Integer);
var BtnPanel:TPanel;
begin
ExtractTemporaryFile('gnom.bmp');
//-----------start----------LOGO-----------//
     BtnPanel:=TPanel.Create(WizardForm)
     BtnPanel.SetBounds(ImgLeft,ImgTop,ImgWidth,ImgHeight);
     BtnPanel.Cursor:=crHand
     BtnPanel.ParentColor := True;
     BtnPanel.OnClick:=@LogoOnClick
     BtnPanel.Parent:=WizardForm

 with TBitmapImage.Create(WizardForm) do
  begin
    Parent := BtnPanel;
    SetBounds(0,0,BtnPanel.Width,BtnPanel.Height);
    // Собственно, применение
    if GlassEnabled then BackColor := BtnPanel.Color else BackColor := clNone;
    
    ReplaceColor := clBlack; // это обязательно
    ReplaceWithColor := clNone;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\gnom.bmp'));
  end;
end;

procedure InitializeWizard16();
begin
    if GlassEnabled then WizardForm.WelcomeLabel2.Caption:='Включено' else  WizardForm.WelcomeLabel2.Caption:='Выключено';
  // Необходимо добавлять каждую кнопку расположенную на стекле
  // до инициализации стекла для того что бы не было дыр ))
  iswin7_add_button(WizardForm.BackButton.Handle);
  iswin7_add_button(WizardForm.NextButton.Handle);
  iswin7_add_button(WizardForm.CancelButton.Handle);
  // Параметр True не трогать он для htuos ))
  iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True);

// Вызываем лого, и говорим ему координаты.
 LogoImage(ScaleX(618),ScaleY(0),ScaleX(69),ScaleY(50));
end;

procedure DeinitializeSetup11();
begin
  iswin7_free;
end;

[Uragan66]

Sotonisto, спасибо. Но не хочет работать . Установщик компилируется нормально, но ссылки не работают, то есть клик на лого ничего не дает... Хотя вот

скрипт

Код:

procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
  ShellExec('', 'http://www.forum.ru-board.com', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure InitializeWizard();
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('Button.bmp')
  
  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=320
    Top:=100
    Width:=132
    Height:=27
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
     end;
  BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
    Parent:=BtnPanel
  end;
 end;

с такой же функцией и в нем все работает... Но в нем нет прозрачности

[Sotonisto]

Uragan66, в каком смысле нет прозрачности?
К слову, желательно увидеть весь скрипт, а еще лучше - архив со всеми файлами (для полноты картины). Исправлять ошибки вслепую - напрасная трата времени

[Uragan66]

Sotonisto, в том скрипте нельзя поставить лого на MAINPANEL. Прикрепил архив, но еще не полностью сделано, много недоработок, посмотрите, пожалуйста, если есть время...

[habib2302]

как убрать PreparingPage перед распаковкой портативной версии

[ekspoint]

как убрать PreparingPage перед распаковкой портативной версии »

не?

Код:

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PageID = wpPreparing then Result:= True;
end;

или

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID= wpPreparing then
begin
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0)
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0)
end;
end;

[habib2302]

ekspoint, не помогло

[Sotonisto]

Uragan66, мне не удалось проверить скрипт на работоспособность т.к. использую ANSI версию IS.
Пробежался глазами по коду и признаюсь, такой мешанины из скриптов я еще ни разу не видел (не в обиду). Я понимаю, что вы сами их писали и прекрасно знаете что и где, но 9 секций [Setup], 5 [Files] и 2 [Languages] (дублирующие друг друга) в одном скрипте - как по мне, так это перебор Для меня уже странно то, что они вообще у вас работают
Сейчас попытаюсь его пересобрать "под себя", потом отпишусь получилось или нет.