Added a few edit functions to the notes richedit

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

View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1
MinorVer=4
Release=0
Build=15
Build=16
Debug=0
PreRelease=0
Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=AMX Mod X Dev Team
FileDescription=
FileVersion=1.4.0.15
FileVersion=1.4.0.16
InternalName=gaben
LegalCopyright=AMX Mod X Dev Team
LegalTrademarks=

Binary file not shown.

Binary file not shown.

View File

@ -4402,7 +4402,9 @@ object frmMain: TfrmMain
Width = 199
Height = 427
Align = alClient
ScrollBars = ssVertical
TabOrder = 1
WantTabs = True
OnKeyDown = rtfNotesKeyDown
OnMouseDown = rtfNotesMouseDown
end

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);