habe nochmal eine frage zur zeichenfunktion canvas:
habe eine combobox mit 6 einträgen, in der man die liniendicke bestimmen kann:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| case combobox3.ItemIndex of
0:ldicke:=1;
1:ldicke:=2;
2:ldicke:=3;
3:ldicke:=4;
4:ldicke:=5;
5:ldicke:=6;
end; |
und in eienr anderen unit, der die variablen der 1.unit übergeben werden, die eigentliche zuweisung:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure Txxxx.Mal(Canvas: TCanvas);
begin
case ldicke of
1:canvas.Pen.width:=1;
2:canvas.Pen.width:=2;
3:canvas.Pen.width:=3;
4:canvas.Pen.width:=4;
5:canvas.Pen.width:=5;
6:canvas.Pen.width:=6;
end;
end; |
alles schön und gut, funktioniert auch, wenn ich jetzt von 1 auf 6 hochschraube, wird es eben um einiges dicker. gehe ich jetzt allerdings wieder auf dicke 1 zurück, bleibt die linie dick, wird nur etwas dünner, ich schätze ca. width:=3 oder so...
was ist daran falsch?
danke
mfg
Moderiert von 
raziel: Quote- durch Delphi-Tags ersetzt
