Changeset 57 for Docking/CoolDocking/UCoolDockWindowList.pas

Timestamp:

Sep 22, 2010, 9:21:42 AM (14 years ago)

Author:

george

Message:

• Přidáno: Zobrazení ikon v titulku ukotvených oken.
• Opraveno: Vzájemné provázání TCoolDockCustomize a TCoolDockMaster.
• Upraveno: Vytváření seznamu ukotvitelných oken komponenty TCoolDockWindowList.

File:

• Docking/CoolDocking/UCoolDockWindowList.pas (modified) (4 diffs)

Docking/CoolDocking/UCoolDockWindowList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, StdCtrls;
+  ComCtrls, StdCtrls, Menus;
 
 type
@@ -27 +27 @@
   public
     procedure LoadList;
+    procedure LoadToMenuItem(MenuItem: TMenuItem);
   end; 
 
@@ -75 +76 @@
   Form: TForm;
   DockState: string;
+  IconBitmap: TBitmap;
+  Mask: TBitmap;
 begin
   with ListView1, Items do begin
@@ -81 +84 @@
     ImageList1.Clear;
     for I := 0 to Application.ComponentCount - 1 do begin
-      if Application.Components[I] is TForm then begin
+      if (Application.Components[I] is TForm) then begin
         Form := (Application.Components[I] as TForm);
-        NewItem := Add;
-        NewItem.Caption := Form.Caption;
-        NewItem.Data := Form;
-        if Assigned(Form.HostDockSite) then DockState := SStateDocked
-          else DockState := SStateFloating;
-        NewItem.SubItems.Add(DockState);
-        if Form.Visible then DockState := SStateVisible
-          else DockState := SStateHidden;
-        NewItem.SubItems.Add(DockState);
-        ImageList1.AddIcon(Form.Icon);
+        if Form.DragKind = dkDock then begin
+          NewItem := Add;
+          NewItem.Caption := Form.Caption;
+          NewItem.Data := Form;
+          if Assigned(Form.HostDockSite) then DockState := SStateDocked
+            else DockState := SStateFloating;
+          NewItem.SubItems.Add(DockState);
+          if Form.Visible then DockState := SStateVisible
+            else DockState := SStateHidden;
+          NewItem.SubItems.Add(DockState);
+
+          try
+            Mask := TBitmap.Create;
+            IconBitmap := TBitmap.Create;
+            //IconBitmap.SetSize(Form.Icon.Width, Form.Icon.Height);
+            //ShowMessage(IntToStr(Integer(Form.Icon.TransparentColor)));
+            IconBitmap.Assign(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);
+          finally
+            Mask.Free;
+            IconBitmap.Free;
+          end;
+
+          NewItem.ImageIndex := ImageList1.Count - 1;
+        end;
       end;
     end;
     EndUpdate;
+  end;
+end;
+
+procedure TCoolDockWindowListForm.LoadToMenuItem(MenuItem: TMenuItem);
+var
+  NewMenuItem: TMenuItem;
+  I: Integer;
+  Form: TForm;
+begin
+  with MenuItem do begin
+    Clear;
+    for I := 0 to Application.ComponentCount - 1 do begin
+      if Application.Components[I] is TForm then begin
+        Form := (Application.Components[I] as TForm);
+        NewMenuItem := TMenuItem.Create(MenuItem);
+        NewMenuItem.Caption := Form.Caption;
+        MenuItem.Add(NewMenuItem);
+      end;
+    end;
   end;
 end;