Changeset 58 for Docking/CoolDocking/UCoolDockWindowList.pas

Timestamp:

Sep 23, 2010, 11:41:59 AM (14 years ago)

Author:

george

Message:

• Upraveno: Systém inicializace ukotvení přepracován z ručního na automatický pomocí použití komponenty TCoolDockClient. Zrušeno nastavení globální třídy výchozího správce ukotvení.

File:

• Docking/CoolDocking/UCoolDockWindowList.pas (modified) (1 diff)

Docking/CoolDocking/UCoolDockWindowList.pas

@@ -103 +103 @@
             //ShowMessage(IntToStr(Integer(Form.Icon.TransparentColor)));
             IconBitmap.Assign(Form.Icon);
-          //IconBitmap.Canvas.Draw(0, 0, Form.Icon);
+            //IconBitmap.Canvas.Draw(0, 0, Form.Icon);
 
-            Mask.Assign(Form.Icon);
-            Mask.Canvas.Brush.Color := Form.Icon.TransparentColor;
-            Mask.Monochrome := True;
-            ImageList1.BkColor := clBlack;
-            ImageList1.Add(IconBitmap, Mask);
+            //Mask.Assign(Form.Icon);
+            //Mask.Canvas.Brush.Color := Form.Icon.TransparentColor;
+            //Mask.Monochrome := True;
+            //ImageList1.BkColor := clBlack;
+            ImageList1.Add(IconBitmap, nil);
           finally
             Mask.Free;