Delphi-Quellcode:
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 := '';
// Die gewünschten Einstellungen aus dem FontDiag werden in den TEXT übernommen
Image1.Picture.Bitmap.Canvas.Font := FontDialog1.Font;
SetBkMode(Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT);
FTextMode := false;
end else begin
Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top,
edText.Text,);
edText.Visible := false;
end;
hab es mal so übernommen er führt auch aus jedoch ist der Hintergrund immer noch weiß
