Changeset 20 for branches/Xvcl/Drivers/Driver.MouseVCL.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)
• Drivers (modified) (1 prop)
• Drivers/Driver.MouseVCL.pas (modified) (2 diffs)

branches/Xvcl

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

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

branches/Xvcl/Drivers/Driver.MouseVCL.pas

@@ -24 +24 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  Kernel.Mouse.HandleClick(TPoint.Create(X, Y));
+  Kernel.Mouse.HandleDown(TPoint.Create(X, Y));
 end;
 
@@ -30 +30 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-
+  Kernel.Mouse.HandleUp(TPoint.Create(X, Y));
 end;
 

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