hallo
habe folgendes eingehagt er compeliert auch, aber wenn ich im edit1 feld etwas reinschreibe und denn button klick tut sich nichts.
muss mal ein lob an euch aussprechen ihr seid eine echte Hilfe auch wenns noch nit klappt
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
FTextPickMode := not FTextPickmode and (edit1.Text <> '');
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if FPickMode then begin
Image1.Picture.Bitmap.Canvas.TextOut(x , y, edit1.Text);
end;
end;
end.