From ad260042ca17b2a381a6be1b6ac9dd549e4d5956 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 23 Jul 2008 08:31:53 +0000
Subject: * Minor parameter type change in Clipboard classes from String to
 TfpgString.

---
 src/corelib/gdi/gfx_gdi.pas | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

(limited to 'src/corelib/gdi/gfx_gdi.pas')

diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas
index afcd8b63..2dc6dd1d 100644
--- a/src/corelib/gdi/gfx_gdi.pas
+++ b/src/corelib/gdi/gfx_gdi.pas
@@ -138,8 +138,6 @@ type
   end;
 
 
-  { TfpgWindowImpl }
-
   TfpgWindowImpl = class(TfpgWindowBase)
   private
     FMouseInWindow: boolean;
@@ -176,8 +174,6 @@ type
   end;
 
 
-  { TfpgApplicationImpl }
-
   TfpgApplicationImpl = class(TfpgApplicationBase)
   protected
     FDisplay: HDC;
@@ -223,15 +219,13 @@ type
 
   TfpgClipboardImpl = class(TfpgClipboardBase)
   protected
-    FClipboardText: string;
-    function    DoGetText: string; override;
-    procedure   DoSetText(const AValue: string); override;
+    FClipboardText: TfpgString;
+    function    DoGetText: TfpgString; override;
+    procedure   DoSetText(const AValue: TfpgString); override;
     procedure   InitClipboard; override;
   end;
 
 
-  { TfpgFileListImpl }
-
   TfpgFileListImpl = class(TfpgFileListBase)
     function    EncodeAttributesString(attrs: longword): TFileModeString;
     constructor Create; override;
@@ -2129,7 +2123,7 @@ end;
 
 { TfpgClipboardImpl }
 
-function TfpgClipboardImpl.DoGetText: string;
+function TfpgClipboardImpl.DoGetText: TfpgString;
 var
   h: THANDLE;
   p: PChar;
@@ -2155,7 +2149,7 @@ begin
   Result := FClipboardText;
 end;
 
-procedure TfpgClipboardImpl.DoSetText(const AValue: string);
+procedure TfpgClipboardImpl.DoSetText(const AValue: TfpgString);
 begin
   FClipboardText := AValue;
   if OpenClipboard(FClipboardWndHandle) then
-- 
cgit v1.2.3-70-g09d2