paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 interface: made ListBox.Item[0] := 'bla' unicode aware

Browse Source 
git-svn-id: trunk@13278 -
This commit is contained in:
vincents 2007-12-11 15:37:28 +00:00
parent 7999dc48e6
commit 46ca875004
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lcl/interfaces/win32/win32listsl.inc
View File

@ -27,21 +27,6 @@
{$UNDEF H_PLUS}
{$ENDIF}
{*************************************************************}
{ Default compare function }
{*************************************************************}
Function DefaultCompareFunc(A, B: HWND): Integer; CDecl;
Var
AStr, BStr: PChar;
Begin
AStr:=nil;
BStr:=nil;
GetWindowText(A, AStr, GetWindowTextLength(A) + 1);
GetWindowText(B, BStr, GetWindowTextLength(B) + 1);
Result := StrComp(AStr, BStr);
end;
{*************************************************************}
{ TWin32ListStringList methods }
{*************************************************************}
@ -165,17 +150,36 @@ end;
------------------------------------------------------------------------------}
Function TWin32ListStringList.Get(Index: Integer): String;
Var
{$ifdef WindowsUnicodeSupport}
s: string;
w: widestring;
{$else}
Item: PChar;
{$endif}
Begin
If (Index < 0) Or (Index >= Count) Then
Raise Exception.Create('Out of bounds.')
Else
Begin
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then begin
SetLength(w, Windows.SendMessageW(FWin32List, FFlagGetTextLen, Index, 0));
Windows.SendMessageW(FWin32List, FFlagGetText, Index, LPARAM(PWideChar(w)));
Result := UTF8Encode(w);
end
else
begin
SetLength(s, Windows.SendMessage(FWin32List, FFlagGetTextLen, Index, 0));
Windows.SendMessage(FWin32List, FFlagGetText, Index, LPARAM(PChar(s)));
Result := AnsiToUtf8(s);
end;
{$else}
Getmem(Item, Windows.SendMessage(FWin32List, FFlagGetTextLen, Index, 0)+1);
Windows.SendMessage(FWin32List, FFlagGetText, Index, LPARAM(Item));
Result := Item;
FreeMem(Item);
{$endif}
End;
Result := StrPas(Item);
Dispose(Item);
End;
{------------------------------------------------------------------------------