Auf ein Image schreiben

[Sanchez]

Zitat von dedeur:

so hab ich s gemacht

procedure TForm1.Image1MouseDown(Sender: TObject; Button:

Code:

TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FTextMode then begin
    edText.Left := X + Image1.Left;
    edText.Top  := Y + Image1.Top;
    edText.Visible := true;
    edText.AutoSize := true;
    edText.Text := '';
    edText.Color := clRed;
    edText.Font.Size := 20;
    FTextMode   := false;
    btText.Down := false;

  end else begin
        Font.Size := 20;
    Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top,
      edText.Text,);

    edText.Visible := false;
  end;

end;

Im else-Zweig musst du
  Image1.Picture.Bitmap.Canvas.Font.Size := 20; anstatt
  Font.Size := 20; Du könntest allerdings auch einen Font-Dialog verwenden und dann einfach den Font zuweisen, wenn der Dialog ausgeführt wurde.
Wie das geht solltest du problemlos in der OH oder hier finden.

grüße, daniel