Canvas Pinseldicke mit EditFeld

[xVaskii]

Hallo Community, bin neu hier.
Wollte wissen ob ihr einen Tipp habt wie man die Pinseldicke des Canvas mit einem EditFeld einstellen kann.
Habe schon ein wenig ausprobiert aber der Stift blieb auf 1px. Danke schon mal im voraus.

Ich benutze Delphi 7 (keine ahnung warum oben steht dass ich Version 5 hab :D) und im Anhang ist ein Bild von dem Programm.

Code:

procedure TForm1.Edit1Change(Sender: TObject);
  var wert:integer;
begin
  wert:=strtoint(edit1.Text);
  wert:=Pinseldicke;
end;

Das hab ich schon versucht (Pinseldicke ist als Variable Global deklariert), ohne Erfolg. Kann mir auch nicht vorstellen dass es sehr viel komplexer sein wird.

Danke! :-D

[Uwe Raabe]

Bei einer Zuweisung steht das Ziel links. Was also passiert bei

Delphi-Quellcode:

wert:=Pinseldicke;

?

Irgendwo muss aber dann noch ein

Delphi-Quellcode:

Canvas.Pen.Width := Pinseldicke

stehen.

[xVaskii]

Danke für die schnelle Antwort, leider tut sich da nicht viel. Hab immernoch das Problem dass es einfach ein dünner strich bleibt.

[Uwe Raabe]

Dann liegt der Fehler nicht in dem Code-Teil, den du uns zeigst.

[xVaskii]

okay, wo könnte er denn dann liegen? fehlt ja nur eine zuweisung zur image komponente ?

[Medium]

Du musst dir angewöhnen immer ein Stück des betreffenden Codes mit zu posten. Aus deinen Ausführungen lässt sich überhaupt nichts ableiten. Das liegt aber nicht an dir, denn praktisch jede Beschreibung ist wenn es um Fehlersuche geht ohne exakt den zugehörigen Code nicht ausreichend. (Zumindest so lange es nicht um reine Konzeptfragen geht, sondern wie hier um ganz handfeste Probleme mit dem konkreten Code.)

[xVaskii]

Welchen Teil des Codes wollt ihr sehen?

[Amateurprofi]

Zitat:

Zitat von xVaskii (Beitrag 1336431)

Welchen Teil des Codes wollt ihr sehen?

Den Teil, in dem der Fehler ist.