Component update (whoa I hate delphi reinstallations)

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

View File

@ -641,7 +641,7 @@ begin
if eConfig.ReadString('Editor', 'AutoDisable', '1500') <> '-1' then
frmSettings.txtAUDisable.Text := eConfig.ReadString('Editor', 'AutoDisable', '1500');
if foldFold in frmMain.sciEditor.Folding then begin
case frmMain.sciEditor.FoldMarkerType of
case frmMain.sciEditor.FoldMarkers.MarkerType of
sciMarkArrows: frmSettings.cboCodeFolding.ItemIndex := 0;
sciMarkBox: frmSettings.cboCodeFolding.ItemIndex := 1;
sciMarkCircle: frmSettings.cboCodeFolding.ItemIndex := 2;
@ -1017,6 +1017,8 @@ begin
frmMain.sciEditor.Colors.SelBack := clHighlight;
end;
frmMain.mnuRestoreBackup.Enabled := (FileExists(Document.FileName + '.bak')) and (not Document.Untitled);
frmMain.trvExplorer.Selected := nil;
Screen.Cursor := crDefault;
Plugin_DocChange(Document.Index, Document.FileName, Document.Highlighter, RestoreCaret, False);
end;