diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-02-22 12:08:07 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-02-22 12:08:07 +0000 |
| commit | a5799f99a0b3888aaf5c9f5b6b46701bbf5b4008 (patch) | |
| tree | 3566c75b45479a46c374c2a8659cb3c41d16fa1f /examples/apps | |
| parent | 77e4874fe37ba633c92ac99b137a897d323b9138 (diff) | |
| download | fpGUI-a5799f99a0b3888aaf5c9f5b6b46701bbf5b4008.tar.xz | |
maximus: Enables the Cut, Copy and Paste edit menu items.
Diffstat (limited to 'examples/apps')
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 33 |
1 files changed, 30 insertions, 3 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index 96b78a52..0b221f6c 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -67,6 +67,9 @@ type procedure btnOpenFileClicked(Sender: TObject); procedure miFileSave(Sender: TObject); procedure miFileSaveAs(Sender: TObject); + procedure miEditCutClicked(Sender: TObject); + procedure miEditCopyClicked(Sender: TObject); + procedure miEditPasteClicked(Sender: TObject); procedure miFindClicked(Sender: TObject); procedure miSearchProcedureList(Sender: TObject); procedure miAboutFPGuiClicked(Sender: TObject); @@ -203,6 +206,30 @@ begin TfpgTextEdit(pcEditor.ActivePage.Components[0]).SaveToFile(s); end; +procedure TMainForm.miEditCutClicked(Sender: TObject); +var + edt: TfpgTextEdit; +begin + edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]); + edt.CutToClipboard; +end; + +procedure TMainForm.miEditCopyClicked(Sender: TObject); +var + edt: TfpgTextEdit; +begin + edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]); + edt.CopyToClipboard; +end; + +procedure TMainForm.miEditPasteClicked(Sender: TObject); +var + edt: TfpgTextEdit; +begin + edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]); + edt.PasteFromClipboard; +end; + procedure TMainForm.miFindClicked(Sender: TObject); var s: TfpgString; @@ -1239,9 +1266,9 @@ begin begin Name := 'mnuEdit'; SetPosition(476, 80, 172, 20); - AddMenuItem('Cut', '', nil).Enabled := False; - AddMenuItem('Copy', '', nil).Enabled := False; - AddMenuItem('Paste', '', nil).Enabled := False; + AddMenuItem('Cut', rsKeyCtrl+'X', @miEditCutClicked); + AddMenuItem('Copy', rsKeyCtrl+'C', @miEditCopyClicked); + AddMenuItem('Paste', rsKeyCtrl+'V', @miEditPasteClicked); AddMenuItem('-', '', nil); AddMenuItem('Indent selection', rsKeyCtrl+'I', nil).Enabled := False; AddMenuItem('Unindent selection', rsKeyCtrl+'U', nil).Enabled := False; |