Menu
▾
▴
synedit-checkins — SourceForge CVS Checkin announcements
You can subscribe to this list here.
| 2002 |
Jan
(2) |
Feb
(30) |
Mar
(17) |
Apr
(34) |
May
(25) |
Jun
(13) |
Jul
(20) |
Aug
(22) |
Sep
(39) |
Oct
(8) |
Nov
(20) |
Dec
(27) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(43) |
Feb
(18) |
Mar
(6) |
Apr
(78) |
May
(27) |
Jun
(23) |
Jul
(31) |
Aug
(14) |
Sep
(49) |
Oct
(2) |
Nov
(2) |
Dec
(38) |
| 2004 |
Jan
(52) |
Feb
(7) |
Mar
(15) |
Apr
(46) |
May
(27) |
Jun
(42) |
Jul
(31) |
Aug
(16) |
Sep
(42) |
Oct
(69) |
Nov
(75) |
Dec
(26) |
| 2005 |
Jan
(18) |
Feb
(18) |
Mar
(13) |
Apr
(3) |
May
(3) |
Jun
(6) |
Jul
(22) |
Aug
(6) |
Sep
(6) |
Oct
(24) |
Nov
(8) |
Dec
(23) |
| 2006 |
Jan
(24) |
Feb
(8) |
Mar
(16) |
Apr
|
May
(16) |
Jun
(9) |
Jul
|
Aug
(7) |
Sep
|
Oct
(1) |
Nov
(1) |
Dec
(9) |
| 2007 |
Jan
(62) |
Feb
(16) |
Mar
(19) |
Apr
(17) |
May
(15) |
Jun
(16) |
Jul
(16) |
Aug
(2) |
Sep
|
Oct
(5) |
Nov
(8) |
Dec
(2) |
| 2008 |
Jan
(2) |
Feb
(6) |
Mar
(3) |
Apr
|
May
|
Jun
(4) |
Jul
|
Aug
|
Sep
(12) |
Oct
(7) |
Nov
(2) |
Dec
|
| 2009 |
Jan
(1) |
Feb
(1) |
Mar
(1) |
Apr
|
May
|
Jun
(5) |
Jul
|
Aug
(1) |
Sep
(4) |
Oct
|
Nov
(1) |
Dec
|
|
From: Flávio E. <et...@us...> - 2007-07-05 02:26:04
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15636 Modified Files: Tag: SynEdit_2_0_x SynEdit.pas Log Message: Fix: [ 1735960 ] trailing spaces Should have read ecChar implementation a long time ago :-$ Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.457.2.10 retrieving revision 1.457.2.11 diff -u -d -r1.457.2.10 -r1.457.2.11 --- SynEdit.pas 5 Jul 2007 00:55:51 -0000 1.457.2.10 +++ SynEdit.pas 5 Jul 2007 02:26:00 -0000 1.457.2.11 @@ -1016,6 +1016,21 @@ Result := Copy(S, 1, I); end; +function StringIsBlank(const S: String): Boolean; +var + i: Integer; +begin + for i := Length(S) downto 1 do + begin + if not (S[i] in [#32, #9]) then + begin + Result := False; + Exit; + end; + end; + Result := True; +end; + { THookedCommandHandlerEntry } type @@ -4139,13 +4154,17 @@ Str: string; Start: PChar; P: PChar; + bChangeScroll: Boolean; begin Result := 0; sLeftSide := Copy(LineText, 1, CaretX - 1); if CaretX - 1 > Length(sLeftSide) then begin - sLeftSide := sLeftSide + StringOfChar(#32, - CaretX - 1 - Length(sLeftSide)); + if not(eoTabsToSpaces in Options) and StringIsBlank(sLeftSide) then + sLeftSide := GetLeftSpacing(DisplayX -1, True) + else + sLeftSide := sLeftSide + StringOfChar(#32, + CaretX - 1 - Length(sLeftSide)); end; sRightSide := Copy(LineText, CaretX, Length(LineText) - (CaretX - 1)); // step1: insert the first line of Value into current line @@ -4187,18 +4206,19 @@ ProperSetLine( CaretY -1, Str ); Inc(Result); end; - if (eoTrimTrailingSpaces in Options) and (sRightSide = '') then - begin - fCaretX := Length(LineText) + GetExpandedLength(Str, TabWidth) - - GetExpandedLength(LineText, TabWidth) +1; - if not (eoScrollPastEol in Options) - and (fCaretX > TSynEditStringList(Lines).LengthOfLongestLine) then + bChangeScroll := not (eoScrollPastEol in fOptions); + Include(fOptions, eoScrollPastEol); + try + if (eoTrimTrailingSpaces in Options) and (sRightSide = '') then begin - fCaretX := TSynEditStringList(Lines).LengthOfLongestLine +1; - end; - end - else fCaretX := Length(Str) - Length(sRightSide) +1; - StatusChanged([scCaretX]); + InternalCaretX := Length(LineText) + GetExpandedLength(Str, TabWidth) + - GetExpandedLength(LineText, TabWidth) +1; + end + else + InternalCaretX := Length(Str) - Length(sRightSide) +1; + finally + if bChangeScroll then Exclude(fOptions, eoScrollPastEol); + end; end; function InsertColumn: Integer; |
|
From: Flávio E. <et...@us...> - 2007-07-05 00:55:57
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv13172 Modified Files: Tag: SynEdit_2_0_x SynEdit.pas Log Message: Fix: [ 1744381 ] Selecting text with mouse near/on the gutter is broken Partially undo commit 1.452: http://synedit.cvs.sourceforge.net/synedit/SynEdit/Source/SynEdit.pas?r1=1.451&r2=1.452 About that revision: 1) Scrolling when clicking the gutter is IMO bad, but I'll leave it for another time. 2) Looking now there's no possibility of double OnGutterClick, really; but the new version is cleaner anyway. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.457.2.9 retrieving revision 1.457.2.10 diff -u -d -r1.457.2.9 -r1.457.2.10 --- SynEdit.pas 4 Jul 2007 23:25:18 -0000 1.457.2.9 +++ SynEdit.pas 5 Jul 2007 00:55:51 -0000 1.457.2.10 @@ -2087,7 +2087,7 @@ fKbdHandler.ExecuteMouseDown(Self, Button, Shift, X, Y); - if (Button in [mbLeft, mbRight]) and (X >= fGutterWidth + 2) then + if (Button in [mbLeft, mbRight]) then begin if Button = mbRight then begin |
|
From: Flávio E. <et...@us...> - 2007-07-04 23:25:26
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12910/Source Modified Files: Tag: SynEdit_2_0_x SynEdit.pas Log Message: Fix: [ 1746070 ] PaintTransientDemo drawing problem Use GutterWidth (instead of Gutter.Width) just for the sake of correctness. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.457.2.8 retrieving revision 1.457.2.9 diff -u -d -r1.457.2.8 -r1.457.2.9 --- SynEdit.pas 4 Jul 2007 22:48:46 -0000 1.457.2.8 +++ SynEdit.pas 4 Jul 2007 23:25:18 -0000 1.457.2.9 @@ -774,6 +774,7 @@ property CharWidth: integer read fCharWidth; property Color; property Font: TFont read GetFont write SetFont; + property GutterWidth: Integer read fGutterWidth; property Highlighter: TSynCustomHighlighter read fHighlighter write SetHighlighter; property LeftChar: Integer read fLeftChar write SetLeftChar; |
|
From: Flávio E. <et...@us...> - 2007-07-04 23:25:26
|
Update of /cvsroot/synedit/SynEdit/Demos/OnPaintTransientDemo In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12910/Demos/OnPaintTransientDemo Modified Files: Tag: SynEdit_2_0_x Unit1.pas Log Message: Fix: [ 1746070 ] PaintTransientDemo drawing problem Use GutterWidth (instead of Gutter.Width) just for the sake of correctness. Index: Unit1.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Demos/OnPaintTransientDemo/Unit1.pas,v retrieving revision 1.6 retrieving revision 1.6.2.1 diff -u -d -r1.6 -r1.6.2.1 --- Unit1.pas 25 Nov 2004 14:06:25 -0000 1.6 +++ Unit1.pas 4 Jul 2007 23:25:18 -0000 1.6.2.1 @@ -119,13 +119,16 @@ if Editor.Canvas.Brush.Color = clNone then Editor.Canvas.Brush.Color := Editor.Color; - Editor.Canvas.TextOut(Pix.X, Pix.Y, S); + if Pix.X > Editor.GutterWidth then + begin + Editor.Canvas.TextOut(Pix.X, Pix.Y, S); + end; P := Editor.GetMatchingBracketEx(P); if (P.Char > 0) and (P.Line > 0) then begin Pix := CharToPixels(P); - if Pix.X > Editor.Gutter.Width then + if Pix.X > Editor.GutterWidth then begin if S = OpenChars[i] then Editor.Canvas.TextOut(Pix.X, Pix.Y, CloseChars[i]) |
|
From: Flávio E. <et...@us...> - 2007-07-04 22:48:50
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv31216 Modified Files: Tag: SynEdit_2_0_x SynEdit.pas Log Message: Partially fix: [ 1735302 ] overwrite mode. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.457.2.7 retrieving revision 1.457.2.8 diff -u -d -r1.457.2.7 -r1.457.2.8 --- SynEdit.pas 22 Jun 2007 04:24:03 -0000 1.457.2.7 +++ SynEdit.pas 4 Jul 2007 22:48:46 -0000 1.457.2.8 @@ -7056,6 +7056,10 @@ if not ReadOnly and (AChar >= #32) and (AChar <> #127) then begin DoOnPaintTransient(ttBefore); + if (InsertMode = False) and (not SelAvail) then + begin + SelLength := 1; + end; SelText := AChar; DoOnPaintTransient(ttAfter); end; |
|
From: Flávio E. <et...@us...> - 2007-07-04 20:05:49
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv2235 Modified Files: Tag: UtterUnstable SynEditTextBuffer.pas Log Message: Add to-do. Index: SynEditTextBuffer.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditTextBuffer.pas,v retrieving revision 1.64.2.26 retrieving revision 1.64.2.27 diff -u -d -r1.64.2.26 -r1.64.2.27 --- SynEditTextBuffer.pas 11 Jun 2007 23:19:12 -0000 1.64.2.26 +++ SynEditTextBuffer.pas 4 Jul 2007 20:05:46 -0000 1.64.2.27 @@ -1135,6 +1135,7 @@ procedure TSynEditStringList.Put(Index: integer; const S: string); begin +//todo: create PutLines method if (Index = 0) and (fCount = 0) or (fCount = Index) then Add(S) else begin |
|
From: Flávio E. <et...@us...> - 2007-07-04 20:03:34
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv1441 Modified Files: Tag: UtterUnstable SynEdit.pas Log Message: - Temporary fix for indentation in whitespace line with eoTabsToSapce disabled (the correct fix should preverse existing chars). - Restore code in calculation of mouse cursor. - Theoretical fix (and possible practical bug :-( ) in LeftSpacesEx. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.389.2.93 retrieving revision 1.389.2.94 diff -u -d -r1.389.2.93 -r1.389.2.94 --- SynEdit.pas 21 Jun 2007 02:31:54 -0000 1.389.2.93 +++ SynEdit.pas 4 Jul 2007 20:03:31 -0000 1.389.2.94 @@ -1645,7 +1645,10 @@ while p^ in [#1..#32] do begin if (p^=#9) and (WantTabs) then - Inc(Result,TabWidth) + begin + Inc(Result, TabWidth); + Dec(Result, Result mod TabWidth); + end else Inc(Result); Inc(p); @@ -1795,8 +1798,7 @@ var P: TDisplayCoord; begin - //todo: lcl pending - //if not InDragDropOperation then + if not Mouse.IsDragging then UpdateMouseCursor; inherited MouseMove(Shift, x, y); if MouseCapture and (sfWaitForDragging in fStateFlags) then @@ -3544,7 +3546,7 @@ if CaretX - 1 > Length(sLeftSide) then begin if not(eoTabsToSpaces in Options) and StringIsBlank(sLeftSide) then - sLeftSide := GetLeftSpacing(CaretX -1, True) + sLeftSide := GetLeftSpacing(DisplayX -1, True) else sLeftSide := sLeftSide + StringOfChar(#32, CaretX - 1 - Length(sLeftSide)); |
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv25762 Modified Files: Tag: UtterUnstable SynAutoCorrectEditor.dfm SynEditKeyCmdEditor.dfm SynEditKeyCmdsEditor.dfm SynEditOptionsDialog.dfm SynEditPrintMarginsDialog.dfm Log Message: Convert forms to text-dfm. Index: SynEditPrintMarginsDialog.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditPrintMarginsDialog.dfm,v retrieving revision 1.2 retrieving revision 1.2.4.1 diff -u -d -r1.2 -r1.2.4.1 Binary files /tmp/cvsfHo8MJ and /tmp/cvsHyRqSD differ Index: SynEditOptionsDialog.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditOptionsDialog.dfm,v retrieving revision 1.7.4.3 retrieving revision 1.7.4.4 diff -u -d -r1.7.4.3 -r1.7.4.4 --- SynEditOptionsDialog.dfm 4 Jun 2007 07:12:20 -0000 1.7.4.3 +++ SynEditOptionsDialog.dfm 4 Jul 2007 19:43:52 -0000 1.7.4.4 @@ -659,7 +659,7 @@ Top = 23 Width = 186 Height = 21 - ItemHeight = 13 + ItemHeight = 0 TabOrder = 0 OnExit = cKeyCommandExit OnKeyPress = cKeyCommandKeyPress Index: SynEditKeyCmdsEditor.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditKeyCmdsEditor.dfm,v retrieving revision 1.10 retrieving revision 1.10.4.1 diff -u -d -r1.10 -r1.10.4.1 Binary files /tmp/cvsgXr8IO and /tmp/cvsgg3mWI differ Index: SynEditKeyCmdEditor.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditKeyCmdEditor.dfm,v retrieving revision 1.7 retrieving revision 1.7.4.1 diff -u -d -r1.7 -r1.7.4.1 Binary files /tmp/cvsw4HU1Q and /tmp/cvsoECNiL differ Index: SynAutoCorrectEditor.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynAutoCorrectEditor.dfm,v retrieving revision 1.6 retrieving revision 1.6.4.1 diff -u -d -r1.6 -r1.6.4.1 Binary files /tmp/cvsnDx3gT and /tmp/cvsgwrGBN differ |
|
From: Flávio E. <et...@us...> - 2007-06-22 04:24:09
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv8125 Modified Files: Tag: SynEdit_2_0_x SynEdit.pas SynEditPrinterInfo.pas Log Message: FIX: [ 1731343 ] CLX compiling errors Fix by Okoshkin. Index: SynEditPrinterInfo.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditPrinterInfo.pas,v retrieving revision 1.5 retrieving revision 1.5.2.1 diff -u -d -r1.5 -r1.5.2.1 --- SynEditPrinterInfo.pas 18 Oct 2005 01:26:51 -0000 1.5 +++ SynEditPrinterInfo.pas 22 Jun 2007 04:24:04 -0000 1.5.2.1 @@ -244,7 +244,9 @@ procedure TSynEditPrinterInfo.UpdatePrinter; begin FIsUpdated := True; +{$IFNDEF SYN_CLX} Printer.Refresh; +{$ENDIF} if Printer.Printers.Count <= 0 then begin FillDefault; Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.457.2.6 retrieving revision 1.457.2.7 diff -u -d -r1.457.2.6 -r1.457.2.7 --- SynEdit.pas 18 May 2007 17:11:25 -0000 1.457.2.6 +++ SynEdit.pas 22 Jun 2007 04:24:03 -0000 1.457.2.7 @@ -115,13 +115,15 @@ type {$IFDEF SYN_CLX} TSynBorderStyle = bsNone..bsSingle; + TBufferCoord = QSynEditTypes.TBufferCoord; + TDisplayCoord = QSynEditTypes.TDisplayCoord; + TSynEditMark = QSynEditMiscClasses.TSynEditMark; {$ELSE} TSynBorderStyle = TBorderStyle; -{$ENDIF} - TBufferCoord = SynEditTypes.TBufferCoord; TDisplayCoord = SynEditTypes.TDisplayCoord; TSynEditMark = SynEditMiscClasses.TSynEditMark; +{$ENDIF} TSynReplaceAction = (raCancel, raSkip, raReplace, raReplaceAll); @@ -513,7 +515,7 @@ protected {$IFDEF SYN_COMPILER_6_UP} function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; - MousePos: TPoint): Boolean; override; + {$IFDEF SYN_CLX}const{$ENDIF} MousePos: TPoint): Boolean; override; {$ENDIF} {$IFDEF SYN_CLX} procedure Resize; override; @@ -4695,7 +4697,7 @@ {$IFDEF SYN_COMPILER_6_UP} function TCustomSynEdit.DoMouseWheel(Shift: TShiftState; - WheelDelta: Integer; MousePos: TPoint): Boolean; + WheelDelta: Integer; {$IFDEF SYN_CLX}const{$ENDIF} MousePos: TPoint): Boolean; const WHEEL_DIVISOR = 120; // Mouse Wheel standard var |
|
From: Flávio E. <et...@us...> - 2007-06-21 02:48:13
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv27490 Modified Files: Tag: UtterUnstable SynEditMiscClasses.pas Log Message: Avoid (useless) TCheckBox redefinition for Lazarus. Index: SynEditMiscClasses.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditMiscClasses.pas,v retrieving revision 1.35.4.7 retrieving revision 1.35.4.8 diff -u -d -r1.35.4.7 -r1.35.4.8 --- SynEditMiscClasses.pas 4 Jun 2007 11:58:37 -0000 1.35.4.7 +++ SynEditMiscClasses.pas 21 Jun 2007 02:48:07 -0000 1.35.4.8 @@ -434,6 +434,7 @@ property OnChange: TNotifyEvent read fOnChange write fOnChange; end; +{$IFNDEF SYN_LAZARUS} { Redeclares TCheckBox just to publish the 'Align' property, used by SynEditOptionsDialog. } TCheckBox = class(TCustomCheckBox) published @@ -482,6 +483,7 @@ property OnStartDock; property OnStartDrag; end; +{$ENDIF} implementation |
|
From: Flávio E. <et...@us...> - 2007-06-21 02:32:00
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18757 Modified Files: Tag: UtterUnstable SynEdit.pas SynPlatformAbstraction.pas Log Message: - Fix compilation error in ScrollBar code (Lazarus). - Fix Range Exception in Cursor code (Lazarus) and clean it up by mimicing Lazarus' TControl.SetTempCursor. - Fix Cursor in BottomRight corner (Delphi). Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.389.2.92 retrieving revision 1.389.2.93 diff -u -d -r1.389.2.92 -r1.389.2.93 --- SynEdit.pas 12 Jun 2007 07:54:19 -0000 1.389.2.92 +++ SynEdit.pas 21 Jun 2007 02:31:54 -0000 1.389.2.93 @@ -5871,9 +5871,9 @@ procedure TCustomSynEdit.UpdateMouseCursor; {$IFDEF SYN_CLX} - procedure SetCursor(aCursor: QCursorH); + procedure SetTempCursor(aCursor: TCursor); begin - QWidget_setCursor( Handle, aCursor ); + QWidget_setCursor(Handle, Screen.Cursors[aCursor]); end; {$ENDIF} @@ -5884,16 +5884,16 @@ begin GetCursorPos(ptCursor); ptCursor := ScreenToClient(ptCursor); -{$IFDEF SYN_CLX} +{$IFNDEF SYN_LAZARUS} //handle the scrollbars junction in the bottom-right corner if not PtInRect( ClientRect, ptCursor ) then begin - QWidget_setCursor( Handle, Screen.Cursors[crDefault] ); + SetTempCursor(crDefault); Exit; end; {$ENDIF} if (ptCursor.X < fGutterWidth) then - SetCursor(Screen.Cursors[fGutter.Cursor]) + SetTempCursor(fGutter.Cursor) else begin ptLineCol := DisplayToBufferPos( PixelsToRowColumn( ptCursor.X, ptCursor.Y ) ); if (eoDragDropEditing in fOptions) and (not MouseCapture) and IsPointInSelection(ptLineCol) then @@ -5903,7 +5903,7 @@ if Assigned( OnMouseCursor ) then OnMouseCursor( Self, ptLineCol, iNewCursor ); fKbdHandler.ExecuteMouseCursor( Self, ptLineCol, iNewCursor ); - SetCursor( Screen.Cursors[iNewCursor] ); + SetTempCursor(iNewCursor); end; end; @@ -5963,7 +5963,7 @@ begin v_GuaranteedWidth := ClientWidth - fGutterWidth -2; if not VertScrollBar.Visible then - Dec(v_GuaranteedWidth, VertScrollBar.Width); + Dec(v_GuaranteedWidth, VertScrollBar.Size); Result := Max(v_GuaranteedWidth, 0) div fCharWidth; end; @@ -5973,7 +5973,7 @@ begin v_GuaranteedHeight := ClientHeight; if not HorzScrollBar.Visible then - Dec(v_GuaranteedHeight, HorzScrollBar.Height); + Dec(v_GuaranteedHeight, HorzScrollBar.Size); Result := v_GuaranteedHeight div fLineHeight; end; Index: SynPlatformAbstraction.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/Attic/SynPlatformAbstraction.pas,v retrieving revision 1.1.2.16 retrieving revision 1.1.2.17 diff -u -d -r1.1.2.16 -r1.1.2.17 --- SynPlatformAbstraction.pas 26 May 2007 15:53:40 -0000 1.1.2.16 +++ SynPlatformAbstraction.pas 21 Jun 2007 02:31:54 -0000 1.1.2.17 @@ -58,10 +58,12 @@ function GetIncrement: TScrollBarInc; function GetPage: TScrollBarInc; function GetRange: Integer; + function GetSize: Integer; public property Increment: TScrollBarInc read GetIncrement write SetIncrement; property Page: TScrollBarInc read GetPage write SetPage; property Range: Integer read GetRange write SetRange; + property Size: Integer read GetSize; {$IFDEF SYN_PLATFORM_VCL} private procedure WMEraseBkgnd(var Msg: TMessage); message WM_ERASEBKGND; @@ -118,6 +120,7 @@ v_Dummy: Integer{Compatibility with Lazarus}); virtual; abstract; procedure FontChanged(Sender: TObject); virtual; procedure Paint; override; + procedure SetTempCursor(p_Value: TCursor); public destructor Destroy; override; procedure UpdateScrollbars; @@ -189,6 +192,14 @@ Result := Max - Min; end; +function TSynScrollbar.GetSize: Integer; +begin + if Kind = sbVertical then + Result := Width + else + Result := Height; +end; + procedure TSynScrollbar.SetIncrement(const Value: TScrollBarInc); begin SmallChange := Value; @@ -467,6 +478,11 @@ {$ENDIF} end; +procedure TSynCustomControl.SetTempCursor(p_Value: TCursor); +begin + SetCursor(Screen.Cursors[p_Value]); +end; + procedure TSynCustomControl.SetHorzScrollBar( const Value: TSynScrollbar); begin |
|
From: Maël Hörz <ma...@us...> - 2007-06-20 22:12:46
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15135/Source Modified Files: Tag: Unicode_2004_08_31 SynEdit.pas Log Message: Application.KeyState does not exist in Delphi 6 or 7 Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.386.2.65 retrieving revision 1.386.2.66 diff -u -d -r1.386.2.65 -r1.386.2.66 --- SynEdit.pas 25 Jan 2007 05:38:22 -0000 1.386.2.65 +++ SynEdit.pas 20 Jun 2007 22:12:22 -0000 1.386.2.66 @@ -4916,7 +4916,7 @@ iWheelClicks: Integer; iLinesToScroll: Integer; begin - if ssCtrl in Application.KeyState then + if GetKeyState(VK_CONTROL) < 0 then iLinesToScroll := LinesInWindow shr Ord(eoHalfPageScroll in fOptions) else iLinesToScroll := 3; @@ -6450,7 +6450,6 @@ DoDrop, DropAfter, DropMove: Boolean; vBB, vBE: TBufferCoord; DragDropText: WideString; - Adjust: Integer; ChangeScrollPastEOL: Boolean; begin if not ReadOnly and (Source is TCustomSynEdit) |
|
From: Flávio E. <et...@us...> - 2007-06-12 07:54:23
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3214 Modified Files: Tag: UtterUnstable SynEdit.pas Log Message: Yes, I'm stupid. The bug is BackSpace (ecDeleteLastChar) handling, not here. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.389.2.91 retrieving revision 1.389.2.92 diff -u -d -r1.389.2.91 -r1.389.2.92 --- SynEdit.pas 12 Jun 2007 06:58:47 -0000 1.389.2.91 +++ SynEdit.pas 12 Jun 2007 07:54:19 -0000 1.389.2.92 @@ -3544,7 +3544,7 @@ if CaretX - 1 > Length(sLeftSide) then begin if not(eoTabsToSpaces in Options) and StringIsBlank(sLeftSide) then - sLeftSide := GetLeftSpacing(CaretX +1, True) + sLeftSide := GetLeftSpacing(CaretX -1, True) else sLeftSide := sLeftSide + StringOfChar(#32, CaretX - 1 - Length(sLeftSide)); |
|
From: Flávio E. <et...@us...> - 2007-06-12 06:58:52
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12839 Modified Files: Tag: UtterUnstable SynEdit.pas Log Message: Fix tab indentation in SetSelTextPrimitive. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.389.2.90 retrieving revision 1.389.2.91 diff -u -d -r1.389.2.90 -r1.389.2.91 --- SynEdit.pas 12 Jun 2007 00:33:43 -0000 1.389.2.90 +++ SynEdit.pas 12 Jun 2007 06:58:47 -0000 1.389.2.91 @@ -81,6 +81,8 @@ TBookMarkIndex = 0..9; + TDisplaySpecialChars = (dsNone, dsTabs, dsWhitespace, dsTrailingWhitespace, dsAll); + THookedCommandEvent = procedure(Sender: TObject; AfterProcessing: boolean; var Handled: boolean; var Command: TSynEditorCommand; var AChar: char; Data: pointer; HandlerData: pointer) of object; @@ -3541,8 +3543,8 @@ sLeftSide := Copy(LineText, 1, CaretX - 1); if CaretX - 1 > Length(sLeftSide) then begin - if (sLeftSide = '') and not(eoTabsToSpaces in Options) then - sLeftSide := GetLeftSpacing(CaretX -1, True) + if not(eoTabsToSpaces in Options) and StringIsBlank(sLeftSide) then + sLeftSide := GetLeftSpacing(CaretX +1, True) else sLeftSide := sLeftSide + StringOfChar(#32, CaretX - 1 - Length(sLeftSide)); |
|
From: Flávio E. <et...@us...> - 2007-06-12 00:33:49
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20531 Modified Files: Tag: UtterUnstable SynEdit.pas Log Message: Fix screen invalidation in LinesPutted. Supposedly :-$ Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.389.2.89 retrieving revision 1.389.2.90 diff -u -d -r1.389.2.89 -r1.389.2.90 --- SynEdit.pas 11 Jun 2007 23:50:22 -0000 1.389.2.89 +++ SynEdit.pas 12 Jun 2007 00:33:43 -0000 1.389.2.90 @@ -3980,16 +3980,14 @@ L: Integer; vEndLine: integer; begin - vEndLine := Index +1; if WordWrap then begin - if fWordWrapPlugin.LinesPutted( Index, aCount ) <> 0 then - vEndLine := MaxInt; + vEndLine := Index + aCount + fWordWrapPlugin.LinesPutted(Index, aCount); InvalidateGutterLines( Index +1, vEndLine ); InvalidateLines( Index +1, vEndLine ); end else - InvalidateLine( Index +1 ); + InvalidateLines(Index +1, Index + aCount); if (eoAutoSizeMaxScrollWidth in fOptions) then begin @@ -7249,7 +7247,9 @@ begin if fWordWrapPlugin <> Value then begin - Invalidate; // better Invalidate before changing LeftChar and TopLine + // Invalidate before changing LeftChar and TopLine just to avoid the + //unnecessary copy of the screen buffer (canvas). + Invalidate; vShowCaret := CaretInView; vOldTopLine := RowToLine(TopLine); fWordWrapPlugin := Value; |
|
From: Flávio E. <et...@us...> - 2007-06-11 23:54:24
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5779 Modified Files: Tag: UtterUnstable SynHighlighterMulti.pas Log Message: Remove 'SameExpression' nonsense. Index: SynHighlighterMulti.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynHighlighterMulti.pas,v retrieving revision 1.34.4.8 retrieving revision 1.34.4.9 diff -u -d -r1.34.4.8 -r1.34.4.9 --- SynHighlighterMulti.pas 28 Apr 2007 19:06:19 -0000 1.34.4.8 +++ SynHighlighterMulti.pas 11 Jun 2007 23:54:20 -0000 1.34.4.9 @@ -1054,15 +1054,6 @@ {$ENDIF SYN_COMPILER_3_UP} procedure TScheme.SetEndExpr(const Value: string); - - function SameExpression(const Value1, Value2: String): Boolean; - begin - if CaseSensitive then - Result := Value1 = Value2 - else - Result := SameText(Value1, Value2); - end; - var OldValue: String; begin @@ -1072,7 +1063,7 @@ fEndExpr.Expression := Value; if Value <> '' then CheckExpression(fEndExpr); - if not SameExpression(Value, OldValue) then + if CaseSensitive or not SameText(Value, OldValue) then Changed( True ); end; end; @@ -1105,15 +1096,6 @@ end; procedure TScheme.SetStartExpr(const Value: string); - - function SameExpression(const Value1, Value2: String): Boolean; - begin - if CaseSensitive then - Result := Value1 = Value2 - else - Result := SameText(Value1, Value2); - end; - var OldValue: String; begin @@ -1123,7 +1105,7 @@ fStartExpr.Expression := Value; if Value <> '' then CheckExpression(fStartExpr); - if not SameExpression(Value, OldValue) then + if CaseSensitive or not SameText(Value, OldValue) then Changed(True); end; end; |
|
From: Flávio E. <et...@us...> - 2007-06-11 23:52:18
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5378 Modified Files: Tag: UtterUnstable SynEditBasicActions.pas Log Message: Just remove some unused variables. Index: SynEditBasicActions.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/Attic/SynEditBasicActions.pas,v retrieving revision 1.1.2.9 retrieving revision 1.1.2.10 diff -u -d -r1.1.2.9 -r1.1.2.10 --- SynEditBasicActions.pas 22 Apr 2007 01:30:24 -0000 1.1.2.9 +++ SynEditBasicActions.pas 11 Jun 2007 23:52:15 -0000 1.1.2.10 @@ -774,17 +774,13 @@ Temp2: string; Helper: string; TabBuffer: string; - SpaceBuffer: String; SpaceCount1: Integer; SpaceCount2: Integer; BackCounter: Integer; - StartOfBlock: TBufferCoord; - EndOfBlock: TBufferCoord; moveBkm: boolean; WP: TBufferCoord; Caret: TBufferCoord; CaretNew: TBufferCoord; - i: integer; {$IFDEF SYN_MBCSSUPPORT} s: string; {$ENDIF} |
|
From: Flávio E. <et...@us...> - 2007-06-11 23:50:27
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv4642 Modified Files: Tag: UtterUnstable SynEdit.pas Log Message: - Lazy fix for Chars/LinesInWindow calculation (in SizeOrFontChanged). - Fix LastCaretX not stored in InsertSelTextPrimitive smNormal. - Indent with Tabs (if enabled) in InsertSelTextPrimitive smNormal. - Other minor fixes/cleanup. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.389.2.88 retrieving revision 1.389.2.89 diff -u -d -r1.389.2.88 -r1.389.2.89 --- SynEdit.pas 18 May 2007 17:00:11 -0000 1.389.2.88 +++ SynEdit.pas 11 Jun 2007 23:50:22 -0000 1.389.2.89 @@ -868,9 +868,9 @@ begin f := (aX - fGutterWidth - 2) / fCharWidth; // don't return a partially visible last line - if aY >= fLinesInWindow * fLineHeight then + if aY >= LinesInWindow * fLineHeight then begin - aY := fLinesInWindow * fLineHeight - 1; + aY := LinesInWindow * fLineHeight - 1; if aY < 0 then aY := 0; end; @@ -912,8 +912,8 @@ Exit; end; - iScrollBounds := Bounds(fGutterWidth, 0, fCharsInWindow * fCharWidth, - fLinesInWindow * fLineHeight); + iScrollBounds := Bounds(fGutterWidth, 0, CharsInWindow * fCharWidth, + LinesInWindow * fLineHeight); if BorderStyle = bsNone then InflateRect( iScrollBounds, -2, -2 ); @@ -2656,7 +2656,7 @@ // Make sure the token accumulator string doesn't get reassigned too often. if Assigned(fHighlighter) then begin - TokenAccu.MaxLen := Max(128, fCharsInWindow); + TokenAccu.MaxLen := Max(128, CharsInWindow); SetLength(TokenAccu.s, TokenAccu.MaxLen); end; // Parse ranges before painting (avoid tearing on very slow machines or very big lines). @@ -3002,6 +3002,7 @@ EndUndoBlock; end; + //todo: review this hack // ClientRect can be changed by UpdateScrollbars if eoHideShowScrollBars // is enabled if eoHideShowScrollBars in Options then @@ -3352,14 +3353,7 @@ begin fGutterWidth := Value; fTextOffset := fGutterWidth + 2 - (LeftChar - 1) * fCharWidth; - if HandleAllocated then - begin - fCharsInWindow := Max(ClientWidth - fGutterWidth - 2, 0) div fCharWidth; - if WordWrap then - fWordWrapPlugin.DisplayChanged; - UpdateScrollbars; - Invalidate; - end; + SizeOrFontChanged(False); end; end; @@ -3547,8 +3541,11 @@ sLeftSide := Copy(LineText, 1, CaretX - 1); if CaretX - 1 > Length(sLeftSide) then begin - sLeftSide := sLeftSide + StringOfChar(#32, - CaretX - 1 - Length(sLeftSide)); + if (sLeftSide = '') and not(eoTabsToSpaces in Options) then + sLeftSide := GetLeftSpacing(CaretX -1, True) + else + sLeftSide := sLeftSide + StringOfChar(#32, + CaretX - 1 - Length(sLeftSide)); end; sRightSide := Copy(LineText, CaretX, Length(LineText) - (CaretX - 1)); // step1: insert the first line of Value into current line @@ -3603,6 +3600,7 @@ else fCaretX := Length(Str) - Length(sRightSide) +1; StatusChanged([scCaretX]); + UpdateLastCaretX; end; function InsertColumn: Integer; @@ -3766,13 +3764,13 @@ if (eoScrollPastEof in Options) then Value := Min( Value, DisplayLineCount ) else - Value := Min( Value, DisplayLineCount - fLinesInWindow +1 ); + Value := Min( Value, DisplayLineCount - LinesInWindow +1 ); Value := Max(Value, 1); if Value <> TopLine then begin Delta := TopLine - Value; fTopLine := Value; - if Abs(Delta) < fLinesInWindow then + if Abs(Delta) < LinesInWindow then begin ScrollCanvas(0, fLineHeight * Delta, 0, 0); end @@ -3844,6 +3842,7 @@ Exit; end; + //todo: better calculation of scrollbar visiblity // Horizontal pagination if eoScrollPastEol in Options then v_ScrollRange := MaxScrollWidth @@ -5957,11 +5956,32 @@ end; procedure TCustomSynEdit.SizeOrFontChanged(FontChanged: Boolean); + + function CalculateCharsInWindow: Integer; + var + v_GuaranteedWidth: Integer; + begin + v_GuaranteedWidth := ClientWidth - fGutterWidth -2; + if not VertScrollBar.Visible then + Dec(v_GuaranteedWidth, VertScrollBar.Width); + Result := Max(v_GuaranteedWidth, 0) div fCharWidth; + end; + + function CalculateLinesInWindow: Integer; + var + v_GuaranteedHeight: Integer; + begin + v_GuaranteedHeight := ClientHeight; + if not HorzScrollBar.Visible then + Dec(v_GuaranteedHeight, HorzScrollBar.Height); + Result := v_GuaranteedHeight div fLineHeight; + end; + begin if HandleAllocated and (fCharWidth <> 0) then begin - fCharsInWindow := Max(ClientWidth - fGutterWidth - 2, 0) div fCharWidth; - fLinesInWindow := ClientHeight div fLineHeight; + fCharsInWindow := CalculateCharsInWindow; + fLinesInWindow := CalculateLinesInWindow; if WordWrap then begin fWordWrapPlugin.DisplayChanged; |
|
From: Flávio E. <et...@us...> - 2007-06-11 23:19:17
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv24954 Modified Files: Tag: UtterUnstable SynEditTextBuffer.pas Log Message: Doh. Index: SynEditTextBuffer.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditTextBuffer.pas,v retrieving revision 1.64.2.25 retrieving revision 1.64.2.26 diff -u -d -r1.64.2.25 -r1.64.2.26 --- SynEditTextBuffer.pas 23 May 2007 14:04:26 -0000 1.64.2.25 +++ SynEditTextBuffer.pas 11 Jun 2007 23:19:12 -0000 1.64.2.26 @@ -1373,7 +1373,8 @@ fInvalidRangeEnd := p_Index; end; end; - if fLastValidRange > p_Index then + Dec(fLastValidRange, p_Count); + if fLastValidRange < p_Index then fLastValidRange := p_Index; InvalidateRange(p_Index); Assert(fInvalidRangeBegin <= fInvalidRangeEnd); |
|
From: Flávio E. <et...@us...> - 2007-06-04 11:58:53
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv10828 Modified Files: Tag: UtterUnstable SynEditMiscClasses.pas SynEditOptionsDialog.pas SynEditReg.pas Log Message: SynEditOptionsDialog itself wasn't a nice place also... (D7 adds the unit to 'uses' recursively) Index: SynEditReg.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditReg.pas,v retrieving revision 1.33.4.3 retrieving revision 1.33.4.4 diff -u -d -r1.33.4.3 -r1.33.4.4 --- SynEditReg.pas 4 Jun 2007 07:12:20 -0000 1.33.4.3 +++ SynEditReg.pas 4 Jun 2007 11:58:37 -0000 1.33.4.4 @@ -282,7 +282,7 @@ UnRegisterClass(StdCtrls.TCheckBox); RegisterClass(StdCtrls.TCustomCheckBox); - RegisterComponents('Standard', [SynEditOptionsDialog.TCheckBox]); + RegisterComponents('Standard', [SynEditMiscClasses.TCheckBox]); end; end. Index: SynEditMiscClasses.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditMiscClasses.pas,v retrieving revision 1.35.4.6 retrieving revision 1.35.4.7 diff -u -d -r1.35.4.6 -r1.35.4.7 --- SynEditMiscClasses.pas 13 Dec 2006 10:57:13 -0000 1.35.4.6 +++ SynEditMiscClasses.pas 4 Jun 2007 11:58:37 -0000 1.35.4.7 @@ -434,6 +434,55 @@ property OnChange: TNotifyEvent read fOnChange write fOnChange; end; + { Redeclares TCheckBox just to publish the 'Align' property, used by SynEditOptionsDialog. } + TCheckBox = class(TCustomCheckBox) + published + property Action; + property Align; + property Alignment; + property AllowGrayed; + property Anchors; + property BiDiMode; + property Caption; + property Checked; + property Color nodefault; + property Constraints; + property Ctl3D; + property DragCursor; + property DragKind; + property DragMode; + property Enabled; + property Font; + property ParentBiDiMode; + property ParentColor; + property ParentCtl3D; + property ParentFont; + property ParentShowHint; + property PopupMenu; + property ShowHint; + property State; + property TabOrder; + property TabStop; + property Visible; + property WordWrap; + property OnClick; + property OnContextPopup; + property OnDragDrop; + property OnDragOver; + property OnEndDock; + property OnEndDrag; + property OnEnter; + property OnExit; + property OnKeyDown; + property OnKeyPress; + property OnKeyUp; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property OnStartDock; + property OnStartDrag; + end; + implementation uses Index: SynEditOptionsDialog.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditOptionsDialog.pas,v retrieving revision 1.22.2.11 retrieving revision 1.22.2.12 diff -u -d -r1.22.2.11 -r1.22.2.12 --- SynEditOptionsDialog.pas 4 Jun 2007 11:46:40 -0000 1.22.2.11 +++ SynEditOptionsDialog.pas 4 Jun 2007 11:58:37 -0000 1.22.2.12 @@ -94,55 +94,6 @@ SysUtils; type - { Redeclares TCheckBox just to publish the 'Align' property, used by SynEditOptionsDialog. } - TCheckBox = class(TCustomCheckBox) - published - property Action; - property Align; - property Alignment; - property AllowGrayed; - property Anchors; - property BiDiMode; - property Caption; - property Checked; - property Color nodefault; - property Constraints; - property Ctl3D; - property DragCursor; - property DragKind; - property DragMode; - property Enabled; - property Font; - property ParentBiDiMode; - property ParentColor; - property ParentCtl3D; - property ParentFont; - property ParentShowHint; - property PopupMenu; - property ShowHint; - property State; - property TabOrder; - property TabStop; - property Visible; - property WordWrap; - property OnClick; - property OnContextPopup; - property OnDragDrop; - property OnDragOver; - property OnEndDock; - property OnEndDrag; - property OnEnter; - property OnExit; - property OnKeyDown; - property OnKeyPress; - property OnKeyUp; - property OnMouseDown; - property OnMouseMove; - property OnMouseUp; - property OnStartDock; - property OnStartDrag; - end; - {$IFNDEF SYN_DELPHI_4_UP} TLVSelectItemEvent = procedure(Sender: TObject; Item: TListItem; Selected: Boolean) of object; |
|
From: Flávio E. <et...@us...> - 2007-06-04 11:46:47
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5991 Modified Files: Tag: UtterUnstable SynEditOptionsDialog.pas Log Message: Of course we want to be able to reset a keystroke. Index: SynEditOptionsDialog.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditOptionsDialog.pas,v retrieving revision 1.22.2.10 retrieving revision 1.22.2.11 diff -u -d -r1.22.2.10 -r1.22.2.11 --- SynEditOptionsDialog.pas 4 Jun 2007 07:12:20 -0000 1.22.2.10 +++ SynEditOptionsDialog.pas 4 Jun 2007 11:46:40 -0000 1.22.2.11 @@ -905,12 +905,8 @@ Cmd := Integer(cKeyCommand.Items.Objects[cKeyCommand.ItemIndex]); TSynEditKeyStroke(OldSelected.Data).Command:= TSynEditorCommand(Cmd); - - if eKeyShort1.HotKey <> 0 then - TSynEditKeyStroke(OldSelected.Data).ShortCut := eKeyShort1.HotKey; - - if eKeyShort2.HotKey <> 0 then - TSynEditKeyStroke(OldSelected.Data).ShortCut2:= eKeyShort2.HotKey; + TSynEditKeyStroke(OldSelected.Data).ShortCut := eKeyShort1.HotKey; + TSynEditKeyStroke(OldSelected.Data).ShortCut2:= eKeyShort2.HotKey; FillInKeystrokeInfo(TSynEditKeyStroke(OldSelected.Data), KeyList.Selected); end; |
|
From: Flávio E. <et...@us...> - 2007-06-04 11:45:49
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5593 Modified Files: Tag: SynEdit_2_0_x SynEditOptionsDialog.pas Log Message: Of course we want to be able to reset a keystroke. Index: SynEditOptionsDialog.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditOptionsDialog.pas,v retrieving revision 1.25 retrieving revision 1.25.2.1 diff -u -d -r1.25 -r1.25.2.1 --- SynEditOptionsDialog.pas 31 Dec 2005 07:34:36 -0000 1.25 +++ SynEditOptionsDialog.pas 4 Jun 2007 11:45:46 -0000 1.25.2.1 @@ -847,12 +847,8 @@ Cmd := Integer(cKeyCommand.Items.Objects[cKeyCommand.ItemIndex]); TSynEditKeyStroke(OldSelected.Data).Command:= Cmd; - - if eKeyShort1.HotKey <> 0 then - TSynEditKeyStroke(OldSelected.Data).ShortCut := eKeyShort1.HotKey; - - if eKeyShort2.HotKey <> 0 then - TSynEditKeyStroke(OldSelected.Data).ShortCut2:= eKeyShort2.HotKey; + TSynEditKeyStroke(OldSelected.Data).ShortCut := eKeyShort1.HotKey; + TSynEditKeyStroke(OldSelected.Data).ShortCut2:= eKeyShort2.HotKey; FillInKeystrokeInfo(TSynEditKeyStroke(OldSelected.Data), KeyList.Selected); end; |
|
From: Flávio E. <et...@us...> - 2007-06-04 07:12:23
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv26590 Modified Files: Tag: UtterUnstable SynEditOptionsDialog.dfm SynEditOptionsDialog.pas SynEditReg.pas Log Message: Better place for redeclaration of TCheckBox... Index: SynEditOptionsDialog.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditOptionsDialog.dfm,v retrieving revision 1.7.4.2 retrieving revision 1.7.4.3 diff -u -d -r1.7.4.2 -r1.7.4.3 Binary files /tmp/cvseq2bXs and /tmp/cvsOkmocl differ Index: SynEditReg.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditReg.pas,v retrieving revision 1.33.4.2 retrieving revision 1.33.4.3 diff -u -d -r1.33.4.2 -r1.33.4.3 --- SynEditReg.pas 4 Jun 2007 06:54:47 -0000 1.33.4.2 +++ SynEditReg.pas 4 Jun 2007 07:12:20 -0000 1.33.4.3 @@ -217,56 +217,6 @@ {$ENDIF} Classes; -type - { Redeclares TCheckBox just to publish the 'Align' property. } - TCheckBox = class(TCustomCheckBox) - published - property Action; - property Align; - property Alignment; - property AllowGrayed; - property Anchors; - property BiDiMode; - property Caption; - property Checked; - property Color nodefault; - property Constraints; - property Ctl3D; - property DragCursor; - property DragKind; - property DragMode; - property Enabled; - property Font; - property ParentBiDiMode; - property ParentColor; - property ParentCtl3D; - property ParentFont; - property ParentShowHint; - property PopupMenu; - property ShowHint; - property State; - property TabOrder; - property TabStop; - property Visible; - property WordWrap; - property OnClick; - property OnContextPopup; - property OnDragDrop; - property OnDragOver; - property OnEndDock; - property OnEndDrag; - property OnEnter; - property OnExit; - property OnKeyDown; - property OnKeyPress; - property OnKeyUp; - property OnMouseDown; - property OnMouseMove; - property OnMouseUp; - property OnStartDock; - property OnStartDrag; - end; - procedure Register; begin // SynEdit main components @@ -332,7 +282,7 @@ UnRegisterClass(StdCtrls.TCheckBox); RegisterClass(StdCtrls.TCustomCheckBox); - RegisterComponents('Standard', [TCheckBox]); + RegisterComponents('Standard', [SynEditOptionsDialog.TCheckBox]); end; end. Index: SynEditOptionsDialog.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditOptionsDialog.pas,v retrieving revision 1.22.2.9 retrieving revision 1.22.2.10 diff -u -d -r1.22.2.9 -r1.22.2.10 --- SynEditOptionsDialog.pas 13 Mar 2007 18:42:38 -0000 1.22.2.9 +++ SynEditOptionsDialog.pas 4 Jun 2007 07:12:20 -0000 1.22.2.10 @@ -94,6 +94,55 @@ SysUtils; type + { Redeclares TCheckBox just to publish the 'Align' property, used by SynEditOptionsDialog. } + TCheckBox = class(TCustomCheckBox) + published + property Action; + property Align; + property Alignment; + property AllowGrayed; + property Anchors; + property BiDiMode; + property Caption; + property Checked; + property Color nodefault; + property Constraints; + property Ctl3D; + property DragCursor; + property DragKind; + property DragMode; + property Enabled; + property Font; + property ParentBiDiMode; + property ParentColor; + property ParentCtl3D; + property ParentFont; + property ParentShowHint; + property PopupMenu; + property ShowHint; + property State; + property TabOrder; + property TabStop; + property Visible; + property WordWrap; + property OnClick; + property OnContextPopup; + property OnDragDrop; + property OnDragOver; + property OnEndDock; + property OnEndDrag; + property OnEnter; + property OnExit; + property OnKeyDown; + property OnKeyPress; + property OnKeyUp; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property OnStartDock; + property OnStartDrag; + end; + {$IFNDEF SYN_DELPHI_4_UP} TLVSelectItemEvent = procedure(Sender: TObject; Item: TListItem; Selected: Boolean) of object; |
|
From: Flávio E. <et...@us...> - 2007-06-04 06:54:51
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv19560 Modified Files: Tag: UtterUnstable SynEditReg.pas Log Message: Redefines a TCheckbox class that publishes 'Align' property. Index: SynEditReg.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditReg.pas,v retrieving revision 1.33.4.1 retrieving revision 1.33.4.2 diff -u -d -r1.33.4.1 -r1.33.4.2 --- SynEditReg.pas 29 Sep 2004 11:51:53 -0000 1.33.4.1 +++ SynEditReg.pas 4 Jun 2007 06:54:47 -0000 1.33.4.2 @@ -40,6 +40,10 @@ interface +procedure Register; + +implementation + uses {$IFDEF SYN_CLX} // SynEdit components @@ -125,6 +129,7 @@ QSynHighlighterLDraw, QSynURIOpener, {$ELSE} + StdCtrls, // SynEdit components SynEdit, SynMemo, @@ -212,9 +217,55 @@ {$ENDIF} Classes; -procedure Register; - -implementation +type + { Redeclares TCheckBox just to publish the 'Align' property. } + TCheckBox = class(TCustomCheckBox) + published + property Action; + property Align; + property Alignment; + property AllowGrayed; + property Anchors; + property BiDiMode; + property Caption; + property Checked; + property Color nodefault; + property Constraints; + property Ctl3D; + property DragCursor; + property DragKind; + property DragMode; + property Enabled; + property Font; + property ParentBiDiMode; + property ParentColor; + property ParentCtl3D; + property ParentFont; + property ParentShowHint; + property PopupMenu; + property ShowHint; + property State; + property TabOrder; + property TabStop; + property Visible; + property WordWrap; + property OnClick; + property OnContextPopup; + property OnDragDrop; + property OnDragOver; + property OnEndDock; + property OnEndDrag; + property OnEnter; + property OnExit; + property OnKeyDown; + property OnKeyPress; + property OnKeyUp; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property OnStartDock; + property OnStartDrag; + end; procedure Register; begin @@ -278,6 +329,10 @@ TSynIdlSyn, TSynUnrealSyn, TSynCPMSyn, TSynTeXSyn, TSynHaskellSyn, TSynLDRSyn, TSynURISyn, TSynDOTSyn, TSynRCSyn ]); + + UnRegisterClass(StdCtrls.TCheckBox); + RegisterClass(StdCtrls.TCustomCheckBox); + RegisterComponents('Standard', [TCheckBox]); end; end. |
|
From: Flávio E. <et...@us...> - 2007-05-26 15:53:43
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv11219 Modified Files: Tag: UtterUnstable SynPlatformAbstraction.pas Log Message: Theoretical fix in UpdateScrollBars. Index: SynPlatformAbstraction.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/Attic/SynPlatformAbstraction.pas,v retrieving revision 1.1.2.15 retrieving revision 1.1.2.16 diff -u -d -r1.1.2.15 -r1.1.2.16 --- SynPlatformAbstraction.pas 22 Apr 2007 01:30:24 -0000 1.1.2.15 +++ SynPlatformAbstraction.pas 26 May 2007 15:53:40 -0000 1.1.2.16 @@ -489,7 +489,9 @@ try if ComputeScrollbars then begin - v_ClientRect := ClientRect; + // Need to use the 'inherited' value because we might have already + //excluded scrollbars' areas in GetClientRect. + v_ClientRect := inherited ClientRect; HorzScrollBar.SetBounds(v_ClientRect.Left, v_ClientRect.Bottom, v_ClientRect.Right - v_ClientRect.Left, HorzScrollBar.Height); VertScrollBar.SetBounds(v_ClientRect.Right, v_ClientRect.Top, |
1 message has been excluded from this view by a project administrator.