summaryrefslogtreecommitdiff
path: root/uidesigner
diff options
context:
space:
mode:
Diffstat (limited to 'uidesigner')
-rw-r--r--uidesigner/vfd_constants.pas8
-rw-r--r--uidesigner/vfdforms.pas52
2 files changed, 48 insertions, 12 deletions
diff --git a/uidesigner/vfd_constants.pas b/uidesigner/vfd_constants.pas
index b39cfda0..eb32e308 100644
--- a/uidesigner/vfd_constants.pas
+++ b/uidesigner/vfd_constants.pas
@@ -44,8 +44,12 @@ resourcestring
rsCompiledOn = 'Compiled on: %s';
rsNewUnnamedForm = 'new';
- rsDlgProductInfo = 'Product Information...';
- rsDlgSetup = 'General Settings...';
+ rsDlgProductInfo = 'Product Information';
+ rsDlgSetup = 'General Settings';
+ rsDlgInsertCustomWidget = 'Insert Custom Widget';
+ rsDlgNewForm = 'New Form';
+ rsDlgEditFormPosition = 'Form Position';
+ rsDlgWidgetOrder = 'Widget Order';
rsErrUnitNotFound = 'The unit <%s> was not found.';
rsErrLoadingForm = 'Error loading form';
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas
index f3e6a935..03abaa7f 100644
--- a/uidesigner/vfdforms.pas
+++ b/uidesigner/vfdforms.pas
@@ -1,7 +1,7 @@
{
fpGUI - Free Pascal GUI Toolkit
- Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
+ Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
distribution, for details of the copyright.
See the file COPYING.modifiedLGPL, included in this distribution,
@@ -12,7 +12,7 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Description:
- The main uiDesigner forms.
+ This unit defines various forms/dialogs used in the UI Designer.
}
unit vfdforms;
@@ -49,6 +49,8 @@ type
TInsertCustomForm = class(TVFDDialog)
+ protected
+ procedure SetupCaptions; override;
public
l1,
l2: TfpgLabel;
@@ -56,34 +58,38 @@ type
edName: TfpgEdit;
btnOK: TfpgButton;
btnCancel: TfpgButton;
- procedure AfterCreate; override;
- procedure OnButtonClick(Sender: TObject);
+ procedure AfterCreate; override;
+ procedure OnButtonClick(Sender: TObject);
end;
TNewFormForm = class(TVFDDialog)
private
- procedure OnedNameKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+ procedure OnedNameKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+ protected
+ procedure SetupCaptions; override;
public
l1: TfpgLabel;
edName: TfpgEdit;
btnOK: TfpgButton;
btnCancel: TfpgButton;
- procedure AfterCreate; override;
- procedure OnButtonClick(Sender: TObject);
+ procedure AfterCreate; override;
+ procedure OnButtonClick(Sender: TObject);
end;
TEditPositionForm = class(TVFDDialog)
private
- procedure edPosKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+ procedure edPosKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+ protected
+ procedure SetupCaptions; override;
public
lbPos: TfpgLabel;
edPos: TfpgEdit;
btnOK: TfpgButton;
btnCancel: TfpgButton;
- procedure AfterCreate; override;
- procedure OnButtonClick(Sender: TObject);
+ procedure AfterCreate; override;
+ procedure OnButtonClick(Sender: TObject);
end;
@@ -91,6 +97,8 @@ type
private
function GetTitle: string;
procedure SetTitle(const AValue: string);
+ protected
+ procedure SetupCaptions; override;
public
{@VFD_HEAD_BEGIN: WidgetOrderForm}
lblTitle: TfpgLabel;
@@ -156,6 +164,12 @@ uses
{ TInsertCustomForm }
+procedure TInsertCustomForm.SetupCaptions;
+begin
+ inherited SetupCaptions;
+ WindowTitle := rsDlgInsertCustomWidget;
+end;
+
procedure TInsertCustomForm.AfterCreate;
begin
{%region 'Auto-generated GUI code' -fold}
@@ -191,6 +205,12 @@ begin
btnOK.Click;
end;
+procedure TNewFormForm.SetupCaptions;
+begin
+ inherited SetupCaptions;
+ WindowTitle := rsDlgNewForm;
+end;
+
procedure TNewFormForm.AfterCreate;
begin
inherited AfterCreate;
@@ -223,6 +243,12 @@ begin
btnOK.Click;
end;
+procedure TEditPositionForm.SetupCaptions;
+begin
+ inherited SetupCaptions;
+ WindowTitle := rsDlgEditFormPosition;
+end;
+
procedure TEditPositionForm.AfterCreate;
begin
inherited AfterCreate;
@@ -259,6 +285,12 @@ begin
lblTitle.Text := Format(lblTitle.Text, [AValue]);
end;
+procedure TWidgetOrderForm.SetupCaptions;
+begin
+ inherited SetupCaptions;
+ WindowTitle := rsDlgWidgetOrder;
+end;
+
constructor TWidgetOrderForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);