Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

because of bail I the editor unindents now on pressing }. have fun!

Browse Source 
fixed bugs... lalala

updated debug-list
This commit is contained in:
Christian Hammacher 2005-07-22 17:36:51 +00:00
parent 191824d72a
commit 1d853b5fee
2 changed files with 46 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
editor/editor2/UnitfrmMain.dfm
View File

@ -1979,6 +1979,7 @@ object frmMain: TfrmMain
Visible = False
OnDblClick = lvDebugDblClick
OnEnter = lvDebugEnter
OnMouseDown = lvDebugMouseDown
end
object ilMenu: TImageList
Left = 826
@ -5797,4 +5798,16 @@ object frmMain: TfrmMain
Left = 698
Top = 4
end
object ppmCopy: TPopupMenu
Left = 698
Top = 34
object mnuCopyItem: TMenuItem
Caption = 'Copy Item'
OnClick = mnuCopyItemClick
end
object mnuCopyAll: TMenuItem
Caption = 'Copy all'
OnClick = mnuCopyAllClick
end
end
end

34
editor/editor2/UnitfrmMain.pas
View File

@ -5,7 +5,7 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ToolWin, ActnMan, ActnCtrls, ActnMenus, ActnList,
ImgList, ComCtrls, SciDocuments, SciLexer,
ImgList, ComCtrls, SciDocuments, SciLexer, ClipBrd,
SciLexerMod, SciAutoComplete, SciCallTips, SciLexerOptionsDlg,
SciSearchReplace, StdCtrls, Tabs, Menus, ShellAPI, ScintillaLanguageManager,
SciLexerMemo, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
@ -68,6 +68,9 @@ type
acSelectAll: TAction;
acUnidenter: TAction;
acLoopGenerator: TAction;
ppmCopy: TPopupMenu;
mnuCopyItem: TMenuItem;
mnuCopyAll: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure acNewExecute(Sender: TObject);
procedure acOpenExecute(Sender: TObject);
@ -141,6 +144,10 @@ type
procedure sciEditorModified(Sender: TObject; const position,
modificationType: Integer; text: PAnsiChar; const length, linesAdded,
line, foldLevelNow, foldLevelPrev: Integer);
procedure lvDebugMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure mnuCopyItemClick(Sender: TObject);
procedure mnuCopyAllClick(Sender: TObject);
private
eSelectedTab: Integer;
eCurrentLine: Integer;
@ -149,6 +156,7 @@ type
StdAutoComplete: String; // Save this because we add special functions
StdCallTips: String; // etc. dynamically for each file
FunctionType: TStringList;
CurrItem: TListItem;
function StrLength(eStr: String): Integer;
procedure OnExceptionHandler(Sender: TObject; E: Exception);
procedure DeleteNode(Node: TTreeNode);
@ -1173,4 +1181,28 @@ begin
Result := Length(eStr);
end;
procedure TfrmMain.lvDebugMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbRight) and (Assigned(lvDebug.GetItemAt(X, Y))) then begin
CurrItem := lvDebug.GetItemAt(X, Y);
ppmCopy.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
end;
procedure TfrmMain.mnuCopyItemClick(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(CurrItem.Caption));
end;
procedure TfrmMain.mnuCopyAllClick(Sender: TObject);
var i: Integer;
eStr: String;
begin
eStr := '';
for i := lvDebug.Items.Count -1 downto 0 do
eStr := lvDebug.Items[i].Caption + #13#10 + eStr;
Clipboard.SetTextBuf(PChar(eStr));
end;
end.