From d68f8093d13b87706ca774d903411aa4228d4588 Mon Sep 17 00:00:00 2001
From: drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sat, 22 Mar 2008 00:16:23 +0000
Subject: * Changed the ui designer to set msg.Stop for it's widgets events.

---
 examples/apps/uidesigner/vfddesigner.pas | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'examples/apps')

diff --git a/examples/apps/uidesigner/vfddesigner.pas b/examples/apps/uidesigner/vfddesigner.pas
index c310439a..227e04bd 100644
--- a/examples/apps/uidesigner/vfddesigner.pas
+++ b/examples/apps/uidesigner/vfddesigner.pas
@@ -272,6 +272,7 @@ var
   shift: boolean;
 begin
 //  writeln('TFormDesigner.MsgMouseDown');
+  msg.Stop  := True;
   FDragging := True;
   FWasDrag  := False;
   FDragPosX := msg.Params.mouse.x;
@@ -309,6 +310,7 @@ var
   x, y: integer;
 begin
 //  writeln('TFormDesigner.MsgMouseUp');
+  msg.Stop  := True;
   FDragging := False;
 
   shift := (ssShift in msg.Params.mouse.shiftstate);
@@ -373,6 +375,7 @@ var
   dx, dy: integer;
   wgd: TWidgetDesigner;
 begin
+  msg.Stop  := True;
   if not FDragging then
     Exit;
 
@@ -403,6 +406,7 @@ begin
   key := msg.params.keyboard.keycode;
   ss  := msg.params.keyboard.shiftstate;
 
+  msg.Stop := True;
   consumed := False;
 
   DesignerKeyPress(key, ss, consumed);
@@ -412,10 +416,12 @@ procedure TFormDesigner.MsgMove(var msg: TfpgMessageRec);
 begin
   if msg.dest = FForm then
     UpdatePropWin;
+  msg.Stop  := True;
 end;
 
 procedure TFormDesigner.MsgResize(var msg: TfpgMessageRec);
 begin
+  msg.Stop := True;
   if msg.dest = FForm then
   begin
     DeSelectAll; // because of the anchorings
@@ -1230,6 +1236,7 @@ end;
 
 procedure TFormDesigner.MsgActivate(var msg: TfpgMessageRec);
 begin
+  msg.Stop := True;
   maindsgn.SelectForm(self);
 end;
 
-- 
cgit v1.2.3-70-g09d2