Gleisbild Editor für Modellbahn

[DGL-luke]

Hallo, hier:

Delphi-Quellcode:

procedure TextToBitmap(text: string; var Bitmap: TBitmap);
var
  r: TRect;
begin
  if Bitmap = nil then
    Bitmap := TBitmap.create;

  Bitmap.SetSize(10, 10);

  r := rect(0,0,10,10);

  DrawText(Bitmap.Canvas.Handle,PChar(text),length(text),r,DT_NOPREFIX or DT_NOCLIP or DT_CALCRECT);

  bitmap.SetSize(r.Right,r.Bottom);

  DrawText(Bitmap.Canvas.Handle,PChar(text),length(text),r,0,DT_NOPREFIX or DT_NOCLIP);
end;

Sollte dir ein Bitmap mit dem Text, nicht mehr und nicht weniger, geben. ich hoffe nur, er bricht nicht um, das müsste man testen. DT_SINGLELINE als zusätzliches Flag könnte helfen, obwohl das PSDK sich da anders ausdrückt.