diff --git a/.gitattributes b/.gitattributes index 561328de08..3aeaee626a 100644 --- a/.gitattributes +++ b/.gitattributes @@ -55,6 +55,7 @@ examples/testallform.pp svneol=native#text/pascal examples/testtools.inc svneol=native#text/pascal examples/toolbar.pp svneol=native#text/pascal examples/trackbar.pp svneol=native#text/pascal +ide/codetemplatedialog.pp svneol=native#text/pascal ide/compiler.pp svneol=native#text/pascal ide/compileroptions.pp svneol=native#text/pascal ide/compreg.pp svneol=native#text/pascal @@ -62,6 +63,7 @@ ide/customformeditor.pp svneol=native#text/pascal ide/dlgmessage.lfm svneol=native#text/plain ide/dlgmessage.lrs svneol=native#text/pascal ide/dlgmessage.pp svneol=native#text/pascal +ide/editoroptions.pp svneol=native#text/pascal ide/find_dlg.pp svneol=native#text/pascal ide/formeditor.pp svneol=native#text/pascal ide/global.inc svneol=native#text/pascal diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index 852b145da5..c904ee0a2a 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -860,27 +860,33 @@ begin end; procedure TCustomSynEdit.DoCopyToClipboard(const SText: string); -{$IFNDEF SYN_LAZARUS} var +{$IFNDEF SYN_LAZARUS} Mem: HGLOBAL; P: PChar; +{$ENDIF} SLen: integer; Failed: boolean; -{$ENDIF} begin -{$IFNDEF SYN_LAZARUS} if SText <> '' then begin Failed := TRUE; // assume the worst. SLen := Length(SText); // Open and Close are the only TClipboard methods we use because TClipboard // is very hard (impossible) to work with if you want to put more than one // format on it at a time. + {$IFNDEF SYN_LAZARUS} Clipboard.Open; + {$ENDIF} try // Clear anything already on the clipboard. EmptyClipboard; // Put it on the clipboard as normal text format so it can be pasted into // things like notepad or Delphi. + {$IFDEF SYN_LAZARUS} + if SLen>0 then + ClipBoard.SetTextBuf(PChar(SText)); + Failed:=not ClipBoard.HasFormat(CF_TEXT); + {$ELSE} Mem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, SLen + 1); if Mem <> 0 then begin P := GlobalLock(Mem); @@ -916,13 +922,15 @@ begin // Don't free Mem! It belongs to the clipboard now, and it will free it // when it is done with it. end; + {$ENDIF} finally + {$IFNDEF SYN_LAZARUS} Clipboard.Close; + {$ENDIF} if Failed then raise ESynEditError.Create('Clipboard copy operation failed'); end; end; -{$ENDIF} end; procedure TCustomSynEdit.CopyToClipboard; @@ -1085,7 +1093,6 @@ destructor TCustomSynEdit.Destroy; var i: integer; begin -writeln('[TCustomSynEdit.Destroy]'); Highlighter := nil; // free listeners while other fields are still valid if Assigned(fHookedCommandHandlers) then begin @@ -1113,7 +1120,6 @@ writeln('[TCustomSynEdit.Destroy]'); fFontDummy.Free; Lines.Free; inherited Destroy; -writeln('[TCustomSynEdit.Destroy] end'); end; function TCustomSynEdit.GetBlockBegin: TPoint; @@ -1443,7 +1449,6 @@ procedure TCustomSynEdit.InvalidateLines(FirstLine, LastLine: integer); var rcInval: TRect; begin -writeln('[TCustomSynEdit.InvalidateLines] ',FirstLine,' ',LastLine); if Visible and HandleAllocated then if (FirstLine = -1) and (LastLine = -1) then begin rcInval := ClientRect; @@ -1464,8 +1469,6 @@ writeln('[TCustomSynEdit.InvalidateLines] ',FirstLine,' ',LastLine); if sfLinesChanging in fStateFlags then UnionRect(fInvalidateRect, fInvalidateRect, rcInval) else -writeln('[TCustomSynEdit.InvalidateLines] InvalidateRect ',rcInval.Left,' ',rcInval.Top - ,' ',rcInval.Right,' ',rcInval.Bottom); InvalidateRect(Handle, @rcInval, FALSE); end; end; @@ -1608,7 +1611,8 @@ begin if (fMouseDownX < fGutterWidth) then Include(fStateFlags, sfPossibleGutterClick); {$IFDEF SYN_LAZARUS} - SetFocus; + LCLLinux.SetFocus(Handle); + ShowCaret; {$ELSE} Windows.SetFocus(Handle); {$ENDIF} @@ -1699,6 +1703,7 @@ end; procedure TCustomSynEdit.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin +writeln('TCustomSynEdit.MouseUp x=',x,' y=',y); inherited MouseUp(Button, Shift, X, Y); fScrollTimer.Enabled := False; if (Button = mbRight) and (Shift = [ssRight]) and Assigned(PopupMenu) then @@ -1830,7 +1835,6 @@ var end; begin -writeln('[TCustomSynEdit.PaintGutter]'); if (FirstLine = 1) and (LastLine = 0) then LastLine := 1; // Changed to use fTextDrawer.BeginDrawing and fTextDrawer.EndDrawing only @@ -1926,7 +1930,6 @@ writeln('[TCustomSynEdit.PaintGutter]'); FreeMem(aGutterOffs); end; end; -writeln('[TCustomSynEdit.PaintGutter] end'); end; procedure TCustomSynEdit.PaintTextLines(AClip: TRect; FirstLine, LastLine, @@ -2383,7 +2386,6 @@ var { end local procedures } begin -writeln('[TCustomSynEdit.PaintTextLines]'); colEditorBG := Color; if Assigned(Highlighter) and Assigned(Highlighter.WhitespaceAttribute) then begin @@ -2447,7 +2449,6 @@ writeln('[TCustomSynEdit.PaintTextLines]'); {$ENDIF} end; end; -writeln('[TCustomSynEdit.PaintTextLines] end'); end; procedure TCustomSynEdit.Update; @@ -2457,19 +2458,19 @@ begin end; procedure TCustomSynEdit.PasteFromClipboard; -{$IFNDEF SYN_LAZARUS} var StartOfBlock: TPoint; EndOfBlock: TPoint; +{$IFNDEF SYN_LAZARUS} PasteMode: TSynSelectionMode; Mem: HGLOBAL; P: PChar; DummyTag: Integer; {$ENDIF} begin -{$IFNDEF SYN_LAZARUS} BeginUndoBlock; //mh 2000-11-20 try + {$IFNDEF SYN_LAZARUS} // Check for our special format first. if Clipboard.HasFormat(SynEditClipboardFormat) then begin Clipboard.Open; @@ -2521,7 +2522,7 @@ begin Clipboard.Close; end; // If our special format isn't there, check for regular text format. - end else if Clipboard.HasFormat(CF_TEXT) then begin + end else {$ENDIF} if Clipboard.HasFormat(CF_TEXT) then begin // Normal text is much easier... if SelAvail then begin // fUndoList.AddChange(crSelDelete, fBlockBegin, fBlockEnd, SelText, @@ -2544,7 +2545,6 @@ begin EnsureCursorPosVisible; // Selection should have changed... StatusChanged([scSelection]); -{$ENDIF} end; procedure TCustomSynEdit.SelectAll; @@ -2734,7 +2734,8 @@ begin fGutterWidth := Value; fTextOffset := fGutterWidth + 2 - (LeftChar - 1) * fCharWidth; if HandleAllocated then begin - fCharsInWindow := (ClientWidth - fGutterWidth - 2) div fCharWidth; + fCharsInWindow := (ClientWidth - fGutterWidth - + {$IFDEF SYN_LAZARUS}2 - 15{$ELSE}2{$ENDIF}) div fCharWidth; UpdateScrollBars; Invalidate; end; @@ -4647,13 +4648,11 @@ begin // vertical caret movement or selection ecUp, ecSelUp: begin -writeln('[TCustomSynEdit.ExecuteCommand] ecUp,ecSelUp'); MoveCaretVert(-1, Command = ecSelUp); Update; end; ecDown, ecSelDown: begin -writeln('[TCustomSynEdit.ExecuteCommand] ecDown,ecSelDown'); MoveCaretVert(1, Command = ecSelDown); Update; end; @@ -4722,7 +4721,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecDown,ecSelDown'); {begin} //mh 2000-10-30 ecDeleteLastChar: if not ReadOnly then begin -writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteLastChar'); if SelAvail then SetSelectedTextEmpty else begin @@ -4790,7 +4788,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteLastChar'); end; ecDeleteChar: if not ReadOnly then begin -writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteChar'); if SelAvail then SetSelectedTextEmpty else begin @@ -4826,7 +4823,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteChar'); end; ecDeleteWord, ecDeleteEOL: if not ReadOnly then begin -writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteWord,ecDeleteEOL'); Len := Length(LineText); if Command = ecDeleteWord then begin if CaretX > Len + 1 then @@ -4851,7 +4847,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteWord,ecDeleteEOL'); end; ecDeleteLastWord, ecDeleteBOL: if not ReadOnly then begin -writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteLastWord'); if Command = ecDeleteLastWord then WP := PrevWordPos else @@ -4875,7 +4870,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteLastWord'); ecDeleteLine: if not ReadOnly and not ((Lines.Count = 1) and (Length(Lines[0]) = 0)) then begin -writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteLastLine'); if SelAvail then SetBlockBegin(CaretXY); if Lines.Count = 1 then begin @@ -4897,7 +4891,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecDeleteLastLine'); ecInsertLine, ecLineBreak: if not ReadOnly then begin -writeln('[TCustomSynEdit.ExecuteCommand] ecLineBreak'); if SelAvail then begin fUndoList.AddChange(crDelete, fBlockBegin, fBlockEnd, SelText, SelectionMode); @@ -5002,7 +4995,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecLineBreak'); FindMatchingBracket; ecChar: if not ReadOnly and (AChar >= #32) and (AChar <> #127) then begin -writeln('[TCustomSynEdit.ExecuteCommand] ecChar ''',AChar,''''); if SelAvail then begin BeginUndoBlock; try @@ -5111,7 +5103,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecChar ''',AChar,''''); end; ecScrollUp: begin -writeln('[TCustomSynEdit.ExecuteCommand] ecScrollUp'); TopLine := TopLine - 1; if CaretY > TopLine + LinesInWindow - 1 then CaretY := TopLine + LinesInWindow - 1; @@ -5119,7 +5110,6 @@ writeln('[TCustomSynEdit.ExecuteCommand] ecScrollUp'); end; ecScrollDown: begin -writeln('[TCustomSynEdit.ExecuteCommand] ecScrollDown'); TopLine := TopLine + 1; if CaretY < TopLine then CaretY := TopLine; @@ -5788,8 +5778,10 @@ end; procedure TCustomSynEdit.SizeOrFontChanged(bFont: boolean); begin if HandleAllocated then begin - fCharsInWindow := (ClientWidth - fGutterWidth - 2) div fCharWidth; - fLinesInWindow := ClientHeight div fTextHeight; + fCharsInWindow := (ClientWidth - fGutterWidth - + {$IFDEF SYN_LAZARUS}15{$ELSE}2{$ENDIF}) div fCharWidth; + fLinesInWindow := (ClientHeight {$IFDEF SYN_LAZARUS}-13{$ENDIF}) + div fTextHeight; if bFont then begin if Gutter.ShowLineNumbers then GutterChanged(Self) @@ -6048,7 +6040,6 @@ end; procedure TCustomSynEdit.DestroyWnd; begin -writeln('[TCustomSynEdit.DestroyWnd]'); if (eoDropFiles in fOptions) and not (csDesigning in ComponentState) then {$IFDEF SYN_LAZARUS} // ToDo DragAcceptFiles @@ -6056,9 +6047,7 @@ writeln('[TCustomSynEdit.DestroyWnd]'); {$ELSE} DragAcceptFiles(Handle, FALSE); {$ENDIF} -writeln('[TCustomSynEdit.DestroyWnd] B'); inherited DestroyWnd; -writeln('[TCustomSynEdit.DestroyWnd] C'); end; procedure TCustomSynEdit.DoBlockIndent; diff --git a/components/synedit/syneditautocomplete.pp b/components/synedit/syneditautocomplete.pp index 3c9ab9928b..ff7e456834 100644 --- a/components/synedit/syneditautocomplete.pp +++ b/components/synedit/syneditautocomplete.pp @@ -430,6 +430,8 @@ begin if sCompl <> '' then //mg 2000-11-07 SaveEntry; end; + //Mattias + fParsed:=true; end; function TCustomSynAutoComplete.RemoveEditor(AEditor: TCustomSynEdit): boolean; diff --git a/ide/codetemplatedialog.pp b/ide/codetemplatedialog.pp new file mode 100644 index 0000000000..d78b734060 --- /dev/null +++ b/ide/codetemplatedialog.pp @@ -0,0 +1,187 @@ +{ + Author: Mattias Gaertner + + Abstract: + A dialog for adding and editing code templates + + ToDo: + -check if token already exists +} +unit CodeTemplateDialog; + +{$mode objfpc} + +interface + +uses + Classes, SysUtils, LCLLinux, LResources, Forms, Buttons, Controls, + SynEditAutoComplete, StdCtrls, SynEditKeyCmds; + +type + TCodeTemplateEditForm = class(TForm) + TokenLabel:TLabel; + TokenEdit:TEdit; + CommentLabel:TLabel; + CommentEdit:TEdit; + OkButton:TButton; + CancelButton:TButton; + procedure OkButtonClick(Sender:TObject); + public + constructor Create(AOwner:TComponent); override; + SynAutoComplete:TSynAutoComplete; + TemplateIndex:integer; + end; + +function AddCodeTemplate(ASynAutoComplete:TSynAutoComplete; + var Token,Comment:ansistring):TModalResult; +function EditCodeTemplate(ASynAutoComplete:TSynAutoComplete; + Index:integer):TModalResult; + +implementation + +function AddCodeTemplate(ASynAutoComplete:TSynAutoComplete; + var Token,Comment:ansistring):TModalResult; +var + CodeTemplateEditForm:TCodeTemplateEditForm; +begin + Result:=mrCancel; + CodeTemplateEditForm:=TCodeTemplateEditForm.Create(Application); + try + CodeTemplateEditForm.SynAutoComplete:=ASynAutoComplete; + CodeTemplateEditForm.TemplateIndex:=ASynAutoComplete.Completions.Count; + CodeTemplateEditForm.Caption:='Add code template'; + CodeTemplateEditForm.OkButton.Caption:='Add'; + CodeTemplateEditForm.TokenEdit.Text:=Token; + CodeTemplateEditForm.CommentEdit.Text:=Comment; + Result:=CodeTemplateEditForm.ShowModal; + if Result=mrOk then begin + Token:=CodeTemplateEditForm.TokenEdit.Text; + Comment:=CodeTemplateEditForm.CommentEdit.Text; + end; + finally + CodeTemplateEditForm.Free; + end; +end; + +function EditCodeTemplate(ASynAutoComplete:TSynAutoComplete; + Index:integer):TModalResult; +var + CodeTemplateEditForm:TCodeTemplateEditForm; +begin + Result:=mrCancel; + if (Index<0) or (Index>=ASynAutoComplete.Completions.Count) then exit; + CodeTemplateEditForm:=TCodeTemplateEditForm.Create(Application); + try + CodeTemplateEditForm.SynAutoComplete:=ASynAutoComplete; + CodeTemplateEditForm.TemplateIndex:=Index; + CodeTemplateEditForm.Caption:='Edit code template'; + CodeTemplateEditForm.OkButton.Caption:='Change'; + CodeTemplateEditForm.TokenEdit.Text:=ASynAutoComplete.Completions[Index]; + CodeTemplateEditForm.CommentEdit.Text:= + ASynAutoComplete.CompletionComments[Index]; + Result:=CodeTemplateEditForm.ShowModal; + if Result=mrOk then begin + ASynAutoComplete.Completions[Index]:= + CodeTemplateEditForm.TokenEdit.Text; + ASynAutoComplete.CompletionComments[Index]:= + CodeTemplateEditForm.CommentEdit.Text; + end; + finally + CodeTemplateEditForm.Free; + end; +end; + +{ TCodeTemplateEditForm } + +constructor TCodeTemplateEditForm.Create(AOwner:TComponent); +begin + inherited Create(AOwner); + if LazarusResources.Find(ClassName)=nil then begin + Width:=300; + Height:=140; + + TokenLabel:=TLabel.Create(Self); + with TokenLabel do begin + Name:='TokenLabel'; + Parent:=Self; + Caption:='Token:'; + Left:=12; + Top:=6; + Width:=Self.ClientWidth-Left-Left; + Show; + end; + + TokenEdit:=TEdit.Create(Self); + with TokenEdit do begin + Name:='TokenEdit'; + Parent:=Self; + Left:=10; + Top:=TokenLabel.Top+TokenLabel.Height+2; + Width:=Self.ClientWidth-Left-Left-4; + Text:=''; + Show; + end; + + CommentLabel:=TLabel.Create(Self); + with CommentLabel do begin + Name:='CommentLabel'; + Parent:=Self; + Caption:='Comment:'; + Left:=12; + Top:=TokenEdit.Top+TokenEdit.Height+23; + Width:=Self.ClientWidth-Left-Left; + Show; + end; + + CommentEdit:=TEdit.Create(Self); + with CommentEdit do begin + Name:='CommentEdit'; + Parent:=Self; + Left:=10; + Top:=CommentLabel.Top+CommentLabel.Height+2; + Width:=Self.ClientWidth-Left-Left-4; + Text:=''; + Show; + end; + + OkButton:=TButton.Create(Self); + with OkButton do begin + Name:='OkButton'; + Parent:=Self; + Caption:='Ok'; + OnClick:=@OkButtonClick; + Left:=50; + Top:=Self.ClientHeight-Height-12; + Width:=80; + Show; + end; + + CancelButton:=TButton.Create(Self); + with CancelButton do begin + Name:='CancelButton'; + Parent:=Self; + Caption:='Cancel'; + ModalResult:=mrCancel; + Width:=80; + Left:=Self.ClientWidth-50-Width; + Top:=Self.ClientHeight-Height-12; + Show; + end; + end; +end; + +procedure TCodeTemplateEditForm.OkButtonClick(Sender:TObject); +var a:integer; + AText,ACaption:AnsiString; +begin + a:=SynAutoComplete.Completions.IndexOf(TokenEdit.Text); + if (a<0) or (a=TemplateIndex) then + ModalResult:=mrOk + else begin + AText:=' A token '''+TokenEdit.Text+''' already exists! '; + ACaption:='Error'; + Application.MessageBox(PChar(AText),PChar(ACaption),0); + end; +end; + +end. diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp new file mode 100644 index 0000000000..527dcfe15d --- /dev/null +++ b/ide/editoroptions.pp @@ -0,0 +1,2722 @@ +unit editoroptions; +{ + Author: Mattias Gaertner + + Abstract: + Editor options container and editor options dialog. + The editor options are stored in XML format in the + ~/.lazarus/editoroptions.xml file. + Currently only for TSynEdit. + + ToDo: + - Code template deleting, value editing, saving + - key mappings + - color schemes, key mapping schemes + - Resizing + - SetSynEditSettings + - nicer TColorButton +} + +{$mode objfpc} + +interface + +{$define NEW_EDITOR_SYNEDIT} + +uses + LCLLinux, + Forms, Classes, SysUtils, ComCtrls, Buttons, StdCtrls, ExtCtrls, LazConf, + FileCtrl, Graphics, Controls, Dialogs, LResources, +{$ifdef NEW_EDITOR_SYNEDIT} + SynEdit, SynEditHighlighter, SynHighlighterPas, SynEditAutoComplete, + SynEditKeyCmds, +{$else} + mwcustomedit, mwPasSyn, mwHighlighter, +{$endif} + XMLCfg, CodeTemplateDialog; + +const + AdditionalHiglightAttributes : array[0..4] of string = ( + 'Text block', + 'Execution point', + 'Enabled breakpoint','Disabled breakpoint', + 'Error line' + ); + + +type +{$ifdef NEW_EDITOR_SYNEDIT} + TPreviewEditor = TSynEdit; + TPreviewPasSyn = TSynPasSyn; + TSynHighlightElement = TSynHighlighterAttributes; +{$else} + TPreviewEditor = TmwCustomEdit; + TPreviewPasSyn = TmwPasSyn; + TSynHighlightElement = TmwHighlightAttributes; +{$endif} + + { Editor Options object used to hold the editor options } + TEditorOptions = class(TPersistent) + private + xmlconfig:TXMLConfig; + + // general options + fSynEditOptions: TSynEditorOptions; + fUndoAfterSave:boolean; + fDoubleClickLine:boolean; + fFindTextAtCursor:boolean; + fUseSyntaxHighlight:boolean; + fCreateBackupFiles:boolean; + fBlockIndent:integer; + fUndoLimit:integer; + fTabWidths:integer; + fSyntaxExtensions:Ansistring; + + // Display options + fVisibleRightMargin:boolean; + fVisibleGutter:boolean; + fShowLineNumbers:boolean; + fGutterColor:TColor; + fGutterWidth:integer; + fRightMargin:integer; + fEditorFont:Ansistring; + fEditorFontHeight:integer; + fExtraLineSpacing:integer; + + // Key Mappings options + + // Color options + fColorScheme:Ansistring; + fTextBlockElement:TSynHighlightElement; + fExecutionPointElement:TSynHighlightElement; + fEnabledBreakPointElement:TSynHighlightElement; + fDisabledBreakPointElement:TSynHighlightElement; + fErrorLineElement:TSynHighlightElement; + + // Code Insight options + fAutoCodeCompletion:boolean; + fAutoCodeParameters:boolean; + fAutoToolTipExprEval:boolean; + fAutoToolTipSymbInsight:boolean; + fAutoDelayInMSec:integer; + fCodeTemplateFileName:Ansistring; + + public + constructor Create; + destructor Destroy; override; + procedure Load; + procedure Save; + procedure ReadAttribute(Attri:TSynHighlightElement); + procedure WriteAttribute(Attri:TSynHighlightElement); + procedure GetHighlighterSettings(PasSyn:TPreviewPasSyn); + // read highlight settings from config file + procedure SetHighlighterSettings(PasSyn:TPreviewPasSyn); + // write highlight settings to config file + procedure GetSynEditSettings(ASynEdit:TSynEdit); + // read synedit settings from config file + procedure SetSynEditSettings(ASynEdit:TSynEdit); + // write synedit settings to file + + published + // general options + property SynEditOptions:TSynEditorOptions read fSynEditOptions write fSynEditOptions + default SYNEDIT_DEFAULT_OPTIONS; + property UndoAfterSave:boolean read fUndoAfterSave write fUndoAfterSave default true; + property DoubleClickLine:boolean + read fDoubleClickLine write fDoubleClickLine default false; + property FindTextAtCursor:boolean + read fFindTextAtCursor write fFindTextAtCursor default true; + property UseSyntaxHighlight:boolean + read fUseSyntaxHighlight write fUseSyntaxHighlight default true; + property CreateBackupFiles:boolean + read fCreateBackupFiles write fCreateBackupFiles default true; + property BlockIndent:integer read fBlockIndent write fBlockIndent default 2; + property UndoLimit:integer read fUndoLimit write fUndoLimit default 32767; + property TabWidths:integer read fTabWidths write fTabWidths default 8; + property SyntaxExtensions:Ansistring read fSyntaxExtensions write fSyntaxExtensions; + + // Display options + property VisibleRightMargin:boolean + read fVisibleRightMargin write fVisibleRightMargin default true; + property VisibleGutter:boolean read fVisibleGutter write fVisibleGutter default true; + property ShowLineNumbers:boolean + read fShowLineNumbers write fShowLineNumbers default false; + property GutterColor:TColor read fGutterColor write fGutterColor default clBtnFace; + property GutterWidth:integer read fGutterWidth write fGutterWidth default 30; + property RightMargin:integer read fRightMargin write fRightMargin default 80; + property EditorFont:Ansistring read fEditorFont write fEditorFont; + property EditorFontHeight:integer read fEditorFontHeight write FEditorFontHeight; + property ExtraLineSpacing:integer + read fExtraLineSpacing write fExtraLineSpacing default 0; + + // Key Mappings + + // Color options + property ColorScheme:Ansistring read fColorScheme write fColorScheme; + property TextBlockElement:TSynHighlightElement + read fTextBlockElement write fTextBlockElement; + property ExecutionPointElement:TSynHighlightElement + read fExecutionPointElement write fExecutionPointElement; + property EnabledBreakPointElement:TSynHighlightElement + read fEnabledBreakPointElement write fEnabledBreakPointElement; + property DisabledBreakPointElement:TSynHighlightElement + read fDisabledBreakPointElement write fDisabledBreakPointElement; + property ErrorLineElement:TSynHighlightElement + read fErrorLineElement write fErrorLineElement; + + // Code Insight options + property AutoCodeCompletion:boolean + read fAutoCodeCompletion write fAutoCodeCompletion default true; + property AutoCodeParameters:boolean + read fAutoCodeParameters write fAutoCodeParameters default true; + property AutoToolTipExprEval:boolean + read fAutoToolTipExprEval write fAutoToolTipExprEval default true; + property AutoToolTipSymbInsight:boolean + read fAutoToolTipSymbInsight write fAutoToolTipSymbInsight default true; + property AutoDelayInMSec:integer + read fAutoDelayInMSec write fAutoDelayInMSec default 1000; + property CodeTemplateFileName:Ansistring + read fCodeTemplateFileName write fCodeTemplateFileName; + end; + + { color button } + TColorButton = class(TCustomControl) + private + FOnColorChanged:TNotifyEvent; + FButtonColor:TColor; + FColorDialog:TColorDialog; + protected + procedure Paint; override; + procedure MouseDown(Button:TMouseButton; Shift:TShiftState; X,Y:integer); override; + procedure SetButtonColor(Value:TColor); + published + property ButtonColor:TColor read FButtonColor write SetButtonColor; + property OnColorChanged:TNotifyEvent read FOnColorChanged write FOnColorChanged; + end; + + { Editor Options form } + TEditorOptionsForm = class(TForm) + published + MainNoteBook:TNoteBook; + PreviewPasSyn:TPreviewPasSyn; + + // general options + EditorOptionsGroupBox:TGroupBox; + AltSetsColumnModeCheckBox:TCheckBox; + AutoIndentCheckBox:TCheckBox; + DragDropEditingCheckBox:TCheckBox; + DropFilesCheckBox:TCheckBox; + HalfPageScrollCheckBox:TCheckBox; + KeepCaretXCheckBox:TCheckBox; + NoCaretCheckBox:TCheckBox; + NoSelectionCheckBox:TCheckBox; + ScrollByOneLessCheckBox:TCheckBox; + ScrollPastEofCheckBox:TCheckBox; + ScrollPastEolCheckBox:TCheckBox; + ShowScrollHintCheckBox:TCheckBox; + SmartTabsCheckBox:TCheckBox; + TabsToSpacesCheckBox:TCheckBox; + TrimTrailingSpacesCheckBox:TCheckBox; + UndoAfterSaveCheckBox:TCheckBox; + DoubleClickLineCheckBox:TCheckBox; + FindTextAtCursorCheckBox:TCheckBox; + UseSyntaxHighlightCheckBox:TCheckBox; + CreateBackupFilesCheckBox:TCheckBox; + BlockIndentComboBox:TComboBox; + BlockIndentLabel:TLabel; + UndoLimitComboBox:TComboBox; + UndoLimitLabel:TLabel; + TabWidthsComboBox:TComboBox; + TabWidthsLabel:TLabel; + SyntaxExtensionsComboBox:TComboBox; + SyntaxExtensionsLabel:TLabel; + + // Display options + MarginAndGutterGroupBox:TGroupBox; + VisibleRightMarginCheckBox:TCheckBox; + VisibleGutterCheckBox:TCheckBox; + ShowLineNumbersCheckBox:TCheckBox; + GutterColorButton:TColorButton; + GutterColorLabel:TLabel; + GutterWidthComboBox:TComboBox; + GutterWidthLabel:TLabel; + RightMarginComboBox:TComboBox; + RightMarginLabel:TLabel; + EditorFontGroupBox:TGroupBox; + EditorFontComboBox:TComboBox; + EditorFontButton:TButton; + EditorFontLabel:TLabel; + EditorFontHeightLabel:TLabel; + EditorFontHeightComboBox:TComboBox; + ExtraLineSpacingLabel:TLabel; + ExtraLineSpacingComboBox:TComboBox; + DisplayPreview:TPreviewEditor; + + // Key Mappings options + + // Color options + ColorSchemeComboBox:TComboBox; + ColorSchemeLabel:TLabel; + ColorElementLabel:TLabel; + ColorElementListBox:TListBox; + TextAttributesGroupBox:TGroupBox; + TextBoldCheckBox:TCheckBox; + TextItalicCheckBox:TCheckBox; + TextUnderlineCheckBox:TCheckBox; + ForeGroundGroupBox:TGroupBox; + ForeGroundColorButton:TColorButton; + ForeGroundUseDefaultCheckBox:TCheckBox; + BackGroundGroupBox:TGroupBox; + BackGroundColorButton:TColorButton; + BackGroundUseDefaultCheckBox:TCheckBox; + ColorPreview:TPreviewEditor; + + // Code Insight options + AutomaticFeaturesGroupBox:TGroupBox; + AutoCodeCompletionCheckBox:TCheckBox; + AutoCodeParametersCheckBox:TCheckBox; + AutoToolTipExprEvalCheckBox:TCheckBox; + AutoToolTipSymbInsightCheckBox:TCheckBox; + AutoDelayLabel:TLabel; + AutoDelayTrackBar:TTrackBar; + AutoDelayMinLabel:TLabel; + AutoDelayMaxLabel:TLabel; + CodeTemplatesGroupBox:TGroupBox; + CodeTemplateFileNameLabel:TLabel; + CodeTemplateFileNameComboBox:TComboBox; + CodeTemplateFileNameButton:TButton; + CodeTemplatesLabel:TLabel; + CodeTemplateListBox:TListBox; + CodeTemplateAddButton:TButton; + CodeTemplateEditButton:TButton; + CodeTemplateDeleteButton:TButton; + CodeTemplateCodeLabel:TLabel; + CodeTemplateCodePreview:TPreviewEditor; + SynAutoComplete:TSynAutoComplete; + + // buttons at bottom + OkButton:TButton; + CancelButton:TButton; + + // general + procedure GeneralCheckBoxOnClick(Sender: TObject); + procedure ComboBoxOnChange(Sender:TObject); + procedure ComboBoxOnExit(Sender:TObject); + procedure ComboBoxOnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure ColorButtonColorChanged(Sender:TObject); + + // display + procedure EditorFontButtonClick(Sender:TObject); + + // color + procedure ColorElementListBoxMouseUp(Sender:TObject; + Button:TMouseButton; Shift:TShiftState; X,Y:integer); + procedure ColorPreviewMouseUp(Sender:TObject; + Button:TMouseButton; Shift:TShiftState; X,Y:integer); + procedure OnSpecialLineColors(Sender: TObject; Line: integer; + var Special: boolean; var FG, BG: TColor); + + // code insight + procedure CodeTemplateListBoxMouseUp(Sender:TObject; + Button:TMouseButton; Shift:TShiftState; X,Y:integer); + procedure CodeTemplateFileNameButtonClick(Sender:TObject); + procedure CodeTemplateButtonClick(Sender:TObject); + + // buttons at bottom + procedure OkButtonClick(Sender:TObject); + procedure CancelButtonClick(Sender:TObject); + private + PreviewEdits:array[1..3] of TPreviewEditor; + AddHighlightElements:array [Low(AdditionalHiglightAttributes).. + High(AdditionalHiglightAttributes)] of TSynHighlightElement; + CurHighlightElement:TSynHighlightElement; + + procedure SetupButtonBar; + procedure SetupGeneralPage; + procedure SetupDisplayPage; + procedure SetupKeyMappingsPage; + procedure SetupColorPage; + procedure SetupCodeInsightPage; + procedure SetComboBoxText(AComboBox:TComboBox;AText:AnsiString); + procedure FillCodeTemplateListBox; + + procedure ShowCurAttribute; + procedure FindCurHighlightElement; + procedure FontDialogNameToFont(FontDialogName:string;AFont:TFont); + procedure InvalidatePreviews; + procedure ShowCurCodeTemplate; + public + constructor Create(AOwner: TComponent); override; + end; + +var + EditorOptionsForm: TEditorOptionsForm; + EditorOpts: TEditorOptions; + +function ShowEditorOptionsDialog:TModalResult; + +implementation + +function ShowEditorOptionsDialog:TModalResult; +var + EditorOptionsForm: TEditorOptionsForm; +begin + Result:=mrCancel; + EditorOptionsForm:=TEditorOptionsForm.Create(Application); + try + Result:=EditorOptionsForm.ShowModal; + finally + EditorOptionsForm.Free; + end; +end; + + +const + EditOptsConfFileName = 'editoroptions.xml'; + + ExampleSource : array[1..21] of string = ( + 'procedure TForm1.Button1Click(Sender: TObject);', + 'var', + ' Number, I, X: Integer;', + 'begin', + ' Number := 12345;', + ' Caption := ''The number is '' + IntToStr(Number);', + ' asm', + ' MOV AX,1234h', + ' MOV Number,AX', + ' end;', + ' X := 10;', + ' { Search Match, Text Block }', + ' for I := 0 to Number do { execution point }', + ' begin', + ' Inc(X); { Enabled breakpoint }', + ' Dec(X); { Disabled breakpoint }', + ' X := X + 1.0; { Error line }', + ' ListBox1.Items.Add(IntToStr(X));', + ' end;', + 'end;', + '' + ); + + +{ TEditorOptions } + +constructor TEditorOptions.Create; +var ConfFileName,SecConfFileName:string; +begin + inherited Create; + ConfFileName:=SetDirSeparators(GetPrimaryConfigPath+'/'+EditOptsConfFileName); + if (not FileExists(ConfFileName)) then begin + SecConfFileName:=SetDirSeparators( + GetSecondaryConfigPath+'/'+EditOptsConfFileName); + if (not FileExists(SecConfFileName)) then begin + // XXX + writeln('editor options config file not found'); + end else begin + ConfFileName:=SecConfFileName; + end; + end; + XMLConfig:=TXMLConfig.Create(ConfFileName); + + // set defaults + + // general options + fSyntaxExtensions:='pp;inc;lfm;lrs;pas;dpr;dfm;dpk'; + + // Display options + fEditorFont:='courier'; + + // Key Mappings options + + // Color options + fColorScheme:='Default'; + fTextBlockElement:= + TSynHighlightElement.Create(AdditionalHiglightAttributes[0]); + fExecutionPointElement:= + TSynHighlightElement.Create(AdditionalHiglightAttributes[1]); + fEnabledBreakPointElement:= + TSynHighlightElement.Create(AdditionalHiglightAttributes[2]); + fDisabledBreakPointElement:= + TSynHighlightElement.Create(AdditionalHiglightAttributes[3]); + fErrorLineElement:= + TSynHighlightElement.Create(AdditionalHiglightAttributes[4]); + + // Code Insight options + fCodeTemplateFileName:=SetDirSeparators(GetPrimaryConfigPath+'/lazarus.dci'); +end; + +destructor TEditorOptions.Destroy; +begin + fTextBlockElement.Free; + fExecutionPointElement.Free; + fEnabledBreakPointElement.Free; + fDisabledBreakPointElement.Free; + fErrorLineElement.Free; + + XMLConfig.Free; + inherited Destroy; +end; + +procedure TEditorOptions.Load; +// load options from XML file +var SynEditOpt:TSynEditorOption; + SynEditOptName:ansistring; +begin + // general options + for SynEditOpt:=Low(TSynEditorOption) to High(TSynEditorOption) do begin + case SynEditOpt of + eoAltSetsColumnMode:SynEditOptName:='AltSetsColumnMode'; + eoAutoIndent:SynEditOptName:='AutoIndent'; + eoDragDropEditing:SynEditOptName:='DragDropEditing'; + eoDropFiles:SynEditOptName:='DropFiles'; + eoHalfPageScroll:SynEditOptName:='HalfPageScroll'; + eoKeepCaretX:SynEditOptName:='KeepCaretX'; + eoNoCaret:SynEditOptName:='NoCaret'; + eoNoSelection:SynEditOptName:='NoSelection'; + eoScrollByOneLess:SynEditOptName:='ScrollByOneLess'; + eoScrollPastEof:SynEditOptName:='ScrollPastEof'; + eoScrollPastEol:SynEditOptName:='ScrollPastEol'; + eoShowScrollHint:SynEditOptName:='ShowScrollHint'; + eoSmartTabs:SynEditOptName:='SmartTabs'; + eoTabsToSpaces:SynEditOptName:='TabsToSpaces'; + eoTrimTrailingSpaces:SynEditOptName:='TrimTrailingSpaces'; + else + SynEditOptName:=''; + end; + if SynEditOptName<>'' then begin + if XMLConfig.GetValue('EditorOptions/General/Editor/'+SynEditOptName, + SynEditOpt in SYNEDIT_DEFAULT_OPTIONS) then + Include(fSynEditOptions,SynEditOpt) + else + Exclude(fSynEditOptions,SynEditOpt); + end; + end; + + fUndoAfterSave:= + XMLConfig.GetValue('EditorOptions/General/Editor/UndoAfterSave',true); + fDoubleClickLine:= + XMLConfig.GetValue('EditorOptions/General/Editor/DoubleClickLine',false); + fFindTextAtCursor:= + XMLConfig.GetValue('EditorOptions/General/Editor/FindTextAtCursor',true); + fUseSyntaxHighlight:= + XMLConfig.GetValue('EditorOptions/General/Editor/UseSyntaxHighlight',true); + fCreateBackupFiles:= + XMLConfig.GetValue('EditorOptions/General/Editor/CreateBackupFiles',true); + fBlockIndent:= + XMLConfig.GetValue('EditorOptions/General/Editor/BlockIndent',2); + fUndoLimit:= + XMLConfig.GetValue('EditorOptions/General/Editor/UndoLimit',32767); + fTabWidths:= + XMLConfig.GetValue('EditorOptions/General/Editor/TabWidths',8); + fSyntaxExtensions:= + XMLConfig.GetValue('EditorOptions/General/Editor/SyntaxExtensions' + ,'pp;inc;lfm;lfc;pas;dpr;dfm;dpk'); + + // Display options + fVisibleRightMargin:= + XMLConfig.GetValue('EditorOptions/Display/VisibleRightMargin',true); + fVisibleGutter:= + XMLConfig.GetValue('EditorOptions/Display/VisibleGutter',true); + fShowLineNumbers:= + XMLConfig.GetValue('EditorOptions/Display/ShowLineNumbers',false); + fGutterColor:= + XMLConfig.GetValue('EditorOptions/Display/GutterColor',clBtnFace); + fGutterWidth:= + XMLConfig.GetValue('EditorOptions/Display/GutterWidth',30); + fRightMargin:= + XMLConfig.GetValue('EditorOptions/Display/RightMargin',80); + fEditorFont:= + XMLConfig.GetValue('EditorOptions/Display/EditorFont','courier'); + fEditorFontHeight:= + XMLConfig.GetValue('EditorOptions/Display/EditorFontHeight',12); + fExtraLineSpacing:= + XMLConfig.GetValue('EditorOptions/Display/ExtraLineSpacing',1); + + // Key Mappings options + + // Color options + fColorScheme:= + XMLConfig.GetValue('EditorOptions/Color/ColorScheme','Default'); + ReadAttribute(fTextBlockElement); + ReadAttribute(fExecutionPointElement); + ReadAttribute(fEnabledBreakPointElement); + ReadAttribute(fDisabledBreakPointElement); + ReadAttribute(fErrorLineElement); + + // Code Insight options + fAutoCodeCompletion:= + XMLConfig.GetValue('EditorOptions/CodeInsight/AutoCodeCompletion',true); + fAutoCodeParameters:= + XMLConfig.GetValue('EditorOptions/CodeInsight/AutoCodeParameters',true); + fAutoToolTipExprEval:= + XMLConfig.GetValue('EditorOptions/CodeInsight/AutoToolTipExprEval',true); + fAutoToolTipSymbInsight:= + XMLConfig.GetValue('EditorOptions/CodeInsight/AutoToolTipSymbInsight',true); + fAutoDelayInMSec:= + XMLConfig.GetValue('EditorOptions/CodeInsight/AutoDelayInMSec',1000); + fCodeTemplateFileName:= + XMLConfig.GetValue('EditorOptions/CodeInsight/CodeTemplateFileName' + ,SetDirSeparators(GetPrimaryConfigPath+'/lazarus.dci')); +end; + +procedure TEditorOptions.Save; +// save options to XML file +var SynEditOpt:TSynEditorOption; + SynEditOptName:ansistring; +begin + // general options + for SynEditOpt:=Low(TSynEditorOption) to High(TSynEditorOption) do begin + case SynEditOpt of + eoAltSetsColumnMode:SynEditOptName:='AltSetsColumnMode'; + eoAutoIndent:SynEditOptName:='AutoIndent'; + eoDragDropEditing:SynEditOptName:='DragDropEditing'; + eoDropFiles:SynEditOptName:='DropFiles'; + eoHalfPageScroll:SynEditOptName:='HalfPageScroll'; + eoKeepCaretX:SynEditOptName:='KeepCaretX'; + eoNoCaret:SynEditOptName:='NoCaret'; + eoNoSelection:SynEditOptName:='NoSelection'; + eoScrollByOneLess:SynEditOptName:='ScrollByOneLess'; + eoScrollPastEof:SynEditOptName:='ScrollPastEof'; + eoScrollPastEol:SynEditOptName:='ScrollPastEol'; + eoShowScrollHint:SynEditOptName:='ShowScrollHint'; + eoSmartTabs:SynEditOptName:='SmartTabs'; + eoTabsToSpaces:SynEditOptName:='TabsToSpaces'; + eoTrimTrailingSpaces:SynEditOptName:='TrimTrailingSpaces'; + else + SynEditOptName:=''; + end; + if SynEditOptName<>'' then begin + XMLConfig.SetValue('EditorOptions/General/Editor/'+SynEditOptName, + SynEditOpt in fSynEditOptions); + end; + end; + + XMLConfig.SetValue('EditorOptions/General/Editor/UndoAfterSave' + ,fUndoAfterSave); + XMLConfig.SetValue('EditorOptions/General/Editor/DoubleClickLine' + ,fDoubleClickLine); + XMLConfig.SetValue('EditorOptions/General/Editor/FindTextAtCursor' + ,fFindTextAtCursor); + XMLConfig.SetValue('EditorOptions/General/Editor/UseSyntaxHighlight' + ,fUseSyntaxHighlight); + XMLConfig.SetValue('EditorOptions/General/Editor/CreateBackupFiles' + ,fCreateBackupFiles); + XMLConfig.SetValue('EditorOptions/General/Editor/BlockIndent' + ,fBlockIndent); + XMLConfig.SetValue('EditorOptions/General/Editor/UndoLimit' + ,fUndoLimit); + XMLConfig.SetValue('EditorOptions/General/Editor/TabWidths' + ,fTabWidths); + XMLConfig.SetValue('EditorOptions/General/Editor/SyntaxExtensions' + ,fSyntaxExtensions); + + // Display options + XMLConfig.SetValue('EditorOptions/Display/VisibleRightMargin' + ,fVisibleRightMargin); + XMLConfig.SetValue('EditorOptions/Display/VisibleGutter',fVisibleGutter); + XMLConfig.GetValue('EditorOptions/Display/ShowLineNumbers',fShowLineNumbers); + XMLConfig.GetValue('EditorOptions/Display/GutterColor',fGutterColor); + XMLConfig.SetValue('EditorOptions/Display/GutterWidth',fGutterWidth); + XMLConfig.SetValue('EditorOptions/Display/RightMargin',fRightMargin); + XMLConfig.SetValue('EditorOptions/Display/EditorFont',fEditorFont); + XMLConfig.GetValue('EditorOptions/Display/EditorFontHeight' + ,fEditorFontHeight); + XMLConfig.GetValue('EditorOptions/Display/ExtraLineSpacing' + ,fExtraLineSpacing); + + // Key Mappings options + + // Color options + XMLConfig.SetValue('EditorOptions/Color/ColorScheme',fColorScheme); + WriteAttribute(fTextBlockElement); + WriteAttribute(fExecutionPointElement); + WriteAttribute(fEnabledBreakPointElement); + WriteAttribute(fDisabledBreakPointElement); + WriteAttribute(fErrorLineElement); + + // Code Insight options + XMLConfig.SetValue('EditorOptions/CodeInsight/AutoCodeCompletion' + ,fAutoCodeCompletion); + XMLConfig.SetValue('EditorOptions/CodeInsight/AutoCodeParameters' + ,fAutoCodeParameters); + XMLConfig.SetValue('EditorOptions/CodeInsight/AutoToolTipExprEval' + ,fAutoToolTipExprEval); + XMLConfig.SetValue('EditorOptions/CodeInsight/AutoToolTipSymbInsight' + ,fAutoToolTipSymbInsight); + XMLConfig.SetValue('EditorOptions/CodeInsight/AutoDelayInMSec' + ,fAutoDelayInMSec); + XMLConfig.SetValue('EditorOptions/CodeInsight/CodeTemplateFileName' + ,fCodeTemplateFileName); + + XMLConfig.Flush; +end; + +procedure TEditorOptions.ReadAttribute(Attri:TSynHighlightElement); +var b:boolean; + fs:TFontStyles; + AttriName:string; + a:integer; + DefBGCol,DefFGCol:TColor; + DefFontStyles:TFontStyles; +begin + AttriName:=Attri.Name; + DefFGCol:=clNone; + DefBGCol:=clNone; + DefFontStyles:=[]; + if AttriName='Assembler' then begin + DefFGCol:=clGreen; + end else if AttriName='Comment' then begin + DefFGCol:=clBlue; + DefFontStyles:=[fsBold]; + end else if AttriName='Reserved word' then begin + DefFontStyles:=[fsBold]; + end else if AttriName='Number' then begin + DefFGCol:=clNavy; + end else if AttriName='String' then begin + DefFGCol:=clBlue; + end else if AttriName='Symbol' then begin + DefFGCol:=clRed; + end else if AttriName=AdditionalHiglightAttributes[0] then begin + DefBGCol:=clNavy; + DefFGCol:=clWhite; + end else if AttriName=AdditionalHiglightAttributes[1] then begin + DefBGCol:=clDKGray; + DefFGCol:=clWhite; + end else if AttriName=AdditionalHiglightAttributes[2] then begin + DefBGCol:=clRed; + DefFGCol:=clBlack; + end else if AttriName=AdditionalHiglightAttributes[3] then begin + DefBGCol:=clGreen; + DefFGCol:=clBlack; + end else if AttriName=AdditionalHiglightAttributes[4] then begin + DefBGCol:=$50a0ff; + DefFGCol:=clBlack; + end; + for a:=1 to length(AttriName) do + if (not (AttriName[a] in ['a'..'z','A'..'Z'])) then + AttriName[a]:='_'; + Attri.BackGround:=XMLConfig.GetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/BackgroundColor',DefBGCol); + Attri.ForeGround:=XMLConfig.GetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/ForegroundColor',DefFGCol); + fs:=[]; + b:=XMLConfig.GetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/Bold' + ,fsBold in DefFontStyles); + if b then fs:=fs+[fsBold]; + b:=XMLConfig.GetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/Italic' + ,fsItalic in DefFontStyles); + if b then fs:=fs+[fsItalic]; + b:=XMLConfig.GetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/Underline' + ,fsUnderLine in DefFontStyles); + if b then fs:=fs+[fsUnderline]; + Attri.Style:=fs; +end; + +procedure TEditorOptions.GetHighlighterSettings(PasSyn:TPreviewPasSyn); +begin + ReadAttribute(PasSyn.AsmAttri); + ReadAttribute(PasSyn.CommentAttri); + ReadAttribute(PasSyn.IdentifierAttri); + ReadAttribute(PasSyn.KeyAttri); + ReadAttribute(PasSyn.NumberAttri); + ReadAttribute(PasSyn.SpaceAttri); + ReadAttribute(PasSyn.StringAttri); + ReadAttribute(PasSyn.SymbolAttri); +end; + +procedure TEditorOptions.WriteAttribute(Attri:TSynHighlightElement); +var AttriName:string; + a:integer; +begin + AttriName:=Attri.Name; + for a:=1 to length(AttriName) do + if (not (AttriName[a] in ['a'..'z','A'..'Z'])) then + AttriName[a]:='_'; + XMLConfig.SetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/BackgroundColor' + ,Attri.BackGround); + XMLConfig.SetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/ForegroundColor' + ,Attri.ForeGround); + XMLConfig.SetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/Bold' + ,fsBold in Attri.Style); + XMLConfig.SetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/Italic' + ,fsItalic in Attri.Style); + XMLConfig.SetValue( + 'EditorOptions/Color/'+ColorScheme+'/'+AttriName+'/Underline' + ,fsUnderline in Attri.Style); +end; + +procedure TEditorOptions.SetHighlighterSettings(PasSyn:TPreviewPasSyn); +begin + WriteAttribute(PasSyn.AsmAttri); + WriteAttribute(PasSyn.CommentAttri); + WriteAttribute(PasSyn.IdentifierAttri); + WriteAttribute(PasSyn.KeyAttri); + WriteAttribute(PasSyn.NumberAttri); + WriteAttribute(PasSyn.SpaceAttri); + WriteAttribute(PasSyn.StringAttri); + WriteAttribute(PasSyn.SymbolAttri); +end; + +procedure TEditorOptions.GetSynEditSettings(ASynEdit:TSynEdit); +// read synedit setings from config file +begin + // general options + ASynEdit.Options:=fSynEditOptions; + ASynEdit.TabWidth:=fTabWidths; + + // Display options + ASynEdit.Gutter.Visible:=fVisibleGutter; + ASynEdit.Gutter.ShowLineNumbers:=fShowLineNumbers; + ASynEdit.Gutter.Color:=fGutterColor; + ASynEdit.Gutter.Width:=fGutterWidth; + ASynEdit.RightEdge:=fRightMargin; + ASynEdit.Font.Name:=fEditorFont; + ASynEdit.Font.Height:=fEditorFontHeight; + ASynEdit.ExtraLineSpacing:=fExtraLineSpacing; +end; + +procedure TEditorOptions.SetSynEditSettings(ASynEdit:TSynEdit); +// write synedit settings to file +begin + // general options + fSynEditOptions:=ASynEdit.Options; + fTabWidths:=ASynEdit.TabWidth; + + // Display options + fVisibleGutter:=ASynEdit.Gutter.Visible; + fShowLineNumbers:=ASynEdit.Gutter.ShowLineNumbers; + fGutterColor:=ASynEdit.Gutter.Color; + fGutterWidth:=ASynEdit.Gutter.Width; + fRightMargin:=ASynEdit.RightEdge; + fEditorFont:=ASynEdit.Font.Name; + fEditorFontHeight:=ASynEdit.Font.Height; + fExtraLineSpacing:=ASynEdit.ExtraLineSpacing; + + // XXX: update all checkboxes, comboboxes... +end; + + +{ TColorButton } + +procedure TColorButton.Paint; +var a:integer; +begin + inherited Paint; + with Canvas do begin + Pen.Color:=cl3DLight; + for a:=0 to BorderWidth-1 do begin + MoveTo(a,Height-a); + LineTo(a,a); + LineTo(Width-1,a); + end; + Pen.Color:=cl3DDkShadow; + for a:=0 to BorderWidth-1 do begin + MoveTo(Width-a-1,a); + LineTo(Width-a-1,Height-a-1); + MoveTo(Width-a,Height-a-1); + LineTo(a,Height-a-1); + end; + Brush.Color:=ButtonColor; + FillRect( + Rect(BorderWidth,BorderWidth,Width-BorderWidth,Height-BorderWidth)); + end; +end; + +procedure TColorButton.SetButtonColor(Value:TColor); +begin + if Value=FButtonColor then exit; + FButtonColor:=Value; + if Assigned(FOnColorChanged) then begin + FOnColorChanged(Self); + end; + Invalidate; +end; + +procedure TColorButton.MouseDown(Button:TMouseButton; Shift:TShiftState; +X,Y:integer); +begin + if FColorDialog<>nil then exit; + FColorDialog:=TColorDialog.Create(Application); + try + FColorDialog.Color:=ButtonColor; + if FColorDialog.Execute then begin + ButtonColor:=FColorDialog.Color; + Invalidate; + end; + finally + FColorDialog.Free; + FColorDialog:=nil; + end; + inherited MouseDown(Button,Shift,X,Y); +end; + +{ TEditorOptionsForm } + +constructor TEditorOptionsForm.Create(AOwner:TComponent); +var a:integer; + s:Ansistring; +begin + inherited Create(AOwner); + + if LazarusResources.Find(ClassName)=nil then begin + Height:=455; + Width:=459; + Caption:='Editor Options'; + PreviewPasSyn:=TPreviewPasSyn.Create(Self); + SynAutoComplete:=TSynAutoComplete.Create(Self); + + MainNoteBook:=TNoteBook.Create(Self); + with MainNoteBook do begin + Parent:=Self; + Top:=0; + Left:=0; + Width:=Self.Width-4; + Height:=Self.Height-50; + Pages.Strings[0]:='General'; + Pages.Add('Display'); + Pages.Add('Key Mappings'); + Pages.Add('Color'); + Pages.Add('Code Insight'); + end; + + SetupGeneralPage; + SetupDisplayPage; + SetupKeyMappingsPage; + SetupColorPage; + SetupCodeInsightPage; + + MainNoteBook.Show; + + SetupButtonBar; + end; + + EditorOpts.Load; + for a:=Low(PreviewEdits) to High(PreviewEdits) do + PreviewEdits[a]:=nil; + EditorOpts.GetHighlighterSettings(PreviewPasSyn); + + AddHighlightElements[0]:=EditorOpts.TextBlockElement; + AddHighlightElements[1]:=EditorOpts.ExecutionPointElement; + AddHighlightElements[2]:=EditorOpts.EnabledBreakPointElement; + AddHighlightElements[3]:=EditorOpts.DisabledBreakPointElement; + AddHighlightElements[4]:=EditorOpts.ErrorLineElement; + CurHighlightElement:=nil; + + with SynAutoComplete do begin + s:=EditorOpts.CodeTemplateFileName; + if FileExists(s) then + try + AutoCompleteList.LoadFromFile(s); + except + writeln('ERROR unable to read code template file ''',s,''''); + Halt; + end; + end; + + PreviewEdits[1]:=DisplayPreview; + PreviewEdits[2]:=ColorPreview; + PreviewEdits[3]:=CodeTemplateCodePreview; + for a:=Low(PreviewEdits) to High(PreviewEdits) do begin + if PreviewEdits[a]<>nil then with PreviewEdits[a] do begin + EditorOpts.GetSynEditSettings(PreviewEdits[a]); + if EditorOpts.UseSyntaxHighlight then + Highlighter:=PreviewPasSyn; + end; + end; + CodeTemplateCodePreview.Gutter.Visible:=false; + + FindCurHighlightElement; + FillCodeTemplateListBox; +// with CodeTemplateListBox do +// if Items.Count>0 then Selected[0]:=true; +// ShowCurCodeTemplate; +end; + +// general + +procedure TEditorOptionsForm.GeneralCheckBoxOnClick(Sender: TObject); +var a:integer; + NewColor:TColor; + + procedure SetOption(ACheckBox:TCheckBox;AnOption:TSynEditorOption); + var a:integer; + begin + if Sender=ACheckBox then + for a:=Low(PreviewEdits) to High(PreviewEdits) do + if PreviewEdits[a]<>nil then + if ACheckBox.Checked then + PreviewEdits[a].Options:=PreviewEdits[a].Options+[AnOption] + else + PreviewEdits[a].Options:=PreviewEdits[a].Options-[AnOption] + end; + +// GeneralCheckBoxOnClick +begin + {$IFDEF NEW_EDITOR_SYNEDIT} + // general + SetOption(AltSetsColumnModeCheckBox,eoAltSetsColumnMode); + SetOption(AutoIndentCheckBox,eoAutoIndent); + SetOption(DragDropEditingCheckBox,eoDragDropEditing); + SetOption(DropFilesCheckBox,eoDropFiles); + SetOption(HalfPageScrollCheckBox,eoHalfPageScroll); + SetOption(KeepCaretXCheckBox,eoKeepCaretX); + SetOption(NoCaretCheckBox,eoNoCaret); + SetOption(NoSelectionCheckBox,eoNoSelection); + SetOption(ScrollByOneLessCheckBox,eoScrollByOneLess); + SetOption(ScrollPastEoFCheckBox,eoScrollPastEoF); + SetOption(ScrollPastEoLCheckBox,eoScrollPastEoL); + SetOption(ShowScrollHintCheckBox,eoShowScrollHint); + SetOption(SmartTabsCheckBox,eoSmartTabs); + SetOption(TabsToSpacesCheckBox,eoTabsToSpaces); + SetOption(TrimTrailingSpacesCheckBox,eoTrimTrailingSpaces); + {$ELSE} + + {$ENDIF} + + for a:=Low(PreviewEdits) to High(PreviewEdits) do begin + if PreviewEdits[a]<>nil then begin + {$IFDEF NEW_EDITOR_SYNEDIT} + // general + if Sender=UseSyntaxHighlightCheckBox then + if UseSyntaxHighlightCheckBox.Checked then + PreviewEdits[a].Highlighter:=PreviewPasSyn + else + PreviewEdits[a].Highlighter:=nil; + // display + if (a in [1,2]) then + PreviewEdits[a].Gutter.Visible:=VisibleGutterCheckBox.Checked; + PreviewEdits[a].Gutter.ShowLineNumbers:=ShowLineNumbersCheckBox.Checked; + {$ELSE} + + {$ENDIF} + end; + end; + if CurHighlightElement<>nil then begin + if Sender=ForeGroundUseDefaultCheckBox then begin + if not ForeGroundUseDefaultCheckBox.Checked then + NewColor:=ForeGroundColorButton.Color + else + NewColor:=clNone; + if NewColor<>CurHighlightElement.Foreground then begin + CurHighlightElement.Foreground:=NewColor; + InvalidatePreviews; + end; + end; + if Sender=BackGroundUseDefaultCheckBox then begin + if not BackGroundUseDefaultCheckBox.Checked then + NewColor:=BackGroundColorButton.Color + else + NewColor:=clNone; + if NewColor<>CurHighlightElement.Background then begin + CurHighlightElement.Background:=NewColor; + InvalidatePreviews; + end; + end; + if Sender=TextBoldCheckBox then begin + if TextBoldCheckBox.Checked then begin + if not (fsBold in CurHighlightElement.Style) then begin + CurHighlightElement.Style:=CurHighlightElement.Style+[fsBold]; + InvalidatePreviews; + end; + end else begin + if (fsBold in CurHighlightElement.Style) then begin + CurHighlightElement.Style:=CurHighlightElement.Style-[fsBold]; + InvalidatePreviews; + end; + end; + end; + if Sender=TextItalicCheckBox then begin + if TextItalicCheckBox.Checked then begin + if not (fsItalic in CurHighlightElement.Style) then begin + CurHighlightElement.Style:=CurHighlightElement.Style+[fsItalic]; + InvalidatePreviews; + end; + end else begin + if (fsItalic in CurHighlightElement.Style) then begin + CurHighlightElement.Style:=CurHighlightElement.Style-[fsItalic]; + InvalidatePreviews; + end; + end; + end; + if Sender=TextUnderlineCheckBox then begin + if TextUnderlineCheckBox.Checked then begin + if not (fsUnderline in CurHighlightElement.Style) then begin + CurHighlightElement.Style:=CurHighlightElement.Style+[fsUnderline]; + InvalidatePreviews; + end; + end else begin + if (fsUnderline in CurHighlightElement.Style) then begin + CurHighlightElement.Style:=CurHighlightElement.Style-[fsUnderline]; + InvalidatePreviews; + end; + end; + end; + end; +end; + +procedure TEditorOptionsForm.ColorButtonColorChanged(Sender:TObject); +var a:integer; +begin + if Sender=ForeGroundColorButton then begin + if CurHighlightElement=nil then exit; + if not ForeGroundUseDefaultCheckBox.Checked then begin + CurHighlightElement.Foreground:=ForeGroundColorButton.ButtonColor; + InvalidatePreviews; + end; + end; + if Sender=BackGroundColorButton then begin + if CurHighlightElement=nil then exit; + if not BackGroundUseDefaultCheckBox.Checked then begin + CurHighlightElement.Background:=BackGroundColorButton.ButtonColor; + InvalidatePreviews; + end; + end; + if Sender=GutterColorButton then begin + for a:=Low(PreviewEdits) to High(PreviewEdits) do begin + if PreviewEdits[a]<>nil then begin + {$IFDEF NEW_EDITOR_SYNEDIT} + PreviewEdits[a].Gutter.Color:=GutterColorButton.ButtonColor; + PreviewEdits[a].Invalidate; + {$ELSE} + PreviewEdits[a].GutterColor:=GutterColorButton.ButtonColor; + {$ENDIF} + end; + end; + end; +end; + +procedure TEditorOptionsForm.FontDialogNameToFont(FontDialogName:string;AFont:TFont); +var TmpFont:TFont; + p,p2,index:integer; + s:shortstring; +begin + TmpFont:=TFont.Create; + TmpFont.Assign(AFont); + try + p:=1; + p2:=0; + index:=1; + while (p<=length(FontDialogName)) do begin + if(FontDialogName[p]='-') then begin + s:=copy(FontDialogName,p2+1,p-p2-1); + p2:=p; + case Index of + 3:TmpFont.Name:=s; + //8:TmpFont.Height:=StrToIntDef(s,TmpFont.Height); + end; + inc(Index); + end; + inc(p); + end; + AFont.Assign(TmpFont); + finally + TmpFont.Free; + end; +end; + +procedure TEditorOptionsForm.EditorFontButtonClick(Sender:TObject); +var FontDialog:TFontDialog; + a:integer; +begin + FontDialog:=TFontDialog.Create(Application); + try + with FontDialog do begin + if Execute then begin + EditorFontComboBox.Text:=FontName; +writeln('[TEditorOptionsForm.EditorFontButtonClick] fontname=''',FontName,''''); + for a:=Low(PreviewEdits) to High(PreviewEdits) do begin + if PreviewEdits[a]<>nil then + FontDialogNameToFont(FontName,PreviewEdits[a].Font); + end; + EditorFontComboBox.Text:=PreviewEdits[a].Font.Name; + end; + end; + finally + FontDialog.Free; + end; +end; + +procedure TEditorOptionsForm.ComboBoxOnExit(Sender:TObject); +var NewVal,a:integer; +begin + if PreviewEdits[1]<>nil then begin + // general + if Sender=BlockIndentComboBox then begin + NewVal:=StrToIntDef(BlockIndentComboBox.Text + ,PreviewEdits[1].TabWidth); + SetComboBoxText(BlockIndentComboBox,IntToStr(NewVal)); + for a:=Low(PreviewEdits) to High(PreviewEdits) do + if PreviewEdits[a]<>nil then + PreviewEdits[a].TabWidth:=NewVal; + end; + // display + if Sender=EditorFontHeightComboBox then begin + NewVal:=StrToIntDef(EditorFontHeightComboBox.Text + ,PreviewEdits[1].Font.Height); + if (NewVal<0) then + if (NewVal>-6) then + NewVal:=-6; + if (NewVal>=0) then + if (NewVal<6) then + NewVal:=6; + if (NewVal>40) then + NewVal:=40; + if (NewVal<-40) then + NewVal:=-40; + SetComboBoxText(EditorFontHeightComboBox,IntToStr(NewVal)); + for a:=Low(PreviewEdits) to High(PreviewEdits) do + if PreviewEdits[a]<>nil then + PreviewEdits[a].Font.Height:=NewVal; + end; + if Sender=ExtraLineSpacingComboBox then begin + NewVal:=StrToIntDef(ExtraLineSpacingComboBox.Text + ,PreviewEdits[1].ExtraLineSpacing); + SetComboBoxText(ExtraLineSpacingComboBox,IntToStr(NewVal)); + for a:=Low(PreviewEdits) to High(PreviewEdits) do + if PreviewEdits[a]<>nil then + PreviewEdits[a].ExtraLineSpacing:=NewVal; + end; + if Sender=GutterWidthComboBox then begin + NewVal:=StrToIntDef(GutterWidthComboBox.Text + ,PreviewEdits[1].Gutter.Width); + SetComboBoxText(GutterWidthComboBox,IntToStr(NewVal)); + for a:=Low(PreviewEdits) to High(PreviewEdits) do + if PreviewEdits[a]<>nil then + PreviewEdits[a].Gutter.Width:=NewVal; + end; + if Sender=RightMarginComboBox then begin + NewVal:=StrToIntDef(RightMarginComboBox.Text + ,PreviewEdits[1].RightEdge); + SetComboBoxText(RightMarginComboBox,IntToStr(NewVal)); + for a:=Low(PreviewEdits) to High(PreviewEdits) do + if PreviewEdits[a]<>nil then + PreviewEdits[a].RightEdge:=NewVal; + end; + end; +end; + +procedure TEditorOptionsForm.ComboBoxOnKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if (ssCtrl in Shift) and (Key=VK_S) then begin + ComboBoxOnExit(Sender); + end; +end; + +procedure TEditorOptionsForm.ComboBoxOnChange(Sender:TObject); +begin +end; + +procedure TEditorOptionsForm.FindCurHighlightElement; +var a:integer; + Old:TSynHighlightElement; +begin + Old:=CurHighlightElement; + CurHighlightElement:=nil; + a:=0; + while a select one + ColorElementListBox.Selected[0]:=true; + CurHighlightElement:=PreviewPasSyn.AsmAttri; + end; + if Old<>CurHighlightElement then + ShowCurAttribute; + if CurHighlightElement<>nil then + writeln('CurHigh: '+CurHighlightElement.Name); +end; + +procedure TEditorOptionsForm.InvalidatePreviews; +var a:integer; +begin + for a:=Low(PreviewEdits) to High(PreviewEdits) do + if PreviewEdits[a]<>nil then + PreviewEdits[a].Invalidate; +end; + +procedure TEditorOptionsForm.ShowCurAttribute; +begin + if CurHighlightElement=nil then exit; + TextBoldCheckBox.Checked:=fsBold in CurHighlightElement.Style; + TextItalicCheckBox.Checked:=fsItalic in CurHighlightElement.Style; + TextUnderlineCheckBox.Checked:=fsUnderline in CurHighlightElement.Style; + if CurHighlightElement.Foreground=clNone then begin + ForeGroundUseDefaultCheckBox.Checked:=true; + end else begin + ForeGroundUseDefaultCheckBox.Checked:=false; + ForeGroundColorButton.ButtonColor:=CurHighlightElement.Foreground; + end; + if CurHighlightElement.Background=clNone then begin + BackGroundUseDefaultCheckBox.Checked:=true; + end else begin + BackGroundUseDefaultCheckBox.Checked:=false; + BackGroundColorButton.ButtonColor:=CurHighlightElement.Background; + end; +end; + +procedure TEditorOptionsForm.ColorElementListBoxMouseUp(Sender:TObject; + Button:TMouseButton; Shift:TShiftState; X,Y:integer); +begin + FindCurHighlightElement; +end; + +procedure TEditorOptionsForm.ColorPreviewMouseUp(Sender:TObject; + Button:TMouseButton; Shift:TShiftState; X,Y:integer); +var NewIndex:integer; + AName,Token:ansistring; + Attri:TSynHighlightElement; + MouseXY,XY:TPoint; +begin + MouseXY.x:=X; + MouseXY.y:=Y; + XY:=ColorPreview.PixelsToRowColumn(MouseXY); + NewIndex:=ColorElementListBox.ItemIndex; + case ColorPreview.CaretY of + 13:NewIndex:=8; + 14:NewIndex:=9; + 16:NewIndex:=10; + 17:NewIndex:=11; + 18:NewIndex:=12; + else + XY:=ColorPreview.CaretXY; + ColorPreview.GetHighlighterAttriAtRowCol(XY,Token,Attri); + if Attri<>nil then begin + AName:=uppercase(Attri.Name); + if AName='ASSEMBLER' then NewIndex:=0 + else if AName='COMMENT' then NewIndex:=1 + else if AName='IDENTIFIER' then NewIndex:=2 + else if AName='RESERVED WORD' then NewIndex:=3 + else if AName='IDENTIFIER' then NewIndex:=4 + else if AName='NUMBER' then NewIndex:=5 + else if AName='SPACE' then NewIndex:=6 + else if AName='STRING' then NewIndex:=7 + else if AName='SYMBOL' then NewIndex:=8; + end; + end; + if NewIndex<>ColorElementListBox.ItemIndex then begin + ColorElementListBox.ItemIndex:=NewIndex; + FindCurHighlightElement; + ShowCurAttribute; + end; +end; + +procedure TEditorOptionsForm.OnSpecialLineColors(Sender: TObject; + Line: integer; var Special: boolean; var FG, BG: TColor); +var e:TSynHighlightElement; +begin + case Line of + 13:e:=EditorOpts.TextBlockElement; + 14:e:=EditorOpts.ExecutionPointElement; + 16:e:=EditorOpts.EnabledBreakPointElement; + 17:e:=EditorOpts.DisabledBreakPointElement; + 18:e:=EditorOpts.ErrorLineElement; + else e:=nil; + end; + if e<>nil then begin + Special:=true; + FG:=e.ForeGround; + BG:=e.BackGround; + end; +end; + +procedure TEditorOptionsForm.ShowCurCodeTemplate; +var i,sp,ep:integer; + s:ansistring; +begin + CodeTemplateCodePreview.Lines.Clear; + i:=0; + while isp then + CodeTemplateCodePreview.Lines.Add(copy(s,sp,ep-sp)); + break; + end; + inc(i); + end; + CodeTemplateCodePreview.Invalidate; +end; + +procedure TEditorOptionsForm.FillCodeTemplateListBox; +var a:integer; +begin + with CodeTemplateListBox do begin + Items.BeginUpdate; + Items.Clear; + for a:=0 to SynAutoComplete.Completions.Count-1 do begin + Items.Add(SynAutoComplete.Completions[a] + +' - "'+SynAutoComplete.CompletionComments[a]+'"'); + end; + Items.EndUpdate; + end; +end; + +procedure TEditorOptionsForm.CodeTemplateListBoxMouseUp(Sender:TObject; + Button:TMouseButton; Shift:TShiftState; X,Y:integer); +begin + ShowCurCodeTemplate; +end; + +procedure TEditorOptionsForm.CodeTemplateButtonClick(Sender:TObject); +var Token,Comment:ansistring; + Index:integer; +begin + if Sender=CodeTemplateAddButton then begin + Token:='new'; + Comment:='(custom)'; + if AddCodeTemplate(SynAutoComplete,Token,Comment)=mrOk then begin + SynAutoComplete.AddCompletion(Token, '', Comment); + FillCodeTemplateListBox; + Index:=SynAutoComplete.Completions.IndexOf(Token); + if Index>=0 then + CodeTemplateListBox.Selected[Index]:=true; + ShowCurCodeTemplate; + end; + end else if Sender=CodeTemplateEditButton then begin + Index:=0; + while Index=0 then + AComboBox.ItemIndex:=a + else begin + AComboBox.Items.Add(AText); + AComboBox.ItemIndex:=AComboBox.Items.IndexOf(AText); + end; +end; + +procedure TEditorOptionsForm.SetupGeneralPage; +var MaxX,ChkBoxW:integer; +begin + MaxX:=Width-9; + ChkBoxW:=(MaxX-20) div 2; + + EditorOptionsGroupBox:=TGroupBox.Create(Self); + with EditorOptionsGroupBox do begin + Name:='EditorOptionsGroupBox'; + Parent:=MainNoteBook.Page[0]; + Top:=5; + Left:=5; + Width:=MaxX-10; + Height:=24*10; + Caption:='Editor Options'; + Show; + end; + + // many, many checkboxes ... + + AltSetsColumnModeCheckBox:=TCheckBox.Create(Self); + with AltSetsColumnModeCheckBox do begin + Name:='AltSetsColumnModeCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=5; + Left:=5; + Width:=ChkBoxW; + Height:=16; + Caption:='Alt Sets Column Mode'; + Checked:=eoAltSetsColumnMode in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + AutoIndentCheckBox:=TCheckBox.Create(Self); + with AutoIndentCheckBox do begin + Name:='AutoIndentCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=AltSetsColumnModeCheckBox.Top+AltSetsColumnModeCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Auto Indent'; + Checked:=eoAutoIndent in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + DragDropEditingCheckBox:=TCheckBox.Create(Self); + with DragDropEditingCheckBox do begin + Name:='DragDropEditingCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=AutoIndentCheckBox.Top+AutoIndentCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Drag Drop Editing'; + Checked:=eoDragDropEditing in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + DropFilesCheckBox:=TCheckBox.Create(Self); + with DropFilesCheckBox do begin + Name:='DropFilesCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=DragDropEditingCheckBox.Top+DragDropEditingCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Drop Files'; + Checked:=eoDropFiles in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + HalfPageScrollCheckBox:=TCheckBox.Create(Self); + with HalfPageScrollCheckBox do begin + Name:='HalfPageScrollCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=DropFilesCheckBox.Top+DropFilesCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Half Page Scroll'; + Checked:=eoHalfPageScroll in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + KeepCaretXCheckBox:=TCheckBox.Create(Self); + with KeepCaretXCheckBox do begin + Name:='KeepCaretXCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=HalfPageScrollCheckBox.Top+HalfPageScrollCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Keep Caret X'; + Checked:=eoKeepCaretX in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + NoCaretCheckBox:=TCheckBox.Create(Self); + with NoCaretCheckBox do begin + Name:='NoCaretCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=KeepCaretXCheckBox.Top+KeepCaretXCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='No Caret'; + Checked:=eoNoCaret in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + NoSelectionCheckBox:=TCheckBox.Create(Self); + with NoSelectionCheckBox do begin + Name:='NoSelectionCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=NoCaretCheckBox.Top+NoCaretCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='No Selection'; + Checked:=eoNoSelection in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + ScrollByOneLessCheckBox:=TCheckBox.Create(Self); + with ScrollByOneLessCheckBox do begin + Name:='ScrollByOneLessCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=NoSelectionCheckBox.Top+NoSelectionCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Scroll By One Less'; + Checked:=eoScrollByOneLess in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + ScrollPastEoFCheckBox:=TCheckBox.Create(Self); + with ScrollPastEoFCheckBox do begin + Name:='ScrollPastEoFCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=ScrollByOneLessCheckBox.Top+ScrollByOneLessCheckBox.Height+5; + Left:=AltSetsColumnModeCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Scroll Past End of File'; + Checked:=eoScrollPastEoF in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + ScrollPastEoLCheckBox:=TCheckBox.Create(Self); + with ScrollPastEoLCheckBox do begin + Name:='ScrollPastEoLCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=5; + Left:=AltSetsColumnModeCheckBox.Left+(MaxX div 2)+5; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Scroll Past End of Line'; + Checked:=eoScrollPastEoL in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + ShowScrollHintCheckBox:=TCheckBox.Create(Self); + with ShowScrollHintCheckBox do begin + Name:='ShowScrollHintCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=ScrollPastEoLCheckBox.Top+ScrollPastEoLCheckBox.Height+5; + Left:=ScrollPastEoLCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Show Scroll Hint'; + Checked:=eoShowScrollHint in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + SmartTabsCheckBox:=TCheckBox.Create(Self); + with SmartTabsCheckBox do begin + Name:='SmartTabsCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=ShowScrollHintCheckBox.Top+ShowScrollHintCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Smart Tabs'; + Checked:=eoSmartTabs in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + TabsToSpacesCheckBox:=TCheckBox.Create(Self); + with TabsToSpacesCheckBox do begin + Name:='TabsToSpacesCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=SmartTabsCheckBox.Top+SmartTabsCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Tabs To Spaces'; + Checked:=eoTabsToSpaces in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + TrimTrailingSpacesCheckBox:=TCheckBox.Create(Self); + with TrimTrailingSpacesCheckBox do begin + Name:='TrimTrailingSpacesCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=TabsToSpacesCheckBox.Top+TabsToSpacesCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Trim Trailing Spaces'; + Checked:=eoTrimTrailingSpaces in EditorOpts.SynEditOptions; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + UndoAfterSaveCheckBox:=TCheckBox.Create(Self); + with UndoAfterSaveCheckBox do begin + Name:='UndoAfterSaveCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=TrimTrailingSpacesCheckBox.Top+TrimTrailingSpacesCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Undo after save'; + Checked:=EditorOpts.UndoAfterSave; + OnClick:=@GeneralCheckBoxOnClick; + Enabled:=false; + Show; + end; + + DoubleClickLineCheckBox:=TCheckBox.Create(Self); + with DoubleClickLineCheckBox do begin + Name:='DoubleClickLineCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=UndoAfterSaveCheckBox.Top+UndoAfterSaveCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Double click line'; + Checked:=EditorOpts.DoubleClickLine; + OnClick:=@GeneralCheckBoxOnClick; + Enabled:=false; + Show; + end; + + FindTextAtCursorCheckBox:=TCheckBox.Create(Self); + with FindTextAtCursorCheckBox do begin + Name:='FindTextAtCursorCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=DoubleClickLineCheckBox.Top+DoubleClickLineCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Find text at cursor'; + Checked:=EditorOpts.FindTextAtCursor; + OnClick:=@GeneralCheckBoxOnClick; + Enabled:=false; + Show; + end; + + UseSyntaxHighlightCheckBox:=TCheckBox.Create(Self); + with UseSyntaxHighlightCheckBox do begin + Name:='UseSyntaxHighlightCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=FindTextAtCursorCheckBox.Top+FindTextAtCursorCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Use syntax highlight'; + Checked:=EditorOpts.UseSyntaxHighlight; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + CreateBackupFilesCheckBox:=TCheckBox.Create(Self); + with CreateBackupFilesCheckBox do begin + Name:='CreateBackupFilesCheckBox'; + Parent:=EditorOptionsGroupBox; + Top:=UseSyntaxHighlightCheckBox.Top+UseSyntaxHighlightCheckBox.Height+5; + Left:=ShowScrollHintCheckBox.Left; + Width:=ChkBoxW; + Height:=AltSetsColumnModeCheckBox.Height; + Caption:='Create backup files'; + Checked:=EditorOpts.CreateBackupFiles; + OnClick:=@GeneralCheckBoxOnClick; + Enabled:=false; + Show; + end; + + // + + BlockIndentComboBox:=TComboBox.Create(Self); + with BlockIndentComboBox do begin + Name:='BlockIndentComboBox'; + Parent:=MainNoteBook.Page[0]; + Top:=EditorOptionsGroupBox.Top+EditorOptionsGroupBox.Height+8; + Left:=120; + Width:=70; + Items.BeginUpdate; + Items.Add('1'); + Items.Add('2'); + Items.Add('4'); + Items.Add('8'); + Items.EndUpdate; + SetComboBoxText(BlockIndentComboBox,IntToStr(EditorOpts.BlockIndent)); + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + BlockIndentLabel:=TLabel.Create(Self); + with BlockIndentLabel do begin + Name:='BlockIndentLabel'; + Parent:=MainNoteBook.Page[0]; + Top:=BlockIndentComboBox.Top+2; + Left:=EditorOptionsGroupBox.Left+2; + Width:=BlockIndentComboBox.Left-2-Left; + Caption:='Block indent:'; + Show; + end; + + UndoLimitComboBox:=TComboBox.Create(Self); + with UndoLimitComboBox do begin + Name:='UndoLimitComboBox'; + Parent:=MainNoteBook.Page[0]; + Top:=BlockIndentComboBox.Top+BlockIndentComboBox.Height+5; + Left:=BlockIndentComboBox.Left; + Width:=70; + Items.BeginUpdate; + Items.Add('32767'); + Items.Add('4096'); + Items.Add('512'); + Items.EndUpdate; + SetComboBoxText(UndoLimitComboBox,IntToStr(EditorOpts.UndoLimit)); + Enabled:=false; + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + UndoLimitLabel:=TLabel.Create(Self); + with UndoLimitLabel do begin + Name:='UndoLimitLabel'; + Parent:=MainNoteBook.Page[0]; + Top:=UndoLimitComboBox.Top+2; + Left:=EditorOptionsGroupBox.Left+2; + Width:=UndoLimitComboBox.Left-Left-2; + Caption:='Undo limit:'; + Show; + end; + + TabWidthsComboBox:=TComboBox.Create(Self); + with TabWidthsComboBox do begin + Name:='TabWidthsComboBox'; + Parent:=MainNoteBook.Page[0]; + Top:=UndoLimitComboBox.Top+UndoLimitComboBox.Height+5; + Left:=BlockIndentComboBox.Left; + Width:=70; + Items.BeginUpdate; + Items.Add('1'); + Items.Add('2'); + Items.Add('4'); + Items.Add('8'); + Items.EndUpdate; + SetComboBoxText(TabWidthsComboBox,IntToStr(EditorOpts.TabWidths)); + Enabled:=false; + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + TabWidthsLabel:=TLabel.Create(Self); + with TabWidthsLabel do begin + Name:='TabWidthsLabel'; + Parent:=MainNoteBook.Page[0]; + Top:=TabWidthsComboBox.Top+2; + Left:=EditorOptionsGroupBox.Left+2; + Width:=TabWidthsComboBox.Left-Left-2; + Caption:='Tab widths:'; + Show; + end; + + SyntaxExtensionsComboBox:=TComboBox.Create(Self); + with SyntaxExtensionsComboBox do begin + Name:='SyntaxExtensionsComboBox'; + Parent:=MainNoteBook.Page[0]; + Top:=TabWidthsComboBox.Top+TabWidthsComboBox.Height+5; + Left:=TabWidthsComboBox.Left; + Width:=200; + Items.BeginUpdate; + Items.Add('pp;pas;inc;lfm;lrs;dpr;dpm;dpk'); + Items.Add('pp;pas;inc;dpr;dpm;dpk'); + Items.Add('pp;pas;inc'); + Items.EndUpdate; + SetComboBoxText(SyntaxExtensionsComboBox,EditorOpts.SyntaxExtensions); + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + SyntaxExtensionsLabel:=TLabel.Create(Self); + with SyntaxExtensionsLabel do begin + Name:='SyntaxExtensionsLabel'; + Parent:=MainNoteBook.Page[0]; + Top:=SyntaxExtensionsComboBox.Top+2; + Left:=EditorOptionsGroupBox.Left+2; + Width:=SyntaxExtensionsComboBox.Left-Left-2; + Caption:='Syntax extensions:'; + Show; + end; +end; + +procedure TEditorOptionsForm.SetupDisplayPage; +var MaxX,MaxY,ChkBoxW,a:integer; +begin + MaxX:=Width-9; + MaxY:=375; + ChkBoxW:=140; + + MarginAndGutterGroupBox:=TGroupBox.Create(Self); + with MarginAndGutterGroupBox do begin + Name:='MarginAndGutterGroupBox'; + Parent:=MainNoteBook.Page[1]; + Top:=5; + Left:=5; + Width:=MaxX-10; + Height:=105; + Caption:='Margin and gutter'; + Show; + end; + + VisibleRightMarginCheckBox:=TCheckBox.Create(Self); + with VisibleRightMarginCheckBox do begin + Name:='VisibleRightMarginCheckBox'; + Parent:=MarginAndGutterGroupBox; + Top:=5; + Left:=5; + Width:=ChkBoxW; + Caption:='Visible right margin'; + Checked:=EditorOpts.VisibleRightMargin; + OnClick:=@GeneralCheckBoxOnClick; + Enabled:=false; + Show; + end; + + VisibleGutterCheckBox:=TCheckBox.Create(Self); + with VisibleGutterCheckBox do begin + Name:='VisibleGutterCheckBox'; + Parent:=MarginAndGutterGroupBox; + Top:=VisibleRightMarginCheckBox.Top+VisibleRightMarginCheckBox.Height+20; + Left:=VisibleRightMarginCheckBox.Left; + Width:=ChkBoxW; + Height:=VisibleRightMarginCheckBox.Height; + Caption:='Visible gutter'; + Checked:=EditorOpts.VisibleGutter; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + ShowLineNumbersCheckBox:=TCheckBox.Create(Self); + with ShowLineNumbersCheckBox do begin + Name:='ShowLineNumbersCheckBox'; + Parent:=MarginAndGutterGroupBox; + Top:=VisibleGutterCheckBox.Top+VisibleGutterCheckBox.Height+20; + Left:=VisibleGutterCheckBox.Left; + Width:=ChkBoxW; + Height:=VisibleRightMarginCheckBox.Height; + Caption:='Show line numbers'; + Checked:=EditorOpts.ShowLineNumbers; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + RightMarginComboBox:=TComboBox.Create(Self); + with RightMarginComboBox do begin + Name:='RightMarginComboBox'; + Parent:=MarginAndGutterGroupBox; + Top:=20; + Left:=150; + Width:=70; + Items.BeginUpdate; + Items.Add('80'); + Items.Add('78'); + Items.Add('76'); + Items.EndUpdate; + SetComboBoxText(RightMarginComboBox,IntToStr(EditorOpts.RightMargin)); + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + RightMarginLabel:=TLabel.Create(Self); + with RightMarginLabel do begin + Name:='RightMarginLabel'; + Parent:=MarginAndGutterGroupBox; + Top:=2; + Left:=RightMarginComboBox.Left+2; + Width:=RightMarginComboBox.Width; + Height:=16; + Caption:='Right margin'; + Show; + end; + + GutterWidthComboBox:=TComboBox.Create(Self); + with GutterWidthComboBox do begin + Name:='GutterWidthComboBox'; + Parent:=MarginAndGutterGroupBox; + Top:=RightMarginComboBox.Top; + Left:=RightMarginComboBox.Left+RightMarginComboBox.Width+50; + Width:=RightMarginComboBox.Width; + Height:=RightMarginComboBox.Height; + Items.BeginUpdate; + Items.Add('30'); + Items.Add('25'); + Items.Add('20'); + Items.EndUpdate; + SetComboBoxText(GutterWidthComboBox,IntToStr(EditorOpts.GutterWidth)); + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + GutterWidthLabel:=TLabel.Create(Self); + with GutterWidthLabel do begin + Name:='GutterWidthLabel'; + Parent:=MarginAndGutterGroupBox; + Top:=2; + Left:=GutterWidthComboBox.Left+2; + Width:=GutterWidthComboBox.Width; + Height:=16; + Caption:='Gutter width'; + Show; + end; + + GutterColorButton:=TColorButton.Create(Self); + with GutterColorButton do begin + Name:='GutterColorButton'; + Parent:=MarginAndGutterGroupBox; + Top:=GutterWidthComboBox.Top+GutterWidthComboBox.Height+20; + Left:=GutterWidthComboBox.Left; + Width:=35; + Height:=20; + BorderWidth:=2; + ButtonColor:=EditorOpts.GutterColor; + OnColorChanged:=@ColorButtonColorChanged; + Show; + end; + + GutterColorLabel:=TLabel.Create(Self); + with GutterColorLabel do begin + Name:='GutterColorLabel'; + Parent:=MarginAndGutterGroupBox; + Top:=GutterWidthComboBox.Top+GutterWidthComboBox.Height; + Left:=GutterWidthComboBox.Left+2; + Width:=100; + Caption:='Gutter color'; + Show; + end; + + EditorFontGroupBox:=TGroupBox.Create(Self); + with EditorFontGroupBox do begin + Name:='EditorFontGroupBox'; + Parent:=MainNoteBook.Page[1]; + Top:=MarginAndGutterGroupBox.Left+MarginAndGutterGroupBox.Height+5; + Left:=MarginAndGutterGroupBox.Left; + Width:=MarginAndGutterGroupBox.Width; + Height:=120; + Caption:='Default editor font'; + Show; + end; + + EditorFontComboBox:=TComboBox.Create(Self); + with EditorFontComboBox do begin + Name:='EditorFontComboBox'; + Parent:=EditorFontGroupBox; + Top:=23; + Left:=5; + Width:=EditorFontGroupBox.Width-15-Height; + SetComboBoxText(EditorFontComboBox,EditorOpts.EditorFont); + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + EditorFontButton:=TButton.Create(Self); + with EditorFontButton do begin + Name:='EditorFontButton'; + Parent:=EditorFontGroupBox; + Top:=EditorFontComboBox.Top+2; + Left:=EditorFontComboBox.Left+EditorFontComboBox.Width+3; + Width:=EditorFontComboBox.Height-5; + Height:=Width; + Caption:='...'; + OnClick:=@EditorFontButtonClick; + Show; + end; + + EditorFontLabel:=TLabel.Create(Self); + with EditorFontLabel do begin + Name:='EditorFontLabel'; + Parent:=EditorFontGroupBox; + Top:=5; + Left:=EditorFontComboBox.Left+2; + Width:=EditorFontComboBox.Width; + Caption:='Editor font'; + Show; + end; + + EditorFontHeightComboBox:=TComboBox.Create(Self); + with EditorFontHeightComboBox do begin + Name:='EditorFontHeightComboBox'; + Parent:=EditorFontGroupBox; + Top:=EditorFontComboBox.Top+EditorFontComboBox.Height+23; + Left:=EditorFontComboBox.Left; + Width:=60; + SetComboBoxText(EditorFontHeightComboBox + ,IntToStr(EditorOpts.EditorFontHeight)); + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + EditorFontHeightLabel:=TLabel.Create(Self); + with EditorFontHeightLabel do begin + Name:='EditorFontHeightLabel'; + Parent:=EditorFontGroupBox; + Top:=EditorFontHeightComboBox.Top-18; + Left:=EditorFontHeightComboBox.Left+2; + Width:=100; + Caption:='Editor font height'; + Show; + end; + + ExtraLineSpacingComboBox:=TComboBox.Create(Self); + with ExtraLineSpacingComboBox do begin + Name:='ExtraLineSpacingComboBox'; + Parent:=EditorFontGroupBox; + Top:=EditorFontHeightComboBox.Top; + Left:=EditorFontHeightComboBox.Left+EditorFontHeightComboBox.Width+100; + Width:=60; + SetComboBoxText(ExtraLineSpacingComboBox + ,IntToStr(EditorOpts.ExtraLineSpacing)); + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + ExtraLineSpacingLabel:=TLabel.Create(Self); + with ExtraLineSpacingLabel do begin + Name:='ExtraLineSpacingLabel'; + Parent:=EditorFontGroupBox; + Top:=ExtraLineSpacingComboBox.Top-18; + Left:=ExtraLineSpacingComboBox.Left+2; + Width:=100; + Caption:='Extra line spacing'; + Show; + end; + + DisplayPreview:=TPreviewEditor.Create(Self); + with DisplayPreview do begin + Name:='DisplayPreview'; + Parent:=MainNoteBook.Page[1]; + BorderStyle:=bsSizeable; + Top:=EditorFontGroupBox.Top+EditorFontGroupBox.Height+5; + Left:=EditorFontGroupBox.Left+2; + Width:=EditorFontGroupBox.Width-2; + Height:=MaxY-Top-2; + Lines.Clear; + Lines.Add('{ Preview }'); + for a:=Low(ExampleSource) to High(ExampleSource) do + Lines.Add(ExampleSource[a]); + OnSpecialLineColors:=@Self.OnSpecialLineColors; + ReadOnly:=true; + Show; + end; +end; + +procedure TEditorOptionsForm.SetupKeyMappingsPage; +begin + +end; + +procedure TEditorOptionsForm.SetupColorPage; +var a,MaxX,MaxY:integer; +begin + MaxX:=Width-9; + MaxY:=375; + + ColorSchemeComboBox:=TComboBox.Create(Self); + with ColorSchemeComboBox do begin + Name:='ColorSchemeComboBox'; + Parent:=MainNoteBook.Page[3]; + Top:=5; + Left:=100; + Width:=100; + Height:=16; + Text:=EditorOpts.ColorScheme; + Enabled:=false; + Show; + end; + + ColorSchemeLabel:=TLabel.Create(Self); + with ColorSchemeLabel do begin + Name:='ColorSchemeLabel'; + Parent:=MainNoteBook.Page[3]; + Top:=5; + Left:=5; + Width:=ColorSchemeComboBox.Left-Left; + Height:=16; + Caption:='Color Scheme'; + Show; + end; + + ColorElementLabel:=TLabel.Create(Self); + with ColorElementLabel do begin + Name:='ColorElementLabel'; + Parent:=MainNoteBook.Page[3]; + Top:=ColorSchemeComboBox.Top+ColorSchemeComboBox.Height+12; + Left:=5; + Width:=150; + Height:=16; + Caption:='Element'; + Show; + end; + + ColorElementListBox:=TListBox.Create(Self); + with ColorElementListBox do begin + Name:='ColorElementListBox'; + Parent:=MainNoteBook.Page[3]; + Top:=ColorElementLabel.Top+ColorElementLabel.Height+2; + Left:=ColorElementLabel.Left; + Width:=ColorElementLabel.Width; + Height:=160; + MultiSelect:=false; + Items.BeginUpdate; + Items.Add(PreviewPasSyn.AsmAttri.Name); + Items.Add(PreviewPasSyn.CommentAttri.Name); + Items.Add(PreviewPasSyn.IdentifierAttri.Name); + Items.Add(PreviewPasSyn.KeyAttri.Name); + Items.Add(PreviewPasSyn.NumberAttri.Name); + Items.Add(PreviewPasSyn.SpaceAttri.Name); + Items.Add(PreviewPasSyn.StringAttri.Name); + Items.Add(PreviewPasSyn.SymbolAttri.Name); + for a:=Low(AdditionalHiglightAttributes) + to High(AdditionalHiglightAttributes) do + Items.Add(AdditionalHiglightAttributes[a]); + Items.EndUpdate; + OnMouseUp:=@ColorElementListBoxMouseUp; + Selected[0]:=true; + Show; + end; + + ForeGroundGroupBox:=TGroupBox.Create(Self); + with ForeGroundGroupBox do begin + Name:='ForeGroundGroupBox'; + Parent:=MainNoteBook.Page[3]; + Top:=ColorSchemeComboBox.Top+ColorSchemeComboBox.Height+12; + Left:=ColorElementListBox.Left+ColorElementListBox.Width+12; + Width:=MaxX-5-Left; + Height:=60; + Caption:='Foreground color'; + Show; + end; + + ForeGroundColorButton:=TColorButton.Create(Self); + with ForegroundColorButton do begin + Name:='ForegroundColorButton'; + Parent:=ForeGroundGroupBox; + BorderWidth:=2; + Top:=2; + Left:=5; + Width:=70; + Height:=20; + Color:=clRed; + OnColorChanged:=@ColorButtonColorChanged; + Show; + end; + + ForeGroundUseDefaultCheckBox:=TCheckBox.Create(Self); + with ForeGroundUseDefaultCheckBox do begin + Name:='ForeGroundUseDefaultCheckBox'; + Parent:=ForeGroundGroupBox; + Top:=ForeGroundColorButton.Top+ForeGroundColorButton.Height+2; + Left:=5; + Width:=ForeGroundGroupBox.Width-Left-Left; + Height:=16; + Caption:='Use default for foreground color'; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + BackGroundGroupBox:=TGroupBox.Create(Self); + with BackGroundGroupBox do begin + Name:='BackGroundGroupBox'; + Parent:=MainNoteBook.Page[3]; + Top:=ForeGroundGroupBox.Top+ForeGroundGroupBox.Height+5; + Left:=ForeGroundGroupBox.Left; + Width:=ForeGroundGroupBox.Width; + Height:=ForeGroundGroupBox.Height; + Caption:='Background color'; + Show; + end; + + BackGroundColorButton:=TColorButton.Create(Self); + with BackgroundColorButton do begin + Name:='BackgroundColorButton'; + Parent:=BackGroundGroupBox; + BorderWidth:=2; + Top:=2; + Left:=5; + Width:=70; + Height:=20; + Color:=clBlue; + OnColorChanged:=@ColorButtonColorChanged; + Show; + end; + + BackGroundUseDefaultCheckBox:=TCheckBox.Create(Self); + with BackGroundUseDefaultCheckBox do begin + Name:='BackGroundUseDefaultCheckBox'; + Parent:=BackGroundGroupBox; + Top:=BackGroundColorButton.Top+BackGroundColorButton.Height+2; + Left:=5; + Width:=ForeGroundGroupBox.Width-Left-Left; + Height:=16; + Caption:='Use default for background color'; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + TextAttributesGroupBox:=TGroupBox.Create(Self); + with TextAttributesGroupBox do begin + Name:='TextAttributesGroupBox'; + Parent:=MainNoteBook.Page[3]; + Top:=BackGroundGroupBox.Top+BackGroundGroupBox.Height+5; + Left:=ForeGroundGroupBox.Left; + Width:=ForeGroundGroupBox.Width; + Height:=48; + Caption:='Text attributes'; + Show; + end; + + TextBoldCheckBox:=TCheckBox.Create(Self); + with TextBoldCheckBox do begin + Name:='TextBoldCheckBox'; + Parent:=TextAttributesGroupBox; + Top:=5; + Left:=5; + Width:=50; + Height:=16; + Caption:='Bold'; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + TextItalicCheckBox:=TCheckBox.Create(Self); + with TextItalicCheckBox do begin + Name:='TextItalicCheckBox'; + Parent:=TextAttributesGroupBox; + Top:=TextBoldCheckBox.Top; + Left:=TextBoldCheckBox.Left+TextBoldCheckBox.Width+5; + Width:=50; + Height:=TextBoldCheckBox.Height; + Caption:='Italic'; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + TextUnderlineCheckBox:=TCheckBox.Create(Self); + with TextUnderlineCheckBox do begin + Name:='TextUnderlineCheckBox'; + Parent:=TextAttributesGroupBox; + Top:=TextBoldCheckBox.Top; + Left:=TextItalicCheckBox.Left+TextItalicCheckBox.Width+5; + Width:=75; + Height:=TextItalicCheckBox.Height; + Caption:='Underline'; + OnClick:=@GeneralCheckBoxOnClick; + Show; + end; + + ColorPreview:=TPreviewEditor.Create(Self); + with ColorPreview do begin + Name:='ColorPreview'; + Parent:=MainNoteBook.Page[3]; + Left:=5; + Top:=TextAttributesGroupBox.Top+TextAttributesGroupBox.Height+7; + Width:=MaxX-Left-Left; + Height:=MaxY-Top-Left; + Lines.Clear; + Lines.Add('{ Syntax Highlighting }'); + for a:=Low(ExampleSource) to High(ExampleSource) do + Lines.Add(ExampleSource[a]); + OnSpecialLineColors:=@Self.OnSpecialLineColors; + OnMouseUp:=@ColorPreviewMouseUp; + ReadOnly:=true; + Show; + end; +end; + +procedure TEditorOptionsForm.SetupCodeInsightPage; +var MaxX:integer; +begin + MaxX:=Width-9; + + AutomaticFeaturesGroupBox:=TGroupBox.Create(Self); + with AutomaticFeaturesGroupBox do begin + Name:='AutomaticFeaturesGroupBox'; + Parent:=MainNoteBook.Page[4]; + Top:=5; + Left:=5; + Width:=MaxX-Left-Left; + Height:=110; + Caption:='Automatic features'; + Show; + end; + + AutoCodeCompletionCheckBox:=TCheckBox.Create(Self); + with AutoCodeCompletionCheckBox do begin + Name:='AutoCodeCompletionCheckBox'; + Parent:=AutomaticFeaturesGroupBox; + Top:=5; + Left:=5; + Width:=170; + Caption:='Code completion'; + Checked:=EditorOpts.AutoCodeCompletion; + Enabled:=false; + Show; + end; + + AutoCodeParametersCheckBox:=TCheckBox.Create(Self); + with AutoCodeParametersCheckBox do begin + Name:='AutoCodeParametersCheckBox'; + Parent:=AutomaticFeaturesGroupBox; + Top:=AutoCodeCompletionCheckBox.Top+AutoCodeCompletionCheckBox.Height+20; + Left:=AutoCodeCompletionCheckBox.Left; + Width:=AutoCodeCompletionCheckBox.Width; + Height:=AutoCodeCompletionCheckBox.Height; + Caption:='Code parameters'; + Checked:=EditorOpts.AutoCodeParameters; + Enabled:=false; + Show; + end; + + AutoToolTipExprEvalCheckBox:=TCheckBox.Create(Self); + with AutoToolTipExprEvalCheckBox do begin + Name:='AutoToolTipExprEvalCheckBox'; + Parent:=AutomaticFeaturesGroupBox; + Top:=AutoCodeParametersCheckBox.Top+AutoCodeParametersCheckBox.Height+20; + Left:=AutoCodeCompletionCheckBox.Left; + Width:=AutoCodeCompletionCheckBox.Width; + Height:=AutoCodeCompletionCheckBox.Height; + Caption:='Tooltip expression evaluation'; + Checked:=EditorOpts.AutoToolTipExprEval; + Enabled:=false; + Show; + end; + + AutoToolTipSymbInsightCheckBox:=TCheckBox.Create(Self); + with AutoToolTipSymbInsightCheckBox do begin + Name:='AutoToolTipSymbInsightCheckBox'; + Parent:=AutomaticFeaturesGroupBox; + Top:=AutoToolTipExprEvalCheckBox.Top+AutoToolTipExprEvalCheckBox.Height+20; + Left:=AutoCodeCompletionCheckBox.Left; + Width:=AutoCodeCompletionCheckBox.Width; + Height:=AutoCodeCompletionCheckBox.Height; + Caption:='Tooltip symbol insight'; + Checked:=EditorOpts.AutoToolTipSymbInsight; + Enabled:=false; + Show; + end; + + AutoDelayLabel:=TLabel.Create(Self); + with AutoDelayLabel do begin + Name:='AutoDelayLabel'; + Parent:=AutomaticFeaturesGroupBox; + Top:=10; + Left:=AutoCodeCompletionCheckBox.Left+AutoCodeCompletionCheckBox.Width+17; + Width:=70; + Caption:='Delay'; + Show; + end; + + AutoDelayTrackBar:=TTrackBar.Create(Self); + with AutoDelayTrackBar do begin + Name:='AutoDelayTrackBar'; + Parent:=AutomaticFeaturesGroupBox; + Top:=32; + Left:=AutoCodeCompletionCheckBox.Left+AutoCodeCompletionCheckBox.Width+15; + Width:=150; + Min:=2; + Max:=6; + Height:=10; + Position:=EditorOpts.AutoDelayInMSec div 250; + TickMarks:=tmBottomRight; + Show; + end; + + AutoDelayMinLabel:=TLabel.Create(Self); + with AutoDelayMinLabel do begin + Name:='AutoDelayMinLabel'; + Parent:=AutomaticFeaturesGroupBox; + Top:=AutoDelayTrackBar.Top+AutoDelayTrackBar.Height+5; + Left:=AutoCodeCompletionCheckBox.Left+AutoCodeCompletionCheckBox.Width+15; + Width:=70; + Caption:='0.5 sec'; + Show; + end; + + AutoDelayMaxLabel:=TLabel.Create(Self); + with AutoDelayMaxLabel do begin + Name:='AutoDelayMaxLabel'; + Parent:=AutomaticFeaturesGroupBox; + Top:=AutoDelayMinLabel.Top; + Left:=AutoDelayTrackBar.Left+AutoDelayTrackBar.Width-30; + Width:=70; + Caption:='1.5 sec'; + Show; + end; + + CodeTemplatesGroupBox:=TGroupBox.Create(Self); + with CodeTemplatesGroupBox do begin + Name:='CodeTemplatesGroupBox'; + Parent:=MainNoteBook.Page[4]; + Top:=AutomaticFeaturesGroupBox.Top+AutomaticFeaturesGroupBox.Height+5; + Left:=AutomaticFeaturesGroupBox.Left; + Width:=AutomaticFeaturesGroupBox.Width; + Height:=250; + Caption:='Code templates'; + Show; + end; + + CodeTemplateFileNameLabel:=TLabel.Create(Self); + with CodeTemplateFileNameLabel do begin + Name:='CodeTemplateFileNameLabel'; + Parent:=CodeTemplatesGroupBox; + Top:=5; + Left:=7; + Width:=110; + Caption:='Template file name'; + Show; + end; + + CodeTemplateFileNameComboBox:=TComboBox.Create(Self); + with CodeTemplateFileNameComboBox do begin + Name:='CodeTemplateFileNameComboBox'; + Parent:=CodeTemplatesGroupBox; + Top:=3; + Left:=CodeTemplateFileNameLabel.Left+CodeTemplateFileNameLabel.Width+2; + Width:=CodeTemplatesGroupBox.Width-12-Left-Height; + Text:=EditorOpts.CodeTemplateFileName; + OnChange:=@ComboBoxOnChange; + OnKeyDown:=@ComboBoxOnKeyDown; + OnExit:=@ComboBoxOnExit; + Show; + end; + + CodeTemplateFileNameButton:=TButton.Create(Self); + with CodeTemplateFileNameButton do begin + Name:='CodeTemplateFileNameButton'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplateFileNameComboBox.Top+2; + Width:=CodeTemplateFileNameComboBox.Height-5; + Left:=CodeTemplatesGroupBox.Width-9-Width; + Height:=Width; + Caption:='...'; + OnClick:=@CodeTemplateFileNameButtonClick; + Show; + end; + + CodeTemplatesLabel:=TLabel.Create(Self); + with CodeTemplatesLabel do begin + Name:='CodeTemplatesLabel'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplateFileNameLabel.Top+CodeTemplateFileNameLabel.Height+12; + Left:=CodeTemplateFileNameLabel.Left; + Width:=60; + Caption:='Templates'; + Show; + end; + + CodeTemplateAddButton:=TButton.Create(Self); + with CodeTemplateAddButton do begin + Name:='CodeTemplateAddButton'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplateFileNameComboBox.Top+CodeTemplateFileNameComboBox.Height+10; + Width:=50; + Left:=CodeTemplatesGroupBox.Width-Width-9; + Height:=23; + Caption:='Add...'; + OnClick:=@CodeTemplateButtonClick; + Show; + end; + + CodeTemplateEditButton:=TButton.Create(Self); + with CodeTemplateEditButton do begin + Name:='CodeTemplateEditButton'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplateAddButton.Top+CodeTemplateAddButton.Height+5; + Left:=CodeTemplateAddButton.Left; + Width:=CodeTemplateAddButton.Width; + Height:=CodeTemplateAddButton.Height; + Caption:='Edit...'; + OnClick:=@CodeTemplateButtonClick; + Show; + end; + + CodeTemplateDeleteButton:=TButton.Create(Self); + with CodeTemplateDeleteButton do begin + Name:='CodeTemplateDeleteButton'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplateEditButton.Top+CodeTemplateEditButton.Height+5; + Left:=CodeTemplateAddButton.Left; + Width:=CodeTemplateAddButton.Width; + Height:=CodeTemplateAddButton.Height; + Caption:='Delete'; + OnClick:=@CodeTemplateButtonClick; + Show; + end; + + CodeTemplateListBox:=TListBox.Create(Self); + with CodeTemplateListBox do begin + Name:='CodeTemplateListBox'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplatesLabel.Top; + Left:=CodeTemplatesLabel.Left+CodeTemplatesLabel.Width+5; + Width:=CodeTemplateEditButton.Left-5-Left; + Height:=80; + OnMouseUp:=@CodeTemplateListBoxMouseUp; + Show; + end; + + CodeTemplateCodeLabel:=TLabel.Create(Self); + with CodeTemplateCodeLabel do begin + Name:='CodeTemplateCodeLabel'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplateListBox.Top+CodeTemplateListBox.Height+5; + Left:=CodeTemplatesLabel.Left; + Width:=CodeTemplatesLabel.Width; + Height:=CodeTemplatesLabel.Height; + Caption:='Code'; + Show; + end; + + CodeTemplateCodePreview:=TPreviewEditor.Create(Self); + with CodeTemplateCodePreview do begin + Name:='CodeTemplateCodePreview'; + Parent:=CodeTemplatesGroupBox; + Top:=CodeTemplateCodeLabel.Top; + Left:=CodeTemplateCodeLabel.Left+CodeTemplateCodeLabel.Width+5; + Width:=CodeTemplateEditButton.Left-5-Left; + Height:=CodeTemplatesGroupBox.ClientHeight-20-Top; + Lines.Clear; + Gutter.Visible:=false; + Show; + end; +end; + +procedure TEditorOptionsForm.SetupButtonBar; +begin + CancelButton:=TButton.Create(Self); + with CancelButton do begin + Name:='CancelButton'; + Parent:=Self; + Width:=70; + Height:=23; + Top:=Self.height-Height-15; + Left:=Self.Width-Width-10; + Caption:='Cancel'; + OnClick:=@CancelButtonClick; + Show; + end; + + OkButton:=TButton.Create(Self); + with OkButton do begin + Name:='OkButton'; + Parent:=Self; + Width:=70; + Height:=23; + Top:=Self.height-Height-15; + Left:=CancelButton.Left-10-Width; + Caption:='Ok'; + OnClick:=@OkButtonClick; + Show; + end; +end; + +procedure TEditorOptionsForm.OkButtonClick(Sender:TObject); +var AText,ACaption:AnsiString; +begin + // save all values + + EditorOpts.SetHighlighterSettings(PreviewPasSyn); + EditorOpts.SetSynEditSettings(PreviewEdits[1]); + + // general + EditorOpts.UndoAfterSave:=UndoAfterSaveCheckBox.Checked; + EditorOpts.DoubleClickLine:=DoubleClickLineCheckBox.Checked; + EditorOpts.FindTextAtCursor:=FindTextAtCursorCheckBox.Checked; + EditorOpts.UseSyntaxHighlight:=UseSyntaxHighlightCheckBox.Checked; + EditorOpts.CreateBackupFiles:=CreateBackupFilesCheckBox.Checked; + EditorOpts.SyntaxExtensions:=SyntaxExtensionsComboBox.Text; + + // code insight + EditorOpts.AutoCodeCompletion:=AutoCodeCompletionCheckBox.Checked; + EditorOpts.AutoCodeParameters:=AutoCodeParametersCheckBox.Checked; + EditorOpts.AutoToolTipSymbInsight:=AutoToolTipSymbInsightCheckBox.Checked; + EditorOpts.AutoToolTipExprEval:=AutoToolTipExprEvalCheckBox.Checked; + EditorOpts.AutoDelayInMSec:=AutoDelayTrackBar.Position*250; + EditorOpts.CodeTemplateFileName:=CodeTemplateFileNameComboBox.Text; + + EditorOpts.Save; + + try + writeln('SAVING ',EditorOpts.CodeTemplateFileName); + SynAutoComplete.AutoCompleteList.SaveToFile( + EditorOpts.CodeTemplateFileName); + except + ACaption:='Error'; + AText:=' Unable to write code templates to file ''' + +EditorOpts.CodeTemplateFileName+'''! '; + Application.MessageBox(PChar(AText),PChar(ACaption),0); + end; + + + ModalResult:=mrOk; +end; + +procedure TEditorOptionsForm.CancelButtonClick(Sender:TObject); +begin + ModalResult:=mrCancel; +end; + +initialization + EditorOpts:=TEditorOptions.Create; + +finalization + EditorOpts.Free; EditorOpts:=nil; + +end. + diff --git a/ide/global.inc b/ide/global.inc index 6b47413f16..fb442fd47d 100644 --- a/ide/global.inc +++ b/ide/global.inc @@ -5,88 +5,14 @@ ******************************************************************************) -constructor TUnitInfo.Create; -begin - inherited Create; - Source := TStringList.Create; - Fpage := -1; - FName := ''; - FFormName := ''; -end; - -destructor TUnitInfo.Destroy; -begin - Source.Destroy; - inherited destroy; -end; - -procedure TUnitInfo.SetFormName(Value : String); -var - I : Integer; - Texts : String; - TempNum : Integer; - Replace : Boolean; - TempEdit : TmwCustomEdit; -begin -end; - -function TUnitInfo.GetFormName : String; -begin - Result := FFormName; -end; - -procedure TUnitInfo.SetPage(Value : Integer); -begin - FPage := Value; -end; - -function TUnitInfo.GetPage : Integer; -begin - Result := FPage; -end; - -{This function returns the index line number where the class definition starts} -function TUnitInfo.FindStartClass(cName: String; LineStart: Integer) : Integer; -var - I : Integer; - Texts : String; -begin - for I := LineStart to Source.Count-1 do - begin - Texts := Source.Strings[i]; - if (pos(cName, Texts) > 0) - and (pos('class', Texts) > 0) - then begin - //validate it but for now, just break; - Result := i; - Break; - end; - end; -end; - - -procedure TUnitInfo.AddProcedureLine(value : String); -var - TempEdit : TmwCustomEdit; - num,i : Integer; -begin -end; - - -procedure TUnitInfo.AddControlLine(value : String); //adds the "Edit1 : TEdit" line -var - TempEdit : TmwCustomEdit; - I : Integer; - Texts : String; - SpaceCount : Integer; - Num : Integer; - END_Found,PROC_Found, PUBLIC_Found, PRIVATE_Found : Boolean; -begin -end; { ============================================================================= $Log$ + Revision 1.3 2001/01/31 13:03:33 lazarus + Commitng source with new editor. + Shane + Revision 1.2 2000/12/19 18:43:12 lazarus Removed IDEEDITOR. This causes the PROJECT class to not function. Saving projects no longer works. diff --git a/ide/global.pp b/ide/global.pp index f83bce349f..8d9a75fe5d 100644 --- a/ide/global.pp +++ b/ide/global.pp @@ -22,48 +22,12 @@ unit global; {$mode objfpc} interface -uses - Classes,sysutils; -type - TPRojFlags = (pfProject, pfForm, pfSource, pfNone); - TUnitInfo = class(TObject) - private - FName : String; - FFormName : String; - FFileName : String; - FFlags : TProjFlags; - FSource : TStringList; - FPage : Integer; - // FForm : TDesignerForm; - Procedure SetFormName(Value : String); - Function GetFormName : String; - Procedure SetPage(Value : Integer); - Function GetPage : Integer; - public - constructor Create; - destructor Destroy; override; - Procedure AddControlLine(value : String); //adds the "Edit1 : TEdit" line - Procedure AddProcedureLine(value : String); //adds the "Procedure TFomr.Button1Click(sender: TObject);" line - Function FindStartClass(cName: String; LineStart: Integer) : Integer; - Property Name : String read FName write FName; - Property FormName: String read GetFormName write SetFormName; - Property Source : TStringList read FSource write FSource; - Property Page : Integer read GetPage write SetPage; - Property FileName : String read FFileName write FFilename; - Property Flags : TProjFlags read FFlags write FFLags; -// property Form : TDesignerForm read fform write fform; - end; - -var - ActivePage : Integer; implementation -uses - mwCustomEdit; {$I global.inc} @@ -73,6 +37,10 @@ end. { ============================================================================= $Log$ + Revision 1.5 2001/01/31 13:03:33 lazarus + Commitng source with new editor. + Shane + Revision 1.4 2000/12/19 18:43:12 lazarus Removed IDEEDITOR. This causes the PROJECT class to not function. Saving projects no longer works. diff --git a/ide/lazarus.dci b/ide/lazarus.dci new file mode 100644 index 0000000000..0beb756cf5 --- /dev/null +++ b/ide/lazarus.dci @@ -0,0 +1,133 @@ +[arrayd | array declaration (var)] +array[0..|] of ; + +[arrayc | array declaration (const)] +array[0..|] of = (); + +[cases | case statement] +case | of + : ; + : ; +end; + +[casee | case statement (with else)] +case | of + : ; + : ; +else ; +end; + +[classf | class declaration (all parts)] +T| = class(T) +private + +protected + +public + +published + +end; + +[classd | class declaration (no parts)] +T| = class(T) + +end; + +[classc | class declaration (with Create/Destroy overrides)] +T| = class(T) +private + +protected + +public + constructor Create; override; + destructor Destroy; override; +published + +end; + +[fors | for (no begin/end)] +for | := to do + +[forb | for statement] +for | := to do +begin + +end; + +[function | function declaration] +function |(): ; +begin + +end; + +[ifs | if (no begin/end)] +if | then + +[ifb | if statement] +if | then +begin + +end; + +[ife | if then (no begin/end) else (no begin/end)] +if | then + +else + +[ifeb | if then else] +if | then +begin + +end +else +begin + +end; + +[procedure | procedure declaration] +procedure |(); +begin + +end; + +[trye | try except] +try + | +except + +end; + +[tryf | try finally] +try + | +finally + +end; + +[trycf | try finally (with Create/Free)] +|variable := typename.Create; +try + +finally + variable.Free; +end; + +[whileb | while statement] +while | do +begin + +end; + +[whiles | while (no begin)] +while | do + +[withb | with statement] +with | do +begin + +end; + +[withs | with (no begin)] +with | do diff --git a/ide/lazarus.pp b/ide/lazarus.pp index 2b60f20a65..5bae41f0e2 100644 --- a/ide/lazarus.pp +++ b/ide/lazarus.pp @@ -34,8 +34,9 @@ uses compileroptions, dlgMessage, viewunit_dlg, //dialog used to list the units in a project - viewform_dlg; //dialog to display the forms in the project - + viewform_dlg, //dialog to display the forms in the project + editoroptions, + codetemplatedialog; var SplashForm: TSplashForm; @@ -56,6 +57,7 @@ begin Application.CreateForm(TViewUnits1, ViewUnits1); Application.CreateForm(TfrmCompilerOptions, frmCompilerOptions); Application.CreateForm(TViewForms1, ViewForms1); + Application.CreateForm(TEditorOptionsForm,EditorOptionsForm ); SplashForm.StartTimer; Application.Run; end. @@ -63,6 +65,10 @@ end. { $Log$ + Revision 1.12 2001/01/31 13:03:33 lazarus + Commitng source with new editor. + Shane + Revision 1.11 2001/01/16 23:30:45 lazarus trying to determine what's crashing LAzarus on load. Shane diff --git a/ide/main.pp b/ide/main.pp index ce6f1df967..0cc7aa6fb5 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -33,7 +33,7 @@ uses Spin, project,sysutils, compileroptions, Controls, graphics, extctrls, Dialogs, dlgMEssage, process, idecomp, Find_dlg, FormEditor, AbstractFormEditor, - CustomFormEditor,ObjectInspector, ControlSelection, PropEdits, UnitEditor, + CustomFormEditor,ObjectInspector, ControlSelection, PropEdits, UnitEditor, EditorOptions,CodeTemplateDialog, CompReg; const @@ -147,6 +147,8 @@ type procedure mnuSearchFindClicked(Sender : TObject); procedure mnuSearchFindAgainClicked(Sender : TObject); + procedure mnuEnvironmentOptionsClicked(Sender : TObject); + Procedure OpenFileDownArrowClicked(Sender : TObject); Procedure FileClosedEvent(Sender : TObject; Filename : String); Procedure FileOpenedEvent(Sender : TObject; Filename : String); @@ -173,7 +175,6 @@ type procedure ButtonCLick(Sender : TObject); procedure ToolButtonCLick(Sender : TObject); // Procedure Paint; override; - Function ReturnFormName(Source : TStringList) : String; public constructor Create(AOwner: TComponent); override; @@ -980,6 +981,8 @@ begin itmEnvironmentOptions := TMenuItem.Create(nil); itmEnvironmentOptions.Caption := 'Options'; + itmEnvironmentOptions.OnCLick := @mnuEnvironmentOptionsClicked; + mnuEnvironment.Add(itmEnvironmentOptions); end; {------------------------------------------------------------------------------} @@ -1036,26 +1039,17 @@ Begin {what now???} end; + + {------------------------------------------------------------------------------} {Fills the View Units dialog and the View Forms dialog} {------------------------------------------------------------------------------} Procedure TMainIDE.UpdateViewDialogs; -Var -I : Integer; -//SList : TUnitInfo; Begin ViewUnits1.Listbox1.Items.Clear; ViewForms1.Listbox1.Items.Clear; -{ -For I := 0 to Project.UnitList.Count -1 do - Begin - SList := TUnitInfo(Project.UnitList.Items[I]); - ViewUnits1.Listbox1.Items.Add(SList.Name); - if SList.FormName <> '' then - ViewForms1.Listbox1.Items.Add(SList.FormName); - end; -} + End; {------------------------------------------------------------------------------} @@ -1247,6 +1241,9 @@ begin FormEditor1.AddSelected(TComponent(CInterface.Control)); end; + +{------------------------------------------------------------------------------} + {------------------------------------------------------------------------------} {------------------------------------------------------------------------------} {----------------OpenFileDownArrowClicked--------------------------------------} @@ -1399,9 +1396,16 @@ procedure TMainIDE.mnuQuitClicked(Sender : TObject); var I : Integer; begin +//if there is a project loaded, check if it should be saved + +//free the unitlist objects +if Project.UnitList.Count > 0 then + For I := 0 to Project.UnitList.Count -1 do + Begin + + end; //if there is a project loaded, check if it should be saved Project.Free; - Close; end; @@ -1465,8 +1469,82 @@ End; {------------------------------------------------------------} Procedure TMainIDE.mnuNewProjectClicked(Sender : TObject); +var + Proj_Info : TUnitInfo; + tempSource : TStrings; Begin Assert(False, 'Trace:New Project Clicked'); + //See if a project is loaded + If Project.ProjectFile <> '' then + Begin + //save and close the project + end; + + //Create a new project + + Project.ProjectFile := 'Project1.lpr'; + Project.MainUnit := 'Unit1'; + Project.Title := 'Project1'; + TempSource := TStringList.Create; + TempSource.Add('Program Project1;'); + TempSource.Add(''); + tempSource.Add('{$mode objfpc}'); + TempSource.Add(''); + TempSource.Add('uses forms,'); + TempSource.Add(' Unit1 in ''Unit1.pp'' {Form1}'); + TempSource.Add(''); + TempSource.Add('begin'); + TempSource.Add(' Application.Initialize;'); + TempSource.Add(' Application.CreateForm(TForm1, Form1);'); + TempSource.Add(' Application.Run;'); + TempSource.Add('end.'); + SourceNotebook.NewFile('Project1',TempSource,True); + + Proj_Info := TUnitInfo.Create; + with Proj_Info do + Begin + UnitName := 'Project1'; + //?? + end; + + Project.AddUnit(Proj_Info); + +//create first form file + + TempSource.Clear; + TempSource.Add('unit Unit1;'); + TempSource.Add(''); + tempSource.Add('{$mode objfpc}'); + TempSource.Add('interface'); + TempSource.Add('uses Classes, Graphics, Controls, Forms, Dialogs;'); + TempSource.Add(''); + TempSource.Add('type'); + TempSource.Add(' TForm1 = class(TFORM)'); + TempSource.Add(' private'); + TempSource.Add(' { private declarations }'); + TempSource.Add(' public'); + TempSource.Add(' { public declarations }'); + TempSource.Add(' end;'); + TempSource.Add(''); + TempSource.Add('var'); + TempSource.Add(' Form1 : TForm1;'); + TempSource.Add(''); + TempSource.Add('implementation'); + TempSource.Add(''); + TempSource.Add('end.'); + + SourceNotebook.NewFile('Unit1',TempSource,True); + + Proj_Info := TUnitInfo.Create; + with Proj_Info do + Begin + UnitName := 'Unit1'; + //?? + end; + + Project.AddUnit(Proj_Info); + Project.ProjectInfoFile := 'Project1.cfg'; + end; Procedure TMainIDE.mnuOpenProjectClicked(Sender : TObject); @@ -1477,6 +1555,7 @@ end; Procedure TMainIDE.mnuSaveProjectClicked(Sender : TObject); Begin Assert(False, 'Trace:Save Project Clicked'); + Project.WriteProject; end; procedure TMainIDE.mnuSaveProjectAsClicked(Sender : TObject); @@ -1551,127 +1630,11 @@ begin //frmProjectOptions.Show; end; -Function TMainIDE.ReturnFormName(Source : TStringlist) : String; -Var - I : Integer; - Num,Num2 : Integer; - Found : Boolean; - Texts : String; - Temp : String; - Temp2 : String; +procedure TMainIDE.mnuEnvironmentOptionsClicked(Sender : TObject); Begin - //Assert(False, 'Trace:************************************************'); - //Assert(False, 'Trace:************************************************'); - //Assert(False, 'Trace:************************************************'); - //Assert(False, 'Trace:************************************************'); - //Assert(False, 'Trace:************************************************'); + EditorOptionsForm.ShowModal; +End; - //move to TUnitInfo - //parse file for the first class(TForm) I guess - Found := False; - for I := 0 to Source.Count-1 do - Begin - Num := pos(uppercase('class(TForm)'),uppercase(Source.Strings[I])); - if Num <> 0 then - Begin - Temp := Source.Strings[i]; - //pull out class name - Texts := ''; - for Num2 := 1 to length(Temp) do - Begin - if (Temp[num2] in ['a'..'z']) or (Temp[num2] in ['A'..'Z']) or (Temp[num2] in ['0'..'1'])then - Texts := Texts + Temp[num2] - else - if Length(Texts) <> 0 then Break; - end; - temp := Texts; - // Assert(False, 'Trace:*******************'); - // Assert(False, 'Trace:Temp := '+Temp); - Found := True; - Break; - end; - end; - if Found then - Begin - {Temp now holds TFORM1 or whatever the name of the class is} - {Search for the var statement from the I line down} - Texts := ''; - Num := I; - - for I := Num to Source.Count-1 do - Begin - Found := False; - Num := pos('VAR',uppercase(Source.Strings[I])); - if Num <> 0 then - Begin - Temp2 := Source.Strings[I]; - //Check around the VAR to see either spaces or begin/end of line - if (Length(Temp2) = 3) then - Begin - Found := True; - // Assert(False, 'Trace:1'); - Num := I; - Break; - end; - - //var in the beginning of a sentence - if (Num = 1) and ( not ( (Temp2[4] in CapLetters) or (Temp2[4] in SmallLetters) or (Temp2[4] in Numbers))) then - Begin - Found := True; - Num := I; - // Assert(False, 'Trace:2'); - Break; - end; - - if ((Num+2) = length(Temp2)) and not ( (Temp2[Num-1] in CapLetters) or (Temp2[Num-1] in SmallLetters) or (Temp2[Num-1] in Numbers)) then - Begin - Found := True; - Num := I; - // Assert(False, 'Trace:3'); - Break; - end; - - - if not ( (Temp2[Num-1] in CapLetters) or (Temp2[Num-1] in SmallLetters) or (Temp2[Num-1] in Numbers)) and not ( (Temp2[Num+3] in CapLetters) or (Temp2[Num+3] in SmallLetters) or (Temp2[Num+3] in Numbers)) then - Begin - Found := True; - Num := I; - // Assert(False, 'Trace:4'); - Break; - end; - end; - end; - - end; - Assert(False, 'Trace:Length of temp2 is '+inttostr(Length(Temp2))); - - if Found then - begin - for I := Num to Source.Count-1 do - Begin - Found := False; - Num := pos(uppercase(temp),uppercase(Source.Strings[I])); - if num <> 0 then - begin - num2 := pos(':', Source.Strings[i]); - if num2 <> 0 then - Begin - Temp2 := Source.Strings[i]; - for num := 1 to num2 do - Begin - if (Temp2[num] in ['a'..'z']) or (Temp2[num] in ['A'..'Z']) or (Temp2[num] in ['0'..'1'])then - Texts := Texts + Temp2[num] - else - if Length(Texts) <> 0 then Break; - end; - break; - end; - end; - end; - end; - - result := Texts; -end; Procedure TMainIDE.MessageViewDblClick(Sender : TObject); Begin @@ -1691,6 +1654,10 @@ end. { ============================================================================= $Log$ + Revision 1.52 2001/01/31 13:03:33 lazarus + Commitng source with new editor. + Shane + Revision 1.51 2001/01/31 06:25:35 lazarus Removed global unit. Removed and commented all references to TUnitInfo. diff --git a/ide/project.pp b/ide/project.pp index 1b57b06726..24eaa53961 100644 --- a/ide/project.pp +++ b/ide/project.pp @@ -390,10 +390,12 @@ end; procedure TProject.AddUnit(AUnit: TUnitInfo); begin if (AUnit <> nil) then UnitList.Add(AUnit); + { TODO: Add the unit to the .lpr file. Add an AutoCreate method call to the .lpr file for the unit. } + end; {------------------------------------------------------------------------------ @@ -446,7 +448,7 @@ begin if (ProjectInfoFile = '') then exit; confPath := GetPrimaryConfigPath + '/' + ProjectInfoFile; - + Writeln('[TPRoject] confPath = '+ConfPath); // See if config path exists and if not create it if (not DirectoryExists(GetPrimaryConfigPath)) then begin @@ -474,6 +476,10 @@ end; end. { $Log$ + Revision 1.6 2001/01/31 13:03:33 lazarus + Commitng source with new editor. + Shane + Revision 1.5 2001/01/31 06:28:41 lazarus Removed global unit. Renamed TProjectUnitInfo to TUnitInfo. diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp index a9732be2bc..3fb329a880 100644 --- a/ide/uniteditor.pp +++ b/ide/uniteditor.pp @@ -23,7 +23,7 @@ } //{$DEFINE NEW_EDITOR} -//{$DEFINE NEW_EDITOR_SYNEDIT} +{$DEFINE NEW_EDITOR_SYNEDIT} unit UnitEditor; {$mode objfpc} @@ -31,9 +31,10 @@ unit UnitEditor; interface uses - classes, Controls, forms,buttons,sysutils,Dialogs,FormEditor, + classes, Controls, forms,buttons,comctrls,sysutils,Dialogs,FormEditor, {$ifdef NEW_EDITOR_SYNEDIT} - synedit,SysHighlighterpas, + SynEdit, SynEditHighlighter, SynHighlighterPas, SynEditAutoComplete, + SynEditKeyCmds, {$else} mwcustomedit,mwPasSyn, {$endif} @@ -60,8 +61,8 @@ type //FAOwner is normally a TSourceNotebook. This is set in the Create constructor. FAOwner : TComponent; {$ifdef NEW_EDITOR_SYNEDIT} - FHighlighter: TSynPasSyn; - FEditor : TSynEditor + FEditor : TSynEdit; + FSynAutoComplete: TSynAutoComplete; {$else} FHighlighter: TmwPasSyn; FEditor : TmwCustomEdit; @@ -81,6 +82,9 @@ type // Used GetModified like this -> Result := FEditor.Modified FModified : Boolean; + // Used GetReadolny like this -> Result := FEditor.Readonly + FReadOnly : Boolean; + //created during the constructor. This is the popup you see when right-clicking on the editor FPopUpMenu : TPopupMenu; @@ -96,6 +100,8 @@ type FOnBeforeClose : TNotifyEvent; FOnBeforeOpen : TNotifyEvent; FOnBeforeSave : TNotifyEvent; + FOnEditorChange: TNotifyEvent; + FVisible : Boolean; Procedure BuildPopupMenu; Function GetSource : TStrings; @@ -106,6 +112,8 @@ type Procedure SetCurrentCursorYLine(num : Integer); Function GetAncestor : String; Function GetModified : Boolean; + Function GetInsertMode : Boolean; + Function GetReadonly : Boolean; Function TextUnderCursor : String; Function GotoMethod(Value : String) : Integer; Function GotoMethodDeclaration(Value : String) : Integer; @@ -121,15 +129,22 @@ type Procedure BookMarkGotoClicked(Sender : TObject); Procedure ReadOnlyClicked(Sender : TObject); Procedure ToggleBreakpointClicked(Sender : TObject); + Procedure ToggleLineNumbersClicked(Sender : TObject); Procedure OpenAtCursorClicked(Sender : TObject); Procedure BookMarkToggle(Value : Integer); Procedure BookMarkGoto(Value : Integer); + + Procedure EditorKeyDown(Sender : TObject; var Key: Word; Shift : TShiftState); Procedure EditorKeyUp(Sender : TObject; var Key: Word; Shift : TShiftState); - property Editor : TmwCustomEdit read FEditor; + Procedure FocusEditor; //called by TSourceNotebook whne the Notebook page changes so the editor is focused + Procedure EditorStatusChanged(Sender: TObject; Changes: TSynStatusChanges); + + property Editor : TmwCustomEdit read FEditor; + property Visible : Boolean read FVisible write FVisible default False; public constructor Create(AOwner : TComponent; AParent : TWinControl); destructor Destroy; override; @@ -148,9 +163,11 @@ type property CurrentCursorYLine : Integer read GetCurrentCursorYLine write SetCurrentCursorYLine; property Owner : TComponent read FAOwner; property Source : TStrings read GetSource write SetSource; - property UnitName : String read FUnitName; + property UnitName : String read FUnitName write FUnitname; property FileName : String read FFileName write FFilename; property Modified : Boolean read GetModified; + property ReadOnly : Boolean read GetReadOnly; + property InsertMode : Boolean read GetInsertmode; property OnAfterClose : TNotifyEvent read FOnAfterClose write FOnAfterClose; property OnBeforeClose : TNotifyEvent read FOnBeforeClose write FOnBeforeClose; @@ -158,12 +175,16 @@ type property OnBeforeOpen : TNotifyEvent read FOnBeforeOpen write FOnBeforeOpen; property OnAfterSave : TNotifyEvent read FOnAfterSave write FOnAfterSave; property OnBeforeSave : TNotifyEvent read FOnBeforeSave write FOnBeforeSave; + property OnEditorChange: TNotifyEvent read FOnEditorChange write FOnEditorChange; + + end; TSourceNotebook = class(TFORM) private Notebook1 : TNotebook; + StatusBar : TStatusBar; FEmpty : Boolean; FFormEditor : TFormEditor; FSourceEditorList : TList; @@ -174,20 +195,27 @@ type FOnSaveFile : TNotifyFileEvent; FMainIDE : TComponent; Function GetEmpty : Boolean; //look at the # of pages + Procedure NoteBookPageChanged(Sender : TObject); protected Function CreateNotebook : Boolean; Function GetActiveSE : TSourceEditor; Function DisplayPage(SE : TSourceEditor) : Boolean; Function NewSE(Pagenum : Integer) : TSourceEditor; + Procedure EditorChanged(sender : TObject); + procedure UpdateStatusBar; Bookmarks : TImageList; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; Function ActiveUnitName : String; Function ActiveFileName : String; + Function CreateUnitFromForm(AForm : TForm) : TSourceEditor; + Function GetSourceForUnit(UnitName : String) : TStrings; + Function SetSourceForUnit(UnitName : String; NewSource : TStrings) : Boolean; + Procedure DisplayFormforActivePage; Procedure DisplayCodeforControl(Control : TObject); - Function CreateUnitFromForm(AForm : TForm) : TSourceEditor; + Procedure DisplayCodefromUnitName(UnitName : String); procedure CloseClicked(Sender : TObject); Procedure NewClicked(Sender: TObject); @@ -196,10 +224,12 @@ type procedure SaveAllClicked(Sender : TObject); procedure SaveAsClicked(Sender : TObject); - Procedure OpenFile(FileName: String); + Procedure NewFile(UnitName: String; Source : TStrings; aVisible : Boolean); + Procedure OpenFile(FileName: String; aVisible : Boolean); Procedure ToggleBookmark(Value : Integer); - Procedure GoToBookmark(Value: Integer); + Procedure GotoBookmark(Value: Integer); + property OnCloseFile : TNotifyFileEvent read FOnCloseFile write FOnCloseFile; property OnOpenFile : TNotifyFileEvent read FOnOPenFile write FOnOPenFile; @@ -214,6 +244,9 @@ implementation uses LCLLinux,TypInfo,LResources,Main; +var +Editor_Num : Integer; +aHighlighter: TSynPasSyn; { TSourceEditor } @@ -236,7 +269,6 @@ end; destructor TSourceEditor.destroy; begin - FHighlighter.free; FEditor.Free; FSource.free; inherited; @@ -320,6 +352,12 @@ Begin //SubMenuItem.OnClick := @ToggleBreakpoint; MenuItem.Add(SubMenuItem); + FPopupMenu.Items.Add(Seperator); + MenuItem := TMenuItem.Create(FAOwner); + MenuItem.Caption := 'Line Numbers'; + menuItem.OnClick := @ToggleLineNumbersClicked; + FPopupMenu.Items.Add(MenuItem); + end; {------------------------------G O T O M E T H O D ---------------------------------} @@ -462,6 +500,8 @@ Begin End; + + {------------------------------BOOKMARK GOTO ---------------------------------} Procedure TSourceEditor.BookMarkGoto(Value : Integer); Begin @@ -484,22 +524,22 @@ Begin Found := False; //check the current directory Found := True; - if FileExists(Lowercase(Texts)) then TSOurceNotebook(FAOwner).OpenFile(Lowercase(Texts)) + if FileExists(Lowercase(Texts)) then TSOurceNotebook(FAOwner).OpenFile(Lowercase(Texts), True) else - if FileExists(Lowercase(Texts)+'.pp') then TSOurceNotebook(FAOwner).OpenFile(Lowercase(Texts)+'.pp') + if FileExists(Lowercase(Texts)+'.pp') then TSOurceNotebook(FAOwner).OpenFile(Lowercase(Texts)+'.pp', True) else - if FileExists(Lowercase(Texts)+'.pas') then TSOurceNotebook(FAOwner).OpenFile(Lowercase(Texts)+'.pas') + if FileExists(Lowercase(Texts)+'.pas') then TSOurceNotebook(FAOwner).OpenFile(Lowercase(Texts)+'.pas', True) else Found := False; // check the default LCL directory if not Found Found := True; AppDir := ExtractFilePath(Application.Exename); - if FileExists(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)) then TSOurceNotebook(FAOwner).OpenFile(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)) + if FileExists(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)) then TSOurceNotebook(FAOwner).OpenFile(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts), True) else - if FileExists(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pp') then TSOurceNotebook(FAOwner).OpenFile(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pp') + if FileExists(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pp') then TSOurceNotebook(FAOwner).OpenFile(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pp', True) else - if FileExists(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pas') then TSOurceNotebook(FAOwner).OpenFile(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pas') + if FileExists(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pas') then TSOurceNotebook(FAOwner).OpenFile(AppDir+'lcl'+AppDir[Length(AppDir)]+Lowercase(Texts)+'.pas', True) else Found := False; @@ -518,11 +558,11 @@ Begin if tempDir[Length(TempDir)] <> DirDelimiter then TempDir := TempDir + DirDelimiter; Found := True; - if FileExists(TempDir+Lowercase(Texts)) then TSOurceNotebook(FAOwner).OpenFile(TempDir+Lowercase(Texts)) + if FileExists(TempDir+Lowercase(Texts)) then TSOurceNotebook(FAOwner).OpenFile(TempDir+Lowercase(Texts), True) else - if FileExists(TempDir+Lowercase(Texts)+'.pp') then TSOurceNotebook(FAOwner).OpenFile(TempDir+Lowercase(Texts)+'.pp') + if FileExists(TempDir+Lowercase(Texts)+'.pp') then TSOurceNotebook(FAOwner).OpenFile(TempDir+Lowercase(Texts)+'.pp', True) else - if FileExists(TempDir+Lowercase(Texts)+'.pas') then TSOurceNotebook(FAOwner).OpenFile(TempDir+Lowercase(Texts)+'.pas') + if FileExists(TempDir+Lowercase(Texts)+'.pas') then TSOurceNotebook(FAOwner).OpenFile(TempDir+Lowercase(Texts)+'.pas', True) else Found := False; Num := pos(';',SearchDir); @@ -535,6 +575,17 @@ Begin end; + +Procedure TSourceEditor.ToggleLineNumbersClicked(Sender : TObject); +var + MenuITem : TMenuItem; +begin + MenuItem := TMenuITem(Sender); + MenuItem.Checked := not(MenuItem.Checked); + FEditor.Gutter.ShowLineNumbers := MenuItem.Checked; +End; + + Procedure TSourceEditor.ReadOnlyClicked(Sender : TObject); var MenuItem : TMenuItem; @@ -544,6 +595,16 @@ Begin //set the statusbar text; end; +Procedure TSourceEditor.FocusEditor; +Begin + FEditor.SetFocus; +end; + + +Function TSourceEditor.GetReadOnly : Boolean; +Begin + Result := FEditor.ReadOnly; +End; Procedure TSourceEditor.ToggleBreakpointClicked(Sender : TObject); Begin @@ -611,6 +672,13 @@ Begin end; +Procedure TSourceEditor.EditorStatusChanged(Sender: TObject; Changes: TSynStatusChanges); +Begin + If Assigned(OnEditorChange) then + OnEditorChange(sender); + +end; + Procedure TSourceEditor.CreateEditor(AOwner : TComponent; AParent: TWinControl); Begin if assigned(FEditor) then @@ -619,38 +687,32 @@ if assigned(FEditor) then FEditor.Free; end; -FEditor := TmwCustomEdit.Create(FAOwner); - with FEditor do - begin +{SynEdit} + + FSynAutoComplete:=TSynAutoComplete.Create(FAOwner); + with FSynAutoComplete do begin + AutoCompleteList.LoadFromFile('lazarus.dci'); + end; + + FEditor:=TSynEdit.Create(FAOwner); + with FEditor do + begin + Name:='SynEdit'+Inttostr(Editor_num); + inc(Editor_num); Parent := AParent; - Top := 25; - Left := 0; - Width := TWinControl(FAOwner).ClientWidth - 10;//clientwidth;//500; - Height :=TWinControl(FAOwner).ClientHeight -10;//clientheight;//250; + SetBounds(0,25,TWinControl(FAOwner).ClientWidth - 10,TWinControl(FAOwner).ClientHeight -10); Align := alClient; - {$IFDEF NEW_EDITOR} - Gutter.Color := clBtnface; - Gutter.ShowLineNumbers := True; - {$ELSE} - GutterColor := clBtnface; - {$ENDIF} - Color := clWindow; - Visible := True; - Font.Name := 'courier'; - Font.Size := 12; - if FHighlighter = nil - then begin - FHighlighter := TmwPasSyn.Create(FAOwner); - with TmwPasSyn(FHighLighter) do - begin - CommentAttri.Foreground := clNavy; - NumberAttri.Foreground := clRed; - KeyAttri.Foreground := clGreen; - end; - end; - OnKeyDown := @EditorKeyDown; - OnKeyUp := @EditorKeyUp; - end; + Highlighter:=aHighlighter; + Gutter.Color:=clBlue; + AddKey(ecAutoCompletion, word('J'), [ssCtrl], 0, []); + OnKeyDown := @EditorKeyDown; + OnKeyUp := @EditorKeyUp; + OnStatusChange := @EditorStatusChanged; + Show; + end; + FSynAutoComplete.AddEditor(FEditor); +{SynEdit} + FEditor.Lines.Assign(FSource); end; @@ -690,7 +752,7 @@ For I := 0 to TempSource.Count-1 do //if I => FSource.Count then I didn't find the line... - If I < TempSource.Count then + If I < TempSource.Count-1 then Begin //alphabetical inc(i); @@ -818,6 +880,12 @@ Begin Result := FEditor.Modified; end; +Function TSourceEditor.GetInsertMode : Boolean; +Begin + Result := FEditor.Insertmode; +end; + + //Get's the ancestor of the FControl. //For example the ancestor of a TForm1 = class(xxxx) is the xxxx Function TSourceEditor.GetAncestor : String; @@ -842,8 +910,6 @@ Begin nmAncestor := GetAncestor; -//figure out what the unit name should be... - FUnitName:='Unit1'; //just assigning it to this for now nmForm := FControl.Name; with TempSource do @@ -921,20 +987,22 @@ Begin FOnBeforeClose(Self); end; - FSource.Clear; - +// FSource.Clear; + Visible := False; If Assigned(FOnAfterClose) then FOnAfterClose(Self); end; Function TSourceEditor.Open : Boolean; Begin + Writeln('[TSourceEditor] Open'); Result := True; If Assigned(FOnBeforeOpen) then FOnBeforeOpen(Self); try FEditor.Lines.LoadFromFile(FileName); - FUnitName := Filename; FModified := False; + FUnitName := ExtractFileName(Filename); + //see if this is a form file CreateFormfromUnit; except @@ -943,6 +1011,7 @@ Begin if Result then If Assigned(FOnAfterOpen) then FOnAfterOpen(Self); + Writeln('[TSourceEditor] Open Done'); end; @@ -972,6 +1041,8 @@ Begin Result := (FControl <> nil); end; + + {------------------------------------------------------------------------} { TSourceNotebook } @@ -1029,18 +1100,59 @@ begin LoadResource('default',Pixmap1); Bookmarks.Add(Pixmap1,nil); end; + + aHighlighter:=TSynPasSyn.Create(AOwner); + with aHighlighter do begin + CommentAttri.ForeGround:=clBlue; + CommentAttri.Style:=[fsBold,fsItalic]; + AsmAttri.ForeGround:=clGreen; + IdentifierAttri.Style:=[fsBold]; + NumberAttri.ForeGround:=clGreen; + //SpaceAttri.Background:=clWhite; + StringAttri.ForeGround:=clRed; + SymbolAttri.ForeGround:=clBlack; + end; + + StatusBar := TStatusBar.Create(self); + with Statusbar do + begin + Parent := Self; + Name := 'StatusBar'; + Visible := True; + SimpleText := 'This is a test'; + Panels.Add; //x,y coord + Panels.Add; //Readonly/Modified + Panels.Add; //Unitname + Panels.Add; //OVR/INS + Panels[0].Text := ''; + Panels[0].Width := 100; + Panels[0].Bevel := pbLowered; + Panels[1].Text := ''; + Panels[1].Bevel := pbLowered; + Panels[1].Width := 150; + Panels[2].Text := ''; + Panels[2].Bevel := pbLowered; + Panels[2].Width := 100; + Panels[3].Text := 'INS'; + Panels[3].Bevel := pbLowered; + Panels[3].Width := 50; + SimplePanel := False; + end; + + end; destructor TSourceNotebook.Destroy; begin FSourceEditorList.Free; - + aHighlighter.Free; inherited Destroy; end; Function TSourceNotebook.CreateNotebook : Boolean; Begin + Writeln('TSourceNotebook] CreateNotebook'); Result := False; if not assigned(Notebook1) then Begin @@ -1054,13 +1166,16 @@ Begin Top :=2; Width := ClientWidth; Height := ClientHeight-Notebook1.top; - Pages.Strings[0] := 'NewUnit.pp'; + Pages.Strings[0] := 'Unit1'; PageIndex := 0; // Set it to the first page + OnPageChanged := @NoteBookPageChanged; Show; end; //with Show; //used to display the code form + end; + Writeln('TSourceNotebook] CreateNotebook done'); End; Function TSourceNotebook.CreateUnitFromForm(AForm : TForm): TSourceEditor; @@ -1069,6 +1184,7 @@ Var Notebook_Just_Created : Boolean; PageIndex : Integer; begin + Notebook_Just_Created := (not assigned(Notebook1)) or (Notebook1.Pages.Count = 0); @@ -1085,19 +1201,40 @@ begin Show; end; +Procedure TSourceNotebook.EditorChanged(sender : TObject); +Begin +Writeln('EditorChanged'); + UpdateStatusBar; +Writeln('EditorChanged done'); +End; + Function TSourceNotebook.NewSe(PageNum : Integer) : TSourceEditor; +var + UnitIndex,I:integer; Begin if CreateNotebook then Pagenum := 0; -if Pagenum = -1 then //add a new page - Pagenum := Notebook1.Pages.Add('title'); + if Pagenum = -1 then begin //add a new page + UnitIndex:=0; + repeat + inc(UnitIndex); + I:=FSourceEditorList.Count-1; + while (I>=0) + and (lowercase(TSourceEditor(FSourceEditorList[I]).UnitName) + <>'unit'+IntToStr(UnitIndex)) do dec(I); + until I<0; + + Pagenum := Notebook1.Pages.Add('unit'+IntToStr(UnitIndex)); + end; + + Result := TSourceEditor.Create(Self,Notebook1.Page[PageNum]); + Result.FUnitName:=Notebook1.Pages[PageNum]; Notebook1.Pageindex := Pagenum; FSourceEditorList.Add(Result); - Writeln('Assigning bookmark images'); - Result.Editor.BookmarkImages := Bookmarks; - + Result.Editor.BookMarkOptions.BookmarkImages := Bookmarks; + Result.OnEditorChange := @EditorChanged; end; @@ -1119,6 +1256,22 @@ Begin End; +Procedure TSourceNotebook.DisplayCodefromUnitName(UnitName : String); +Var + I,X : Integer; +Begin + X := FSourceEditorList.Count; + if X = 0 then Exit; + I := 0; + while (I < X) and (Uppercase(TSourceEditor(FSourceEditorList.Items[I]).Unitname) <> Uppercase(Unitname)) do + Begin + inc(i); + end; + if I < X then + DisplayPage(TSourceEditor(FSOurceEditorList.Items[I])); + +end; + Procedure TSourceNotebook.DisplayFormforActivePage; Begin Writeln('DisplayFormForActivePage'); @@ -1183,6 +1336,7 @@ Begin with Notebook1.Page[Notebook1.Pageindex] do Begin + if ControlCount = 0 then Exit; for I := 0 to ControlCount-1 do if Controls[I] is TmwCustomEdit then Begin @@ -1211,21 +1365,28 @@ Var TempEditor : TSourceEditor; Begin if (sender is TMenuItem) and (TMenuItem(sender).name <> 'FileOpen') then //the down arrow next to open was selected - OpenFile(TMenuItem(sender).Caption) + OpenFile(TMenuItem(sender).Caption,True) else Begin FOpenDialog.Title := 'Open'; if FOpenDialog.Execute then Begin //create a new page + Writeln('create a new editor'); TempEditor := NewSE(-1); + Writeln('Done create a new editor'); TempEditor.Filename := FOpenDialog.Filename; if (TempEditor.Open) then Begin - if assigned(FOnOPenFile) then FOnOpenFile(TObject(TempEditor),FOpenDialog.Filename); + Writeln('1'); + if assigned(FOnOpenFile) then FOnOpenFile(TObject(TempEditor),FOpenDialog.Filename); + Writeln('2'); Notebook1.Pages.Strings[Notebook1.Pageindex] := TempEditor.UnitName; + Writeln('3'); end; end; end; + TempEditor.Visible := True; +UpdateStatusBar; end; @@ -1243,8 +1404,19 @@ Begin GetActiveSE.BookMarkGoto(Value); End; +Procedure TSourceNotebook.NewFile(UnitName: String; Source : TStrings; aVisible : Boolean); +Var + TempEditor : TSourceEditor; +Begin + //create a new page + TempEditor := NewSE(-1); + TempEditor.Unitname := Unitname; + TempEditor.Source := Source; + if Visible then Notebook1.Pages.Strings[Notebook1.Pageindex] := TempEditor.UnitName; + TempEditor.Visible := aVisible; +end; -Procedure TSourceNotebook.OpenFile(FileName: String); +Procedure TSourceNotebook.OpenFile(FileName: String; aVisible : Boolean); Var TempEditor : TSourceEditor; Begin @@ -1257,7 +1429,8 @@ Begin if (TempEditor.OPen) then Begin if assigned(FOnOPenFile) then FOnOpenFile(TObject(TempEditor),FOpenDialog.Filename); - Notebook1.Pages.Strings[Notebook1.Pageindex] := ExtractFileName(TempEditor.UnitName); + if Visible then Notebook1.Pages.Strings[Notebook1.Pageindex] := ExtractFileName(TempEditor.UnitName); + TempEditor.Visible := aVisible; end; end; @@ -1272,6 +1445,9 @@ Begin TempEditor := NewSE(-1); TempEditor.CreateNewUnit; Notebook1.Pages.Strings[Notebook1.Pageindex] := TempEditor.UnitName; + TempEditor.Visible := True; + UpdateStatusBar; + End; Procedure TSourceNotebook.SaveClicked(Sender: TObject); @@ -1284,6 +1460,8 @@ if ActiveFileName <> '' then else SaveAsClicked(Sender); +UpdateStatusBar; + end; Function TSourceNotebook.ActiveUnitName : String; @@ -1308,9 +1486,11 @@ if (GetActiveSE.Modified) then Notebook1.Pages.Delete(Notebook1.Pageindex); + if Notebook1.Pages.Count = 0 then Hide; +UpdateStatusBar; end; @@ -1342,6 +1522,8 @@ Begin For I := 0 to FSourceEditorList.Count-1 do Begin TempEditor := TSourceEditor(FSourceEditorList.Items[i]); + if TempEditor.Visible then + Begin FSaveDialog.Title := 'Save '+TempEditor.UnitName+' as :'; if TempEditor.FileName <> '' then FSaveDialog.Filename := TempEditor.FileName @@ -1357,10 +1539,84 @@ Begin else Break; end; + end; +end; + +Function TSourceNotebook.GetSourceForUnit(UnitName : String) : TStrings; +Var + I : Integer; + TempEditor : TSourceEditor; +begin + For I := 0 to FSourceEditorList.Count-1 do + Begin + TempEditor := TSourceEditor(FSourceEditorList.Items[i]); + if Uppercase(TempEditor.UnitName) = Uppercase(Unitname) then + Break; + End; + + if Uppercase(TempEditor.UnitName) = Uppercase(Unitname) then + Result := TempEditor.Source + else + Result := nil; + +End; + +Function TSourceNotebook.SetSourceForUnit(UnitName : String; NewSource : TStrings) : Boolean; +Var + I : Integer; + TempEditor : TSourceEditor; +begin + Result := False; + For I := 0 to FSourceEditorList.Count-1 do + Begin + TempEditor := TSourceEditor(FSourceEditorList.Items[i]); + if Uppercase(TempEditor.UnitName) = Uppercase(Unitname) then + Break; + End; + + if Uppercase(TempEditor.UnitName) = Uppercase(Unitname) then + Begin + TempEditor.Source := NewSource; + Result := True; + end; +End; + +Procedure TSourceNotebook.UpdateStatusBar; +var + tempEditor : TSourceEditor; +begin + TempEditor := GetActiveSE; + if TempEditor = nil then Exit; + Writeln('Updating status bar...'); + + Statusbar.Panels[2].Text := GetActiveSE.Unitname; + + If GetActiveSE.Modified then StatusBar.Panels[1].Text := 'Modified' + else + StatusBar.Panels[1].Text := ''; + + If GetActiveSE.ReadOnly then + if StatusBar.Panels[1].Text <> '' then StatusBar.Panels[1].Text := StatusBar.Panels[1].Text + '/ReadOnly' + else + StatusBar.Panels[1].Text := 'Readonly'; + + + Statusbar.Panels[0].Text := Inttostr(GetActiveSE.CurrentCursorXLine) + ','+ Inttostr(GetActiveSE.CurrentCursorYLine); + + if GetActiveSE.InsertMode then + Statusbar.Panels[3].Text := 'INS' else + Statusbar.Panels[3].Text := 'OVR'; +End; + +Procedure TSourceNotebook.NoteBookPageChanged(Sender : TObject); +Begin + GetActiveSE.FocusEditor; + + UpdateStatusBar; end; initialization - +Editor_Num := 0; {$I designer/bookmark.lrs} diff --git a/lcl/include/statusbar.inc b/lcl/include/statusbar.inc index 7af0cdb546..db76e7d808 100644 --- a/lcl/include/statusbar.inc +++ b/lcl/include/statusbar.inc @@ -57,6 +57,8 @@ end; Procedure TStatusBar.DrawBevel(xLeft, PanelNum : Integer ); Begin + Canvas.Brush.Color := color; + Canvas.FillRect(Rect(XLeft,Top,XLeft +Panels[PanelNum].Width,Top+Height)); if Panels[PanelNum].Bevel = pbRaised then Begin diff --git a/lcl/include/statuspanels.inc b/lcl/include/statuspanels.inc index ee98e23fa2..0d3084db61 100644 --- a/lcl/include/statuspanels.inc +++ b/lcl/include/statuspanels.inc @@ -28,5 +28,6 @@ end; procedure TStatusPanels.Update(Item: TCollectionItem); begin + FStatusBar.Invalidate; end;