hallo NG,
ich will jetzt noch den Text Größer haben den ich auf der BMP erstelle hab es hiermit versucht zeigt aber keine wirkung:
Code:
procedure TForm1.edTextKeyPress(Sender: TObject; var Key: Char);
begin
edText.Font.Size := 20;
end;
und hiermit beides leider nicht zum gewünschtem erfolg geführt:
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 := '';
edText.Font.Size := 20; :!: darum gehts
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;
kann jemand helfen ich glaub ich bin etwas
und find den fehler nicht