Changeset 20 for branches/Xvcl/Xvcl.Kernel.pas

Timestamp:

May 6, 2013, 12:16:30 AM (12 years ago)

Author:

chronos

Message:

• Modified: Improved messages passing to controls.
• Modified: Now TButton change background color during mouse click.

Location:

branches/Xvcl

Files:

• . (modified) (1 prop)
• Xvcl.Kernel.pas (modified) (2 diffs)

branches/Xvcl

@@ -2 +2 @@
 *.local
 Win32
+__history

@@ -2 +2 @@
 *.local
 Win32
+__history

branches/Xvcl/Xvcl.Kernel.pas

@@ -45 +45 @@
   TMouse = class
     Kernel: TKernel;
-    procedure HandleClick(Position: TPoint);
+    procedure HandleDown(Position: TPoint);
+    procedure HandleUp(Position: TPoint);
   end;
 
@@ -199 +200 @@
 { TMouse }
 
-procedure TMouse.HandleClick(Position: TPoint);
+procedure TMouse.HandleDown(Position: TPoint);
 var
   Form: TForm;
-begin
-  for Form in Kernel.Screen.Forms do begin
-    Form.HandleClick(Position.Substract(Form.Bounds.LeftTop));
+  NewMessage: TMessageMouse;
+begin
+  NewMessage := TMessageMouseDown.Create;
+  NewMessage.Position := Position;
+  try
+    for Form in Kernel.Screen.Forms do begin
+      if Form.HandleMessage(NewMessage) then begin
+        Break;
+      end;
+    end;
+  finally
+    NewMessage.Destroy;
+  end;
+end;
+
+procedure TMouse.HandleUp(Position: TPoint);
+var
+  Form: TForm;
+  NewMessage: TMessageMouse;
+begin
+  NewMessage := TMessageMouseUp.Create;
+  NewMessage.Position := Position;
+  try
+    for Form in Kernel.Screen.Forms do begin
+      if Form.HandleMessage(NewMessage) then begin
+        Break;
+      end;
+    end;
+  finally
+    NewMessage.Destroy;
   end;
 end;

@@ -2 +2 @@
 *.local
 Win32
+__history