diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-12 17:59:14 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-12 18:29:05 +0100 |
commit | 9be4072b65ba67dfb82224ba5cda84489135612f (patch) | |
tree | 1588da231d40abf578208f2266deaef9f6ac248a /prototypes | |
parent | af6de89e189c6ce39873c901814b7b29a1bb1782 (diff) | |
download | fpGUI-9be4072b65ba67dfb82224ba5cda84489135612f.tar.xz |
MDI prototype: fixes code to remove compiler hints
Diffstat (limited to 'prototypes')
-rw-r--r-- | prototypes/mdi/fpg_mdi.pas | 2 | ||||
-rw-r--r-- | prototypes/mdi/frm_child.pas | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/prototypes/mdi/fpg_mdi.pas b/prototypes/mdi/fpg_mdi.pas index 0af5a138..d04acb3e 100644 --- a/prototypes/mdi/fpg_mdi.pas +++ b/prototypes/mdi/fpg_mdi.pas @@ -55,7 +55,7 @@ type FIsMouseDown: boolean; FLastPos: TPoint; FActive: boolean; - procedure SetWindowTitle(AValue: TfpgString); + procedure SetWindowTitle(AValue: TfpgString); reintroduce; procedure TitleMouseMove(Sender: TObject; AShift: TShiftState; const AMousePos: TPoint); procedure TitleMouseUp(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); procedure TitleMouseDown(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); diff --git a/prototypes/mdi/frm_child.pas b/prototypes/mdi/frm_child.pas index a9890a3c..0d71b52d 100644 --- a/prototypes/mdi/frm_child.pas +++ b/prototypes/mdi/frm_child.pas @@ -5,7 +5,7 @@ unit frm_child; interface uses - SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_button, fpg_edit, + SysUtils, Classes, fpg_base, fpg_main, fpg_button, fpg_edit, fpg_checkbox, fpg_radiobutton, fpg_gauge, fpg_mdi, fpg_panel, fpg_trackbar; type @@ -25,7 +25,7 @@ type FWindowTitle: TfpgString; procedure btnCloseClicked(Sender: TObject); procedure TrackBarChanged(Sender: TObject; APosition: integer); - procedure SetWindowTitle(AValue: TfpgString); + procedure SetWindowTitle(const ATitle: TfpgString); reintroduce; public procedure AfterCreate; override; property WindowTitle: TfpgString read FWindowTitle write SetWindowTitle; @@ -46,11 +46,11 @@ begin Gauge1.Progress := APosition; end; -procedure TChildForm.SetWindowTitle(AValue: TfpgString); +procedure TChildForm.SetWindowTitle(const ATitle: TfpgString); begin - if FWindowTitle = AValue then + if FWindowTitle = ATitle then Exit; - FWindowTitle := AValue; + FWindowTitle := ATitle; TfpgMDIChildForm(Owner.Owner).WindowTitle := FWindowTitle; end; |