Changeset 462 for Docking/CoolDocking/Managers/UCDManagerRegions.pas

Timestamp:

May 5, 2013, 12:15:00 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Load icon with correct size to title bar.

File:

• Docking/CoolDocking/Managers/UCDManagerRegions.pas (modified) (2 diffs)

Docking/CoolDocking/Managers/UCDManagerRegions.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Controls, ExtCtrls, StdCtrls, Forms,
+  Classes, SysUtils, Controls, ExtCtrls, StdCtrls, Forms, Dialogs, Types,
   Graphics, Contnrs, Buttons, UCDCommon, UCDManager,
   LCLType, LMessages;
@@ -285 +285 @@
   end;
   if (Control is TForm) and Assigned((Control as TForm).Icon) then begin
+    (Control as TForm).Icon.Current := (Control as TForm).Icon.GetBestIndexForSize(
+      Size(NewItem.PanelHeader.Header.Height, NewItem.PanelHeader.Header.Height));
     NewItem.PanelHeader.Header.Icon.Picture.Assign((Control as TForm).Icon);
     NewItem.PanelHeader.Header.Icon.Width := NewItem.PanelHeader.Header.Icon.Picture.Bitmap.Width;