Inno Setup高階之視窗初始化 一

2022-06-30 19:12:11 字數 3812 閱讀 9156

wizardform.outernotebook.hide;  // 隱藏預設的導向內容

wizardform.bevel.hide; // 隱藏分隔線

wizardform.borderstyle:=bsnone; // 邊界隱藏

wizardform.position:=poscreencenter; // 位置螢幕居中

wizardform.width:=630; // 寬

wizardform.height:=408; // 高

wizardform.color:=$00fd9804; // 背景顏色

wizardform.onmousedown:=@wizardmousedown       //拖拽

procedure wizardmousedown(sender: tobject; button: tmousebutton; shift: tshiftstate; x, y: integer);

begin

releasecapture

sendmessage(wizardform.handle, $0112, $f012, 0)

end;

extracttemporaryfile('btn_close.png');

extracttemporaryfile('btn_min.png');

// 取消安裝

cancelbtn:=btncreate(wizardform.handle,607,8,17,15,expandconstant('\btn_close.png'),2,false)

btnsetevent(cancelbtn,btnclickeventid,wrapbtncallback(@cancelbtnonclick,1));

// 最小化視窗

minbtn:=btncreate(wizardform.handle,587,4,17,15,expandconstant('\btn_min.png'),1,false)

btnsetevent(minbtn,btnclickeventid,wrapbtncallback(@minbtnonclick,1));

// 背景顏色

wizardform.color:=$00fd9804; // $00bgr

// 背景

extracttemporaryfile('xy.png');

bgimg:=imgload(wizardform.handle,expandconstant('\xy.png'),0,0,650,408,false,false);

procedure curpagechanged(curpageid: integer);

begin

wizardform.nextbutton.visible:=false;

wizardform.cancelbutton.height:=0;

wizardform.backbutton.height:=0;

if curpageid = wpwelcome then

wizardform.nextbutton.onclick(wizardform);

end;

[code]

#include 'dll.iss'

var cancelbtn, minbtn:hwnd;

// 取消按鈕

procedure cancelbtnonclick(hbtn:hwnd);

begin

wizardform.cancelbutton.click;

end;

// 最小化按鈕

procedure minbtnonclick(hbtn:hwnd);

begin

sendmessage(wizardform.handle,wm_syscommand,61472,0);

end;

// 拖拽

procedure wizardmousedown(sender: tobject; button: tmousebutton; shift: tshiftstate; x, y: integer);

begin

releasecapture

sendmessage(wizardform.handle, $0112, $f012, 0)

end;

procedure initializewizard();

begin

wizardform.outernotebook.hide; // 隱藏預設的導向內容

wizardform.bevel.hide; // 隱藏分隔線

wizardform.borderstyle:=bsnone; // 邊界隱藏

wizardform.position:=poscreencenter; // 位置螢幕居中

wizardform.width:=630; // 寬

wizardform.height:=408; // 高

wizardform.color:=$00fd9804; // 背景顏色

wizardform.nextbutton.hide;

wizardform.onmousedown:=@wizardmousedown //拖拽

extracttemporaryfile('btn_close.png');

extracttemporaryfile('btn_min.png');

cancelbtn:=btncreate(wizardform.handle,607,8,17,15,expandconstant('\btn_close.png'),2,false)

btnsetevent(cancelbtn,btnclickeventid,wrapbtncallback(@cancelbtnonclick,1));

minbtn:=btncreate(wizardform.handle,587,4,17,15,expandconstant('\btn_min.png'),1,false)

btnsetevent(minbtn,btnclickeventid,wrapbtncallback(@minbtnonclick,1));

end;

procedure deinitializesetup();

begin

gdipshutdown;

end;

procedure curpagechanged(curpageid: integer);

begin

wizardform.nextbutton.visible:=false;

wizardform.cancelbutton.height:=0;

wizardform.backbutton.height:=0;

if curpageid = wpwelcome then

wizardform.nextbutton.onclick(wizardform);

end;

selenium之視窗切換

1.何時需要切換視窗呢?1 標籤內部存在iframe,普通的方式無法直接定位到iframe內部的標籤元素。需要切換 2 乙個瀏覽器物件,存在多個標籤選項卡。需要切換。2.iframe標籤舉例 qq郵箱登入 from selenium import webdriver from selenium.we...

Hive之視窗函式

對一定視窗期內的資料進行聚合。示例 select sum a.pv over partition by cookieid order by create time rows between 3 preceding and current row as pv1,sum a.pv over partit...

hive sql之 視窗函式。

一 row number 函式 區別於其它排序函式,相當於多了乙個排序的列。資料準備 name money ming 12 yang 23 ming 35 ming 54 yang 43 1 按照其中money 進行排序並增加一行。select name,money,row number over ...