Guten abend zusammen,
bin gerade für meine Verlobte über ein kleines Programm, jedoch will
meine Shape nicht so zeichnen wie och es will.
Diese Soll bei einer Positiven Abfrage sich zu 50% Rot Färben.
Hier die Basisdaten des Shapes und die Befehlszeilen, welche die
erledigen sollen.
1
objectShape399:TShape
2
Left=344
3
Height=30
4
Hint='Testshape'
5
Top=256
6
Width=30
7
ParentShowHint=False
8
ShowHint=True
9
end
Objekteigenschaften beim Proframmladen.
Diese Zeilen sollen das Shape399 auf der Größe 0,0, 15, 30 Rotzeichnen
1
Shape399.Canvas.Brush.Color:=clred;
2
Shape399.Canvas.Line(0,0,0,30);
3
Shape399.Canvas.Line(1,0,1,30);
4
Shape399.Canvas.Line(2,0,2,30);
5
Shape399.Canvas.Line(3,0,3,30);
6
Shape399.Canvas.Line(4,0,4,30);
7
Shape399.Canvas.Line(5,0,5,30);
8
Shape399.Canvas.Line(6,0,6,30);
9
Shape399.Canvas.Line(7,0,7,30);
10
Shape399.Canvas.Line(8,0,8,30);
11
Shape399.Canvas.Line(9,0,9,30);
12
Shape399.Canvas.Line(10,0,10,30);
13
Shape399.Canvas.Line(11,0,11,30);
14
Shape399.Canvas.Line(12,0,12,30);
15
Shape399.Canvas.Line(13,0,13,30);
16
Shape399.Canvas.Line(14,0,14,30);
17
Shape399.Canvas.Line(15,0,15,30);
Habe es auch mit der Variante versucht:
1
Shape399.Canvas.Rectangle(0,0,15,30)
um Programmzeiklen zu sparen, Aber der effekt, das es in seiner
Orspünglichen Eigenschaft ist, bleibt leider der Selbe :-S
Wenn jemand den Fehler sieht bitte mit dem Holz nach mir werfen^^.
Wie ihr hier Sehen könnt, verwende ich
*Lazarus IDE v0.9.28.2-8ubuntu1 Beta*