paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 03:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn: Implements GetCliBox, now TGrid starts to appear

Browse Source 
git-svn-id: trunk@36544 -
This commit is contained in:
sekelsenmat 2012-04-03 15:48:52 +00:00
parent 258b8b8ad5
commit a8ad7b2373
2 changed files with 26 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -2586,7 +2586,7 @@ begin
Result := True;
end;
(*{------------------------------------------------------------------------------
{------------------------------------------------------------------------------
Function: GetClipBox
Params: dc, lprect
Returns: Integer
@ -2601,62 +2601,45 @@ end;
SimpleRegion
ComplexRegion
------------------------------------------------------------------------------}
function TQtWidgetSet.GetClipBox(DC: hDC; lpRect: PRect): Longint;
function TCDWidgetSet.GetClipBox(DC: hDC; lpRect: PRect): Longint;
var
ARegion: QRegionH;
Pt: TPoint;
LazDC: TLazCanvas;
lClipRegion: TFPCustomRegion;
begin
{$ifdef VerboseCDWinAPI}
DebugLn('[WinAPI GetClipBox] DC ' + dbghex(DC));
{$endif}
Result := NULLREGION;
if lpRect <> nil then
lpRect^ := Rect(0,0,0,0);
if DC = 0 then DC := HDC(ScreenDC);
if not IsValidDC(DC) then
Result := ERROR;
if Result <> ERROR then
with TQtDeviceContext(DC) do
if Result = ERROR then Exit;
LazDC := TLazCanvas(DC);
if (lpRect<>nil) then
begin
{$ifdef VerboseQtWinAPI}
Writeln('TQtWidgetSet.GetClipBox FastClip=',
((vClipRect <> nil) and not vClipRectDirty) );
{$endif}
// the most correct way to get a clipbox if through
// region.boundingrect, but it's slower.
// TODO: remove "and false" below when vClipRectDirty is implemented
// it should be "true" when user set a custom clip rect
// and "false" on beginpaint
if (vClipRect<>nil) and not vClipRectDirty and false then
lpRect^ := vClipRect^
else
if getClipping then
lClipRegion := LazDC.ClipRegion;
if lClipRegion = nil then
begin
ARegion := QRegion_Create;
try
QPainter_clipRegion(Widget, ARegion);
GetWindowOrgEx(DC, @Pt);
if (Pt.X <> 0) or (Pt.Y <> 0) then
SetWindowOrgEx(DC, Pt.X, Pt.Y, @Pt);
QRegion_boundingRect(ARegion, lpRect);
finally
QRegion_destroy(ARegion);
end;
Result := SIMPLEREGION;
Result := NULLREGION;
lpRect^ := Bounds(0, 0, LazDC.Width, LazDC.Height);
end
else
if vImage <> nil then
begin
lpRect^ := Rect(0, 0, vImage.width, vImage.height);
Result := SIMPLEREGION;
end;
{$ifdef VerboseQtWinAPI}
WriteLn('TQtWidgetSet.GetClipBox Rect=', dbgs(lprect^));
{$endif}
begin
Result := SIMPLEREGION;
lpRect^ := lClipRegion.GetBoundingRect();
end;
end;
end;
{------------------------------------------------------------------------------
(*{------------------------------------------------------------------------------
Function: GetClipRGN
Params: dc, rgn
Returns: Integer

4
lcl/interfaces/customdrawn/customdrawnwinapih.inc
View File

@ -110,8 +110,8 @@ function GetCaretRespondToFocus(handle: HWND; var ShowHideOnFocus: boolean): Boo
function GetClientBounds(handle : HWND; var ARect : TRect) : Boolean; override;
function BackendGetClientBounds(handle : HWND; var ARect : TRect) : Boolean;
function GetClientRect(handle : HWND; var ARect : TRect) : Boolean; override;
(*function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
function GetClipRGN(DC: hDC; RGN: hRGN): Longint; override;
function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
(*function GetClipRGN(DC: hDC; RGN: hRGN): Longint; override;
function GetCmdLineParamDescForInterface: string; override;
function GetCurrentObject(DC: HDC; uObjectType: UINT): HGDIOBJ; override;*)
function GetCursorPos(var lpPoint: TPoint ): Boolean; override;