summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-07-17 11:47:01 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-07-17 11:47:01 +0000
commit60420d5e337bbd62fe05613c269e9ebecca6aad8 (patch)
tree7b2382e8b0a24b4065e5ce50aa3698f34e33ee8d /examples
parent742c2eccb4c96ba8bd2bf37a60ddb10e4d552d3d (diff)
downloadfpGUI-60420d5e337bbd62fe05613c269e9ebecca6aad8.tar.xz
* Added extra safety in the Grid Scrollbar handling. * Replaced magic numbers with ModalResult constants.
Diffstat (limited to 'examples')
-rw-r--r--examples/apps/uidesigner/vfdeditors.pas5
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/apps/uidesigner/vfdeditors.pas b/examples/apps/uidesigner/vfdeditors.pas
index c5ba41e1..0c4e081f 100644
--- a/examples/apps/uidesigner/vfdeditors.pas
+++ b/examples/apps/uidesigner/vfdeditors.pas
@@ -49,6 +49,7 @@ type
implementation
uses
+ gfxbase,
fpgfx;
{ TItemEditorForm }
@@ -87,9 +88,9 @@ end;
procedure TItemEditorForm.OnButtonClick(Sender: TObject);
begin
if Sender = btnOK then
- ModalResult := 1
+ ModalResult := mrOK
else
- ModalResult := 2;
+ ModalResult := mrCancel;
end;