paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 22:00:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unicode version of TListViewer.GetText

Browse Source 
git-svn-id: branches/unicodekvm@48560 -
This commit is contained in:
nickysn 2021-02-09 20:36:17 +00:00
parent 6198d4a0a1
commit bb06c623c3
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fv/src/views.inc
View File

@ -615,7 +615,11 @@ TYPE
CONSTRUCTOR Load (Var S: TStream);
FUNCTION GetPalette: PPalette; Virtual;
FUNCTION IsSelected (Item: Sw_Integer): Boolean; Virtual;
{$ifdef FV_UNICODE}
FUNCTION GetText (Item: Sw_Integer; MaxLen: Sw_Integer): UnicodeString; Virtual;
{$else FV_UNICODE}
FUNCTION GetText (Item: Sw_Integer; MaxLen: Sw_Integer): String; Virtual;
{$endif FV_UNICODE}
PROCEDURE Draw; Virtual;
PROCEDURE FocusItem (Item: Sw_Integer); Virtual;
PROCEDURE SetTopItem (Item: Sw_Integer);
@ -3589,7 +3593,11 @@ END;
{--TListViewer--------------------------------------------------------------}
{ GetText -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 28May98 LdB }
{---------------------------------------------------------------------------}
{$ifdef FV_UNICODE}
FUNCTION TListViewer.GetText (Item: Sw_Integer; MaxLen: Sw_Integer): UnicodeString;
{$else FV_UNICODE}
FUNCTION TListViewer.GetText (Item: Sw_Integer; MaxLen: Sw_Integer): String;
{$endif FV_UNICODE}
BEGIN { Abstract method }
GetText := ''; { Return empty }
END;