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
|
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.
|
@ -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
|
||||||
|
|
|
@ -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);
|
||||||
|
|
Loading…
Reference in New Issue
Block a user