From bbf5a97ebb35eedbde49b2659cfc5b69f76f4639 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 10 Mar 2015 17:19:34 +0000 Subject: [PATCH] synedit: TSynEdit has no preferred size git-svn-id: trunk@48241 - --- components/synedit/synedit.pp | 10 ++++++++++ components/synedit/syngutterlineoverview.pp | 5 +---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index bb8f49ae9d..a3bf4f960c 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -799,6 +799,8 @@ type procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); override; procedure DoOnResize; override; + procedure CalculatePreferredSize(var PreferredWidth, + PreferredHeight: integer; WithThemeSpace: Boolean); override; function RealGetText: TCaption; override; procedure RealSetText(const Value: TCaption); override; function GetLines: TStrings; override; @@ -4840,6 +4842,14 @@ begin // SetLeftChar(LeftChar); //mh 2000-10-19 end; +procedure TCustomSynEdit.CalculatePreferredSize(var PreferredWidth, + PreferredHeight: integer; WithThemeSpace: Boolean); +begin + // synedit has no preferred size + PreferredWidth:=0; + PreferredHeight:=0; +end; + var ScrollHintWnd: THintWindow; diff --git a/components/synedit/syngutterlineoverview.pp b/components/synedit/syngutterlineoverview.pp index 6ee09f54fb..36874ea5c9 100644 --- a/components/synedit/syngutterlineoverview.pp +++ b/components/synedit/syngutterlineoverview.pp @@ -1382,10 +1382,7 @@ var begin inherited DoResize(Sender); if (not SynEdit.HandleAllocated) or (not Self.Visible) then exit; - FWinControl.Top := Top; - FWinControl.Left := Left; - FWinControl.Width := Width; - FWinControl.Height := Height; + FWinControl.BoundsRect := Bounds(Left,Top,Width,Height); {$IFDEF DARWIN} FLineMarks.PixelHeight := Height;