1 files changed, 5 insertions, 11 deletions
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