Probleme mit Canvas beim neuzeichnen

[huberlix]

Folgendes Prob:

Mit

Delphi-Quellcode:

Canvas.Pen.Width:=1
....moveto(x,y)
....lineto(100,200)

Zeichne ich ne dünne Linie.

Dann

Delphi-Quellcode:

Canvas.Pen.Width:=2
....moveto(a,b)
....lineto(500,600)

ne dicke Linie.

Das ganze im Form1.OnPaint.
Ziehe ich nun ein anderes Fenster drüber, bzw resize das Fenster, werden alle Linien dick gezeichnet.???
Woran liegt das?

Gruß, huberlix

[Dani]

Hi!

Zeig bitte mal den kompletten OnPaint Code =)

[huberlix]

Vergesst es einfach, ich bin ein Idiot!

Hab mir das Canvas.Pen.Width:=1 wohl nur gedacht. Geschrieben hab ichs jedenfalls nicht.

Vermutlich Copy/ Paste fehler. (Strg-X statt Strg-C )
Gruß huberlix