diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-12 13:57:14 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-12 13:57:14 +0000 |
commit | 6d75e0db8bf9bde5b163363198fbefbada295851 (patch) | |
tree | b02b5fbabc3005a418e0f3cf4a002c1b827ffa91 /examples/gui/filedialog/filedialog.lpr | |
parent | d2e0a0849e139d4cdbf518751dd8d6611692533b (diff) | |
download | fpGUI-6d75e0db8bf9bde5b163363198fbefbada295851.tar.xz |
* Applied User Prompt Dialog patch from Antonio.
* Minor changes to the message dialogs.
Diffstat (limited to 'examples/gui/filedialog/filedialog.lpr')
-rw-r--r-- | examples/gui/filedialog/filedialog.lpr | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/examples/gui/filedialog/filedialog.lpr b/examples/gui/filedialog/filedialog.lpr index 28d0ca26..c85e8cdc 100644 --- a/examples/gui/filedialog/filedialog.lpr +++ b/examples/gui/filedialog/filedialog.lpr @@ -28,12 +28,14 @@ type btnQuit: TfpgButton; btnName1: TfpgButton; btnName2: TfpgButton; + btnUserPrompt: TfpgButton; {@VFD_HEAD_END: MainForm} procedure btnQuitClick(Sender: TObject); procedure btnOpenFileClick(Sender: TObject); procedure btnSaveFileClick(Sender: TObject); procedure btnMessageBoxClick(Sender: TObject); procedure btnMessageDlgClick(Sender: TObject); + procedure btnUserPromptClick(Sender: TObject); public procedure AfterCreate; override; end; @@ -42,6 +44,22 @@ type { TMainForm } +procedure TMainForm.btnUserPromptClick(Sender: TObject); +var + dlg: TfpgPromptUserDialog; +begin + dlg := TfpgPromptUserDialog.Create(nil); + try + dlg.WindowTitle := 'Sample Login'; + if dlg.ShowModal = 1 then + begin + TfpgMessageDialog.Information('User Results', 'User=' + dlg.UserID + #13#10 + 'Pass='+ dlg.Password, [mbOK]); + end; + finally + dlg.Free; + end; +end; + procedure TMainForm.btnQuitClick(Sender: TObject); begin Close; @@ -107,6 +125,7 @@ begin Text := 'Open File...'; FontDesc := '#Label1'; ImageName := ''; + TabOrder := 1; OnClick := @btnOpenFileClick; end; @@ -118,6 +137,7 @@ begin Text := 'Save File...'; FontDesc := '#Label1'; ImageName := ''; + TabOrder := 2; OnClick := @btnSaveFileClick; end; @@ -127,6 +147,7 @@ begin Name := 'edFilename'; SetPosition(8, 70, 400, 24); Anchors := [anLeft,anRight,anTop]; + TabOrder := 2; Text := ''; FontDesc := '#Edit1'; end; @@ -140,6 +161,7 @@ begin Text := 'Quit'; FontDesc := '#Label1'; ImageName := 'stdimg.Quit'; + TabOrder := 6; OnClick := @btnQuitClick; end; @@ -151,6 +173,7 @@ begin Text := 'Message Box'; FontDesc := '#Label1'; ImageName := ''; + TabOrder := 3; OnClick := @btnMessageBoxClick; end; @@ -162,9 +185,22 @@ begin Text := 'Message Dialog'; FontDesc := '#Label1'; ImageName := ''; + TabOrder := 4; OnClick := @btnMessageDlgClick; end; + btnUserPrompt := TfpgButton.Create(self); + with btnUserPrompt do + begin + Name := 'btnUserPrompt'; + SetPosition(272, 40, 131, 24); + Text := 'User Prompt'; + FontDesc := '#Label1'; + ImageName := ''; + TabOrder := 5; + OnClick := @btnUserPromptClick; + end; + {@VFD_BODY_END: MainForm} end; |