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
) 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!