Text auf Canvas mit unterschidlichen Schrift-Styles zeichen???

[turboPASCAL]

Delphi-Quellcode:

procedure TFrmXYZ.DrawTheText(theCanvas: TCanvas; X,Y: Integer; theText: String);
var
  p, w: integer;
  s: string;
begin
  p := Pos(':'#32, theText);

  with theCanvas do
  begin
    Font.Style := Font.Style + [fsBold];
    s := Copy(theText, 1, p+1);
    w := TextWidth(s);
    TextOut(X, Y, s);

    Font.Style := Font.Style - [fsBold];
    Delete(theText, 1, p + 1);
    TextOut(X + w , Y, theText);
  end;
end;

procedure TFrmXYZ.Paint...;
begin
  DrawTheText(Canvas, 50, 160, 'Vorname: Otto');
end;