Added a few edit functions to the notes richedit
This commit is contained in:
parent
dc97e18955
commit
4369023394
@ -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.
@ -4402,7 +4402,9 @@ object frmMain: TfrmMain
|
||||
Width = 199
|
||||
Height = 427
|
||||
Align = alClient
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 1
|
||||
WantTabs = True
|
||||
OnKeyDown = rtfNotesKeyDown
|
||||
OnMouseDown = rtfNotesMouseDown
|
||||
end
|
||||
|
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user