From e8a71eb00676a8f504a1cdb8b8777618a1573a8f Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Wed, 1 Oct 2014 21:13:10 +0000
Subject: [PATCH] TAChart: Implement a windows-only solution to copying a chart
 to the clipboard as windows metafile. Update wmf demo. (see:
 http://forum.lazarus.freepascal.org/index.php/topic,25985.msg158945/topicseen.html#new)

git-svn-id: trunk@46396 -
---
 components/tachart/demo/wmf/main.lfm    | 19 +++++++++++++----
 components/tachart/demo/wmf/main.pas    | 10 +++++++++
 components/tachart/demo/wmf/wmfdemo.lpi | 12 +++--------
 components/tachart/demo/wmf/wmfdemo.lpr |  2 +-
 components/tachart/tadrawerwmf.pas      | 27 +++++++++++++++++++++++--
 5 files changed, 54 insertions(+), 16 deletions(-)

diff --git a/components/tachart/demo/wmf/main.lfm b/components/tachart/demo/wmf/main.lfm
index ab921c1e73..1badc6d50f 100644
--- a/components/tachart/demo/wmf/main.lfm
+++ b/components/tachart/demo/wmf/main.lfm
@@ -1,13 +1,13 @@
 object Form1: TForm1
-  Left = 1317
+  Left = 896
   Height = 330
-  Top = 168
+  Top = 186
   Width = 403
   Caption = 'Form1'
   ClientHeight = 330
   ClientWidth = 403
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.3'
   object Chart1: TChart
     Left = 0
     Height = 292
@@ -15,10 +15,12 @@ object Form1: TForm1
     Width = 403
     AxisList = <    
       item
+        Minors = <>
         Title.LabelFont.Orientation = 900
       end    
       item
         Alignment = calBottom
+        Minors = <>
       end>
     Depth = 30
     Foot.Brush.Color = clBtnFace
@@ -55,11 +57,20 @@ object Form1: TForm1
       Left = 8
       Height = 25
       Top = 8
-      Width = 88
+      Width = 104
       Caption = 'Save To WMF'
       OnClick = btnSaveToMetafileClick
       TabOrder = 0
     end
+    object btnCopyToClipboard: TButton
+      Left = 120
+      Height = 25
+      Top = 8
+      Width = 139
+      Caption = 'Copy to clipboard'
+      OnClick = btnCopyToClipboardClick
+      TabOrder = 1
+    end
   end
   object RandomChartSource1: TRandomChartSource
     PointsNumber = 20
diff --git a/components/tachart/demo/wmf/main.pas b/components/tachart/demo/wmf/main.pas
index 87f9e3cfa4..522ca82d7f 100644
--- a/components/tachart/demo/wmf/main.pas
+++ b/components/tachart/demo/wmf/main.pas
@@ -14,12 +14,14 @@ type
 
   TForm1 = class(TForm)
     btnSaveToMetafile: TButton;
+    btnCopyToClipboard: TButton;
     Chart1: TChart;
     Chart1BarSeries1: TBarSeries;
     Chart1LineSeries1: TLineSeries;
     Panel1: TPanel;
     RandomChartSource1: TRandomChartSource;
     procedure btnSaveToMetafileClick(Sender: TObject);
+    procedure btnCopyToClipboardClick(Sender: TObject);
   end;
 
 var
@@ -40,5 +42,13 @@ begin
     Draw(TWindowsMetafileDrawer.Create('test.wmf'), Rect(0, 0, Width, Height));
 end;
 
+procedure TForm1.btnCopyToClipboardClick(Sender: TObject);
+begin
+  with Chart1 do
+    Draw(TWindowsMetafileDrawer.Create(''), Rect(0, 0, Width, Height));
+    // Setting the file name to an empty string results in copying the chart to
+    // the clipboard as a windows metafile.
+end;
+
 end.
 
diff --git a/components/tachart/demo/wmf/wmfdemo.lpi b/components/tachart/demo/wmf/wmfdemo.lpi
index 305ecf07e0..a206d9eec9 100644
--- a/components/tachart/demo/wmf/wmfdemo.lpi
+++ b/components/tachart/demo/wmf/wmfdemo.lpi
@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -48,19 +48,19 @@
       <Unit0>
         <Filename Value="wmfdemo.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="wmfdemo"/>
       </Unit0>
       <Unit1>
         <Filename Value="main.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Main"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <Target>
       <Filename Value="wmfdemo"/>
@@ -76,12 +76,6 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">
diff --git a/components/tachart/demo/wmf/wmfdemo.lpr b/components/tachart/demo/wmf/wmfdemo.lpr
index 992fd659b0..9a97cd4585 100644
--- a/components/tachart/demo/wmf/wmfdemo.lpr
+++ b/components/tachart/demo/wmf/wmfdemo.lpr
@@ -7,7 +7,7 @@ uses
   cthreads,
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, Main, tachartlazaruspkg, tachartwmf
+  Forms, Main, tachartlazaruspkg
   { you can add units after this };
 
 {$R *.res}
diff --git a/components/tachart/tadrawerwmf.pas b/components/tachart/tadrawerwmf.pas
index d42bfcc843..a92dd9da9e 100644
--- a/components/tachart/tadrawerwmf.pas
+++ b/components/tachart/tadrawerwmf.pas
@@ -52,6 +52,7 @@ type
   public
     procedure Assign(ASource: TPersistent); override;
     procedure Clear; override;
+    procedure CopyToClipboard;
     procedure LoadFromFile(const AFileName: String); override;
     procedure LoadFromStream(AStream: TStream); override;
     function ReleaseHandle: HENHMETAFILE;
@@ -98,7 +99,7 @@ type
 implementation
 
 uses
-  SysUtils, TAChartUtils;
+  SysUtils, clipbrd, TAChartUtils;
 
 { TWindowsMetafileDrawer }
 
@@ -129,7 +130,11 @@ end;
 procedure TWindowsMetafileDrawer.DrawingEnd;
 begin
   FreeAndNil(FCanvas);
-  FMetafile.SaveToFile(FFileName);
+  if FFileName = '' then
+   // Clipboard.Assign(FMetaFile)
+    FMetafile.CopyToClipboard
+  else
+    FMetafile.SaveToFile(FFileName);
 end;
 
 function TWindowsMetafileDrawer.GetCanvas: TCanvas;
@@ -329,6 +334,24 @@ begin
   DeleteImage;
 end;
 
+procedure TMetafile.CopyToClipboard;
+// http://www.olivierlanglois.net/metafile-clipboard.html
+var
+  Format: Word;
+  Data: THandle;
+begin
+  if FImageHandle = 0 then exit;
+
+  OpenClipboard(0);
+  try
+    EmptyClipboard;
+    Format := CF_ENHMETAFILE;
+    SetClipboardData(Format, FImageHandle); //Data);
+  finally
+    CloseClipboard;
+  end;
+end;
+
 procedure TMetafile.LoadFromFile(const AFileName: String);
 begin
   Unused(AFileName);