Changeset 21 for branches/Xvcl/Xvcl.Controls.pas

Timestamp:

May 8, 2013, 12:53:50 AM (12 years ago)

Author:

chronos

Message:

• Added: Custom independent basic generics implementation.

File:

• branches/Xvcl/Xvcl.Controls.pas (modified) (3 diffs)

branches/Xvcl/Xvcl.Controls.pas

@@ -4 +4 @@
 
 uses
-  Generics.Collections, Xvcl.Classes, Xvcl.Graphics;
+  Xvcl.Generics, Xvcl.Classes, Xvcl.Graphics;
 
 type
@@ -142 +142 @@
 function TControl.HandleMessage(Message: TMessage): Boolean;
 begin
+  Result := False;
   if Message is TMessageMouseDown then begin
     if Assigned(FOnMouseDown) then FOnMouseDown(Self);
     Color := clGray;
     Paint;
+    Result := True;
   end else
   if Message is TMessageMouseUp then begin
@@ -152 +154 @@
     Paint;
     if Assigned(FOnClick) then FOnClick(Self);
+    Result := True;
   end;
 end;