Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added a few edit functions to the notes richedit

Browse Source
This commit is contained in:
Christian Hammacher
2006-02-17 20:25:25 +00:00
parent dc97e18955
commit 4369023394
5 changed files with 28 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
editor/studio/UnitfrmMain.pas
View File

@@ -918,7 +918,10 @@ end;
procedure TfrmMain.mnuUndoClick(Sender: TObject);
begin
sciEditor.Undo;
if ActiveControl = sciEditor then
sciEditor.Undo
else if ActiveControl = rtfNotes then
rtfNotes.Undo;
end;
procedure TfrmMain.mnuSaveClick(Sender: TObject);
@@ -956,27 +959,42 @@ end;
procedure TfrmMain.mnuRedoClick(Sender: TObject);
begin
sciEditor.Redo;
if ActiveControl = sciEditor then
sciEditor.Redo
else if ActiveControl = rtfNotes then
rtfNotes.Undo;
end;
procedure TfrmMain.mnuCutClick(Sender: TObject);
begin
sciEditor.Cut;
if ActiveControl = sciEditor then
sciEditor.Cut
else if ActiveControl = rtfNotes then
rtfNotes.CutToClipboard;
end;
procedure TfrmMain.mnuCopyClick(Sender: TObject);
begin
sciEditor.Copy;
if ActiveControl = sciEditor then
sciEditor.Copy
else if ActiveControl = rtfNotes then
rtfNotes.CopyToClipboard;
end;
procedure TfrmMain.mnuPasteClick(Sender: TObject);
begin
sciEditor.Paste;
if ActiveControl = sciEditor then
sciEditor.Paste
else if ActiveControl = rtfNotes then
rtfNotes.PasteFromClipboard;
end;
procedure TfrmMain.mnuSelectAllClick(Sender: TObject);
begin
sciEditor.SelectAll;
if ActiveControl = sciEditor then
sciEditor.SelectAll
else if ActiveControl = rtfNotes then
rtfNotes.SelectAll;
end;
procedure TfrmMain.mnuCloseClick(Sender: TObject);