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

examples: designer mediator: fixed 64bit type

Browse Source 
git-svn-id: trunk@21774 -
This commit is contained in:
mattias 2009-09-19 23:11:06 +00:00
parent bc005b9925
commit 805685aa94
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/designnonlcl/mywidgetdesigner.pas
View File

@ -153,10 +153,10 @@ procedure TMyWidgetMediator.Paint;
procedure PaintWidget(AWidget: TMyWidget);
var
i: Integer;
DC: LongInt;
SavedDC: LongInt;
DC: HDC;
SavedDC: HDC;
Child: TMyWidget;
SavedDC2: LongInt;
SavedDC2: HDC;
begin
with LCLForm.Canvas do begin
// fill background