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

lcl; gtk2: clean up

Browse Source 
git-svn-id: trunk@38748 -
This commit is contained in:
mattias 2012-09-19 12:28:42 +00:00
parent edc52f2857
commit 0b14197bf3
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -2328,9 +2328,6 @@ end;
function TGtk2WidgetSet.DrawEdge(DC: HDC; var ARect: TRect; Edge: Cardinal;
grfFlags: Cardinal): Boolean;
var
DevCtx: TGtkDeviceContext absolute DC;
procedure DrawEdges(var R: TRect; GC: pgdkGC; Drawable:PGdkDrawable;
const TopLeftColor, BottomRightColor: TGDKColor);
begin
@ -6648,8 +6645,6 @@ end;
function TGtk2WidgetSet.LineTo(DC: HDC; X, Y: Integer): Boolean;
var
DevCtx: TGtkDeviceContext absolute DC;
DCOrigin: TPoint;
FromPt: TPoint;
ToPt: TPoint;
begin
@ -6827,8 +6822,6 @@ end;
------------------------------------------------------------------------------}
function TGtk2WidgetSet.MoveToEx(DC: HDC; X, Y: Integer; OldPoint: PPoint): Boolean;
var
DevCtx: TGtkDeviceContext absolute DC;
begin
Result := IsValidDC(DC);
if Result then