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

Component update (whoa I hate delphi reinstallations)

Browse Source 
Added another feature for the Code-Explorer
This commit is contained in:
Christian Hammacher
2006-03-06 19:47:22 +00:00
parent eb7a49f6d4
commit f2b8b82515
21 changed files with 70 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
editor/studio/UnitfrmMain.pas
View File

@ -20,7 +20,7 @@ uses
ShellAPI, IdFTPCommon, IdAntiFreezeBase, IdAntiFreeze, JvComponent,
JvInspector, JvExControls, JvPluginManager, JvgLanguageLoader,
JvWndProcHook, CommCtrl, JvPageList, JvPageListTreeView,
SciSearchReplaceBase;
SciSearchReplaceBase, SpTBXControls;
type
TfrmMain = class(TForm)
@ -536,10 +536,10 @@ begin
sciEditor.WordWrap := sciNoWrap;
case frmSettings.cboCodeFolding.ItemIndex of
0: sciEditor.FoldMarkerType := sciMarkArrows;
1: sciEditor.FoldMarkerType := sciMarkBox;
2: sciEditor.FoldMarkerType := sciMarkCircle;
3: sciEditor.FoldMarkerType := sciMarkPlusMinus;
0: sciEditor.FoldMarkers.MarkerType := sciMarkArrows;
1: sciEditor.FoldMarkers.MarkerType := sciMarkBox;
2: sciEditor.FoldMarkers.MarkerType := sciMarkCircle;
3: sciEditor.FoldMarkers.MarkerType := sciMarkPlusMinus;
end;
if frmSettings.cboCodeFolding.ItemIndex = 4 then
sciEditor.Folding := sciEditor.Folding - [foldFold]
@ -1651,9 +1651,17 @@ begin
end;
procedure TfrmMain.trvExplorerDblClick(Sender: TObject);
var eFile, eTemp: String;
begin
if Assigned(trvExplorer.Selected) then begin
if (trvExplorer.Selected.ImageIndex <> 42) and (trvExplorer.Selected.ImageIndex <> 43) then begin
if (Assigned(trvExplorer.Selected.Parent)) and (trvExplorer.Selected.Parent.Text = 'Included') then begin
eFile := UpdateIncPath(trvExplorer.Selected.Text);
eTemp := odOpen.FileName;
odOpen.FileName := eFile;
mnuOpenClick(nil);
odOpen.FileName := eTemp;
end
else if (trvExplorer.Selected.ImageIndex <> 42) and (trvExplorer.Selected.ImageIndex <> 43) then begin
sciEditor.GotoLineEnsureVisible(Integer(trvExplorer.Selected.Data));
sciEditor.SetFocus;
UpdateCI(frmMain.sciEditor.GetCurrentLineNumber);
@ -2440,8 +2448,10 @@ begin
SCM_RELOADINI: ReloadIni;
SCM_SELECTLANGUAGE: SelectLanguage(eData);
SCM_LOADFILE: begin
eTemp := odOpen.FileName;
odOpen.FileName := eData;
mnuOpenClick(nil);
odOpen.FileName := eTemp;
end;
SCM_CURRPROJECTS: Msg.Result := tsMain.ActiveTabIndex;
SCM_COMPILE: mnuDoCompile.Click;