论坛风格切换切换到宽版
  • 2873阅读
  • 3回复

关于gifctrl插件的一个小问题! [复制链接]

上一主题 下一主题
离线axlswd
 

发帖
95
金钱
910
威望
91
只看楼主 倒序阅读 0 发表于: 2013-10-12






上图左下角的图片,在安装的每一个界面都会显示,我只希望他在SelectDirPage显示一次,并且还是原来位置,请问怎么改代码?
gifctrl测试.rar (12 K) 下载次数:12



#include "GifCtrl.ish"

[Setup]
AppName=我的程序
AppVerName=我的程序 版本 1.5
DefaultDirName={pf}\我的程序
DefaultGroupName=我的程序
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma
OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: 0023.gif; Flags: dontcopy solidbreak
Source: "MyProg.exe"; DestDir: "{app}"


[Icons]
Name: "{group}\我的程序"; Filename: "{app}\MyProg.exe"

[code]
var
  GifPanel: TPanel;
  GIFHWND1: HWND;

function InitializeSetup(): Boolean;
begin
  PDir('GifCtrl.dll');

  GIFHWND1 := 0;
  Result := True;
end;

procedure DeinitializeSetup();
begin
  FreeAllGifWnd();
end;

procedure InitializeWizard();
var
  GifFileName: String;
begin
  ExtractTemporaryFile('0023.gif');
   GIFHWND1 := NewGifbWnd(WizardForm.Handle, ScaleX(30), WizardForm.Bevel.Top + ScaleY(8), 88, 31);
  GifWndLoadFromFile(GIFHWND1, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\0023.gif'));
end;
本帖提到的人: @gnatix @qiuquan @z454892031
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2013-10-12
[CODE]
var
  GIFHWND1: HWND;

function InitializeSetup(): Boolean;
begin
  GIFHWND1 := 0;
  Result := True;
end;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('0023.gif');
end;

procedure CurPageChanged (CurPageID : Integer);
begin
  if CurPageID=wpSelectDir then
    begin
    GIFHWND1 := NewGifbWnd(WizardForm.Handle, ScaleX(30), WizardForm.Bevel.Top + ScaleY(8), 88, 31);
    GifWndLoadFromFile(GIFHWND1, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\0023.gif'));
    end
  else
    FreeAllGifWnd();
end;
离线axlswd

发帖
95
金钱
910
威望
91
只看该作者 2 发表于: 2013-10-13
回 1楼(gnatix) 的帖子
谢谢虎版,问题解决了!

离线axlswd

发帖
95
金钱
910
威望
91
只看该作者 3 发表于: 2013-10-13
回 1楼(gnatix) 的帖子
gnatix:var  GIFHWND1: HWND;function InitializeSetup(): Boolean;....... (2013-10-12 23:44) 

每次见虎版回复都是深夜,希望虎版保重身体!!