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:

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

[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

[Sanchez]

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

[dedeur]

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:

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:

Code:

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

bin sogar selber drauf gekommen

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 SetBkColor(TransparentColor); versucht klappt aber irgendwie noch nicht


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