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

MG: fixed drawing of non visual components in designer

Browse Source 
git-svn-id: trunk@1873 -
This commit is contained in:
lazarus 2002-08-17 23:39:25 +00:00
parent 0fe28ce670
commit 7ff7e844bf
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -5929,6 +5929,7 @@ begin
Result := IsValidDC(DestDC) and IsValidDC(SrcDC);
if Result
then begin
with PDeviceContext(DestDC)^ do begin
Inc(X,Origin.X);
Inc(Y,Origin.Y);
@ -5938,6 +5939,9 @@ begin
Inc(YSrc,Origin.Y);
end;
//writeln('TgtkObject.StretchBlt X=',X,' Y=',Y,' Width=',Width,' Height=',Height,
// ' XSrc=',XSrc,' YSrc=',YSrc,' SrcWidth=',SrcWidth,' SrcHeight=',SrcHeight);
(*
Result := DRAWABLE_MATRIX[
@ -5948,28 +5952,29 @@ begin
*)
// To Supress GDK Errors/Warnings
If (XSrc < 0 ) then begin
SrcWidth := SrcWidth + XSrc;
XSrc := 0;
{If (XSrc < 0 ) then begin
inc(SrcWidth,XSrc);
XSrc := 0;
end;
// To Supress GDK Errors/Warnings
If (YSrc < 0 ) then begin
SrcHeight := SrcHeight + YSrc;
YSrc := 0;
inc(SrcHeight,YSrc);
YSrc := 0;
end;
if (SrcWidth<=0) or (SrcHeight<=0) then exit;
// To Supress GDK Errors/Warnings
If (X < 0 ) then begin
Width := Width + X;
Width := Width - X;
X := 0;
end;
// To Supress GDK Errors/Warnings
If (Y < 0 ) then begin
Height := Height + Y;
Height := Height - Y;
Y := 0;
end;
end;}
If PDeviceContext(SrcDC)^.Drawable = nil then begin
If PDeviceContext(DestDC)^.Drawable = nil then
@ -6256,6 +6261,9 @@ end;
{ =============================================================================
$Log$
Revision 1.117 2002/08/30 13:43:38 lazarus
MG: fixed drawing of non visual components in designer
Revision 1.116 2002/08/30 12:32:24 lazarus
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...