From d830867f37ac731fcce5279adfb4f22f766b2033 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 24 Jan 2011 07:17:35 +0000
Subject: [PATCH] anchordocking examples: TOpenDialog instead of TSaveDialog.
 patch by samuel herzog. issue #18595

git-svn-id: trunk@29182 -
---
 examples/anchordocking/design/registeranchordocking.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/examples/anchordocking/design/registeranchordocking.pas b/examples/anchordocking/design/registeranchordocking.pas
index 542e1d9c33..06a1d29cf7 100644
--- a/examples/anchordocking/design/registeranchordocking.pas
+++ b/examples/anchordocking/design/registeranchordocking.pas
@@ -472,10 +472,10 @@ end;
 
 procedure TIDEAnchorDockMaster.LoadLayoutFromFileClicked(Sender: TObject);
 var
-  Dlg: TSaveDialog;
+  Dlg: TOpenDialog;
   Filename: String;
 begin
-  Dlg:=TSaveDialog.Create(nil);
+  Dlg:=TOpenDialog.Create(nil);
   try
     InitIDEFileDialog(Dlg);
     Dlg.Title:=adrsLoadWindowLayoutFromFileXml;