Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Windows Unicode Units gesucht

  Alt 26. Jul 2005, 10:59
Also SetDlgWindowTextW kennt er aber hier haperts:
Delphi-Quellcode:
procedure FillTreeView_Groups(hTV: THandle; const Computer: WideString; Groups: TGroups);
var
  Users : TStringArray;
  i, j : Integer;
  tvi : TTVInsertStructW;
  hr : HTREEITEM;
  hParent : HTREEITEM;
begin
  TreeView_DeleteAllItems(hTV);
  if length(Groups) = 0 then exit;
  SetLength(Users, 0);
  setlength(hWndGroupNodes, length(Groups)); ;
  ZeroMemory(@tvi, sizeof(tvi));
  SendMessage(hTV, WM_SETREDRAW, Integer(False), 0);
  tvi.hParent := nil;
  tvi.hInsertAfter := TVI_ROOT;
  tvi.item.mask := TVIF_TEXT or TVIF_IMAGE or TVIF_SELECTEDIMAGE;
  tvi.item.iImage := 3;
  tvi.item.iSelectedImage := 3;
  tvi.item.pszText := PWideChar(Computer);
  hr := TreeView_InsertItemW(hTV, tvi);
TreeView_InsertItemW kennt er zum Beispiel nicht.

@Robert: Was für ein Schalter? Diesen Unicode Kompilerschalter kenne ich nur von VC her.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat