Einzelnen Beitrag anzeigen

Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#33

AW: Delphi7 mit nur einer Unit Unicode fähig machen

  Alt 24. Mai 2016, 16:51
Bei Turbo-Delphi muß es ab Zeile 1740 so aussehen:

Delphi-Quellcode:
function GetCharacterPlacementUnicode(DC: HDC; p2: PChar; p3, p4: Integer;
  var p5: TagGCP_ResultsW; p6: cardinal): cardinal; stdcall;
var wsbuf : TDynWSbuf;
    ii : integer;
begin
  ii := ConvertToWideChar(p2,p3,wsbuf,false);
  Result := windows.GetCharacterPlacementW(DC,@wsbuf[0],ii,p4,p5,p6);
end;
Sortierkino und Sortier-Kino
Ob ein Programm wirklich gute Qualität hat, erkennt man am besten dann, wenn man einen unbedarften darauf losläßt.
  Mit Zitat antworten Zitat