Changeset 5 for os/trunk/Xvcl/Xvcl.Controls.pas

Timestamp:

Jun 2, 2013, 2:34:55 PM (11 years ago)

Author:

chronos

Message:

• Added: Implemented sample desktop manager as simple application.

Location:

os/trunk

Files:

• . (modified) (1 prop)
• Xvcl (modified) (1 prop)
• Xvcl/Xvcl.Controls.pas (moved) (moved from os/trunk/Xvcl.Controls.pas ) (3 diffs)

os/trunk

@@ -1 +1 @@
 Win32
 *.~dsk
+__history

@@ -1 +1 @@
 Win32
 *.~dsk
+__history

os/trunk/Xvcl/Xvcl.Controls.pas

@@ -24 +24 @@
   TMessageMouseUp = class(TMessageMouse);
   TMessageMouseMove = class(TMessageMouse);
+  TMessageResize = class(TMessage);
+  TMessageTaskList = class(TMessage);
 
   TKeyState = (ksShift, ksAlt, ksOS);
@@ -186 +188 @@
   if FColor <> Value then begin
     FColor := Value;
-    Paint;
+    if Visible then Paint;
   end;
 end;
@@ -225 +227 @@
   if FCaption <> Value then begin
     FCaption := Value;
-    Paint;
+    if Visible then Paint;
   end;
 end;

@@ -1 +1 @@
 Win32
 *.~dsk
+__history