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

Binary file not shown.

Binary file not shown.

View File

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

View File

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