Forum: Multimedia
Delphi
by Patrick6,
6. Jan 2011
Okay Danke. So geht das jetzt alles wie ich will.
Forum: Multimedia
Delphi
by Patrick6,
6. Jan 2011
procedure TForm1.SpinEdit1Exit(Sender: TObject);
begin
if SpinEdit1.Text <> ''
then
try
Image1.Canvas.Pen.Width := SpinEdit1.Value;
finally
SpinEdit1.MaxValue := 80;
SpinEdit1.MinValue := 1;
if
Forum: Multimedia
Delphi
by Patrick6,
6. Jan 2011
Unit1.pas(117): Operator ist auf diesen Operandentyp nicht anwendbar
Der Fehler kommt da bei mir...
Forum: Multimedia
Delphi
by Patrick6,
6. Jan 2011
Hmm...wenn ich es ins ONExit Ereignis setze verändert sich die Dicke des STiftes garnichtmehr.
DAfür bekomm ich keine Fehler bei "," oder ähnlichem
Forum: Multimedia
Delphi
by Patrick6,
6. Jan 2011
Danke schonmal für die Antwort. Ich hab ein bisschen rumgespielt und das meiste geht jetzt. Mein Code sieht folgendermaßen aus:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if SpinEdit1.Text <> ''
then
try
Image1.Canvas.Pen.Width := SpinEdit1.Value;
finally
SpinEdit1.MaxValue := 80;
Forum: Multimedia
Delphi
by Patrick6,
5. Jan 2011
Hallo zusammen...
Ich dachte ich schreib hier rein, weil ich ein ähnliches Problem habe. Ich wollte die SpinEdit auch benutzen, nur das ich damit meine Stiftstärke für mein Zeichenprogramm bestimm.
Mein Code sieht jetzt wie folgt aus:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if SpinEdit1.Text <> '' then
begin