Code:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: 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 := '';
Image1.Picture.Bitmap.Canvas.Font.Size := 24;
//Image1.Picture.Bitmap.Canvas.Font.Color := clblue;
// edText.Color := clGreen;
FTextMode := false;
// btText.Down := false;
end else begin
Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top,
edText.Text,);
edText.Visible := false;
end;
klappt alles wunder bar, ich will jetzt aber noch den Schriftart verändern den ich aus einem edit Feld ja auf das Image lade
ich mache folgendes:
Code:
procedure TForm1.Schriftart1Click(Sender: TObject);
begin
if FontDialog1.Execute then edText.Font := FontDialog1.Font;
end;
Er ändert aber nur im Edit feld die Schriftart nicht aber wenn ich sie Überge.
hat jemand rat wie ich die veränderte Schriftart übergeben kann
