[gimp/gimp-2-8] installer: Replace TButton with TNewButton
- From: Jernej SimonÄiÄ <jernejs src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp/gimp-2-8] installer: Replace TButton with TNewButton
- Date: Sun, 27 May 2012 09:41:03 +0000 (UTC)
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]