paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 12:16:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: TSynEdit has no preferred size

Browse Source 
git-svn-id: trunk@48241 -
This commit is contained in:
mattias 2015-03-10 17:19:34 +00:00
parent 792642e06e
commit bbf5a97ebb
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -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;

5
components/synedit/syngutterlineoverview.pp
View File

@ -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;