Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* unicode fix in TDialog.NewLabel

git-svn-id: branches/unicodekvm@48615 -
nickysn 4 years ago
parent
d5ef64fb91
commit
6e845e397f
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      packages/fv/src/dialogs.inc

+ 1 - 1
packages/fv/src/dialogs.inc
View File 

@@ -1298,7 +1298,7 @@ end;
 
 {****************************************************************************}
 
 { TDialog.NewLabel                                                           }
 
 {****************************************************************************}
 
-function TDialog.NewLabel (X, Y : Sw_Integer; AText : String;
 
+function TDialog.NewLabel (X, Y : Sw_Integer; AText : Sw_String;
 
                               ALink : PView) : PLabel;
 
 var
 
   P : PLabel;