Auf ein Image schreiben

[Sanchez]

Ich hab mal eben sowas in die Richtung gemacht.
Findest im Anhang.

[dedeur]

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:

:coder:

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:
:coder:

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 :cyclops: und find den fehler nicht

[Markus K.]

Hallo dedeur,
wiefolgt müsstest du den Text vergrößern können.

Delphi-Quellcode:

with Image1.Picture.Bitmap.Canvas do
begin
     Font.Size:={Größe einsetzen};
     TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top, edText.Text);
end;

Tschüß Markus

[dedeur]

@Markus

in welcher procedure :?:

[Markus K.]

Du musst es in der Prozedur TForm1.Image1MouseDown anstelle von
Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top, edText.Text); einfügen.

Tschüß Markus

[edit=sakura] Mehrfachposts gelöscht ;) Mfg, sakura[/edit]

[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;

komischerweise verändert er die schrift des Buttons und nicht was ich schreibe :wall:

[Sanchez]

Zitat:

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

Delphi-Quellcode:

  Image1.Picture.Bitmap.Canvas.Font.Size := 20;

anstatt

Delphi-Quellcode:

  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

[dedeur]

:coder: :coder: :coder:

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: :coder:

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 :?:

[Sanchez]

Hi,

Du meinst vermutlich, dass du die Schriftart auch am Bild dann haben willst, oder?

Delphi-Quellcode:

procedure TForm1.Schriftart1Click(Sender: TObject); 
begin 
  if FontDialog1.Execute then begin
    edText.Font := FontDialog1.Font; 
    Image1.Picture.Bitmap.Canvas.Font := FontDialog1.Font;
  end;
end;

BTW: Würde ich beim anzeigen des Edits auch gleich den Fokus reinsetzen (mit edText.SetFocus;)

grüße, daniel

[dedeur]

Damit hat es geklappt: :coder:

Code:

Image1.Picture.Bitmap.Canvas.Font := FontDialog1.Font;

bin sogar selber drauf gekommen :lol:

Jetzt will ich aber das der Hintergrund die farbe beibehält, weil die weiße Hintergrundfarbe nicht dahin soll sondern nur der TEXT aufs Image soll
Fummel gerade mit dem :arrow: SetBkColor(TransparentColor); versucht klappt aber irgendwie noch nicht :(


Viele Grüße an Daniel der hier sehr kooperativ aushilft Vielen dank :thuimb: