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

LCL carbon: fixed synedit scrolling bugs #0010869 and #0010055

Browse Source 
git-svn-id: trunk@14810 -
This commit is contained in:
tombo 2008-04-12 18:44:33 +00:00
parent 87798ed1c2
commit 7ed219b411
2 changed files with 34 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/carbon/carbondef.pp
View File

@ -75,6 +75,7 @@ type
procedure CreateWidget(const AParams: TCreateParams); virtual; abstract;
procedure DestroyWidget; virtual; abstract;
function GetContent: ControlRef; virtual; abstract;
procedure UpdateLCLClientRect;
public
LCLObject: TWinControl; // LCL control which created this widget
Context: TCarbonContext; // Carbon content area context
@ -430,6 +431,18 @@ begin
end;
end;
{------------------------------------------------------------------------------
Method: TCarbonWidget.UpdateLCLClientRect
Updates client rect of LCL object
------------------------------------------------------------------------------}
procedure TCarbonWidget.UpdateLCLClientRect;
begin
LCLObject.InvalidateClientRectCache(False);
LCLSendSizeMsg(LCLObject, LCLObject.Width,
LCLObject.Height, Size_SourceIsInterface);
end;
{------------------------------------------------------------------------------
Method: TCarbonWidget.FocusSet

31
lcl/interfaces/carbon/carbonprivate.pp
View File

@ -197,7 +197,9 @@ type
FScrollView: HIViewRef;
FScrollOrigin: HIPoint;
FScrollSize: TPoint;
FScrollMin: TPoint;
FScrollPageSize: TPoint;
FMulX: Single; // multiply x coords to fit real page size
FMulY: Single; // multiply y coords to fit real page size
FTextFractional: Boolean;
@ -662,6 +664,7 @@ begin
FScrollView := EmbedInScrollView(AParams);
FScrollSize := Classes.Point(0, 0);
FScrollMin := Classes.Point(0, 0);
FScrollPageSize := Classes.Point(0, 0);
FScrollOrigin := GetHIPoint(0, 0);
FMulX := 1;
@ -673,6 +676,8 @@ begin
FTextFractional := True;
inherited;
UpdateLCLClientRect; // force update client rect
end;
{------------------------------------------------------------------------------
@ -800,7 +805,7 @@ begin
with ScrollMsg do
begin
Msg := LM_VSCROLL;
Pos := Round(FScrollOrigin.Y);
Pos := Round(FScrollOrigin.Y) + FScrollMin.Y;
ScrollCode := SB_THUMBPOSITION;
end;
DeliverMessage(LCLObject, ScrollMsg);
@ -810,7 +815,7 @@ begin
with ScrollMsg do
begin
Msg := LM_HSCROLL;
Pos := Round(FScrollOrigin.X);
Pos := Round(FScrollOrigin.X) + FScrollMin.X;
ScrollCode := SB_THUMBPOSITION;
end;
DeliverMessage(LCLObject, ScrollMsg);
@ -869,17 +874,23 @@ begin
if (SIF_RANGE and ScrollInfo.fMask) > 0 then
begin
if SBStyle = SB_HORZ then
FScrollSize.X := (ScrollInfo.nMax - ScrollInfo.nMin);
begin
FScrollSize.X := (ScrollInfo.nMax - ScrollInfo.nMin + 1);
FScrollMin.X := ScrollInfo.nMin;
end;
if SBStyle = SB_VERT then
FScrollSize.Y := (ScrollInfo.nMax - ScrollInfo.nMin);
begin
FScrollSize.Y := (ScrollInfo.nMax - ScrollInfo.nMin + 1);
FScrollMin.Y := ScrollInfo.nMin;
end;
end;
if (SIF_POS and ScrollInfo.fMask) > 0 then
begin
if SBStyle = SB_HORZ then
FScrollOrigin.X := ScrollInfo.nPos;
FScrollOrigin.X := ScrollInfo.nPos - FScrollMin.X;
if SBStyle = SB_VERT then
FScrollOrigin.Y := ScrollInfo.nPos;
FScrollOrigin.Y := ScrollInfo.nPos - FScrollMin.Y;
end;
if (SIF_PAGE and ScrollInfo.fMask) > 0 then
@ -929,17 +940,17 @@ begin
ScrollInfo.nMin := 0;
if SBStyle = SB_HORZ then
ScrollInfo.nMax := FScrollSize.X;
ScrollInfo.nMax := FScrollSize.X - FScrollMin.X - 1;
if SBStyle = SB_VERT then
ScrollInfo.nMax := FScrollSize.Y;
ScrollInfo.nMax := FScrollSize.Y - FScrollMin.Y - 1;
end;
if (SIF_POS and ScrollInfo.fMask) > 0 then
begin
if SBStyle = SB_HORZ then
ScrollInfo.nPos := Round(FScrollOrigin.X);
ScrollInfo.nPos := Trunc(FScrollOrigin.X) + FScrollMin.X;
if SBStyle = SB_VERT then
ScrollInfo.nPos := Round(FScrollOrigin.Y);
ScrollInfo.nPos := Trunc(FScrollOrigin.Y) + FScrollMin.Y;
end;
if (SIF_PAGE and ScrollInfo.fMask) > 0 then