anchordocking: use icons from forms

git-svn-id: trunk@26091 -
2025-08-15 23:59:12 +02:00 · 2010-06-13 15:05:39 +00:00 · 2010-06-13 15:05:39 +00:00 · 40a2dd61bf
commit 40a2dd61bf
parent b971bd845b
2 changed files with 4288 additions and 0 deletions
--- a/examples/anchordocking/anchordocking.pas
+++ b/examples/anchordocking/anchordocking.pas
@ -2171,6 +2171,9 @@ begin
  DestRect := ClientRect;
  NewControl.Dock(Self, DestRect);
  FSiteType:=adhstOneControl;
+  if NewControl is TCustomForm then begin
+    Icon.Assign(TCustomForm(NewControl).Icon);
+  end;
  Result:=true;
 end;

--- a/examples/anchordocking/minide/simplefrm.lfm
+++ b/examples/anchordocking/minide/simplefrm.lfm