[gimp/gimp-2-8] installer: Replace TButton with TNewButton



commit b50145fb1a27779dd78da3786868a995343a4e09
Author: Jernej SimonÄiÄ <jernej+s-gnome eternallybored org>
Date:   Sun May 27 11:38:27 2012 +0200

    installer: Replace TButton with TNewButton

 build/windows/installer/MessageWithURL.isi |    4 ++--
 build/windows/installer/associations.isi   |    6 +++---
 build/windows/installer/gimp3264.iss       |   16 ++++++++--------
 3 files changed, 13 insertions(+), 13 deletions(-)
---
diff --git a/build/windows/installer/MessageWithURL.isi b/build/windows/installer/MessageWithURL.isi
old mode 100644
new mode 100755
index 15d9f25..3763da8
--- a/build/windows/installer/MessageWithURL.isi
+++ b/build/windows/installer/MessageWithURL.isi
@@ -55,7 +55,7 @@ function DrawIcon(hdc: HBitmap; x,y: Integer; hIcon: Integer): Integer; external
 function DrawFocusRect(hDC: Integer; var lprc: TRect): BOOL; external 'DrawFocusRect user32 stdcall';
 
 type
-	TArrayOfButton = Array of TButton;
+	TArrayOfButton = Array of TNewButton;
 
 const
 	//borders around message
@@ -343,7 +343,7 @@ begin
 	SetArrayLength(Button,GetArrayLength(ButtonText));
 	for i := 0 to GetArrayLength(Button) - 1 do
 	begin
-		Button[i] := TButton.Create(MessageForm);
+		Button[i] := TNewButton.Create(MessageForm);
 		with Button[i] do
 		begin
 			Parent := MessageForm;
diff --git a/build/windows/installer/associations.isi b/build/windows/installer/associations.isi
old mode 100644
new mode 100755
index c82e17e..e3541ce
--- a/build/windows/installer/associations.isi
+++ b/build/windows/installer/associations.isi
@@ -262,13 +262,13 @@ begin
 	SelAll := CustomMessage('SelectAssociationsSelectAll')
 	UnselAll := CustomMessage('SelectAssociationsUnselectAll');
 
-	if TButton(Sender).Caption = SelAll then
+	if TNewButton(Sender).Caption = SelAll then
 	begin
 	
 		for i := 0 to GetArrayLength(Associations.Association) - 1 do
 			Associations.AssociationsPage.clbAssociations.Checked[i] := True;
 
-		TButton(Sender).Caption := UnselAll;
+		TNewButton(Sender).Caption := UnselAll;
 
 	end else
 	begin
@@ -277,7 +277,7 @@ begin
 			if Associations.Association[i].Associated = False then //don't uncheck associations that are already active
 				Associations.AssociationsPage.clbAssociations.Checked[i] := False;
 
-		TButton(Sender).Caption := SelAll;
+		TNewButton(Sender).Caption := SelAll;
 
 	end;
 
diff --git a/build/windows/installer/gimp3264.iss b/build/windows/installer/gimp3264.iss
index c57b65e..5f72a3c 100755
--- a/build/windows/installer/gimp3264.iss
+++ b/build/windows/installer/gimp3264.iss
@@ -358,7 +358,7 @@ var
 	end;
 
 	//pgSimple: TWizardPage;
-	btnInstall, btnCustomize: TButton;
+	btnInstall, btnCustomize: TNewButton;
 
 	InstallMode: (imNone, imSimple, imCustom, imRebootContinue);
 
@@ -535,7 +535,7 @@ begin
 
 	CleanUpCustomWelcome();
 
-	WizardForm.NextButton.OnClick(TButton(Sender).Parent);
+	WizardForm.NextButton.OnClick(TNewButton(Sender).Parent);
 end;
 
 
@@ -546,13 +546,13 @@ begin
 	
 	CleanUpCustomWelcome();
 
-	WizardForm.NextButton.OnClick(TButton(Sender).Parent);
+	WizardForm.NextButton.OnClick(TNewButton(Sender).Parent);
 end;
 
 
 procedure InitCustomPages();
 var lblAssocInfo: TNewStaticText;
-	btnSelectAll,btnSelectUnused: TButton;
+	btnSelectAll,btnSelectUnused: TNewButton;
 	i: Integer;
 	//lblInfo: TNewStaticText;
 begin
@@ -608,7 +608,7 @@ begin
 
 	end;
 
-	btnSelectUnused := TButton.Create(Associations.AssociationsPage.Page);
+	btnSelectUnused := TNewButton.Create(Associations.AssociationsPage.Page);
 	with btnSelectUnused do
 	begin
 		Parent := Associations.AssociationsPage.Page.Surface;
@@ -620,7 +620,7 @@ begin
 		OnClick := @Associations_SelectUnused;
 	end;
 
-	btnSelectAll := TButton.Create(Associations.AssociationsPage.Page);
+	btnSelectAll := TNewButton.Create(Associations.AssociationsPage.Page);
 	with btnSelectAll do
 	begin
 		Parent := Associations.AssociationsPage.Page.Surface;
@@ -651,7 +651,7 @@ begin
 		Caption := CustomMessage('InstallOrCustomize');
 	end;*)
 
-	btnInstall := TButton.Create(WizardForm);
+	btnInstall := TNewButton.Create(WizardForm);
 	with btnInstall do
 	begin
 		Parent := WizardForm;
@@ -666,7 +666,7 @@ begin
 		OnClick := @InstallOnClick;
 	end;
 
-	btnCustomize := TButton.Create(WizardForm);
+	btnCustomize := TNewButton.Create(WizardForm);
 	with btnCustomize do
 	begin
 		Parent := WizardForm;



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]