diff options
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; |