GitHub/amxmodx
2
0
Fork 0
mirror of https://github.com/alliedmodders/amxmodx.git synced 2024-12-25 14:25:38 +03:00
Code Issues 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
editor/studio/AMXX_Studio.dof
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=

BIN
editor/studio/AMXX_Studio.exe
View File

Binary file not shown.

BIN
editor/studio/AMXX_Studio.res
View File

Binary file not shown.

2
editor/studio/UnitfrmMain.dfm
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

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