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