diff --git a/examples/designnonlcl/mywidgetdesigner.pas b/examples/designnonlcl/mywidgetdesigner.pas
index 589cb672df..ff7ede265b 100644
--- a/examples/designnonlcl/mywidgetdesigner.pas
+++ b/examples/designnonlcl/mywidgetdesigner.pas
@@ -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