Shape Zeichnet nicht.

[Maik G. (maik81ftl)]

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.

  object Shape399: TShape
    Left = 344
    Height = 30
    Hint = 'Testshape'
    Top = 256
    Width = 30
    ParentShowHint = False
    ShowHint = True
  end

Objekteigenschaften beim Proframmladen.

Diese Zeilen sollen das Shape399 auf der Größe 0,0, 15, 30 Rotzeichnen

  Shape399.Canvas.Brush.Color:= clred;
  Shape399.Canvas.Line( 0,0, 0,30);
  Shape399.Canvas.Line( 1,0, 1,30);
  Shape399.Canvas.Line( 2,0, 2,30);
  Shape399.Canvas.Line( 3,0, 3,30);
  Shape399.Canvas.Line( 4,0, 4,30);
  Shape399.Canvas.Line( 5,0, 5,30);
  Shape399.Canvas.Line( 6,0, 6,30);
  Shape399.Canvas.Line( 7,0, 7,30);
  Shape399.Canvas.Line( 8,0, 8,30);
  Shape399.Canvas.Line( 9,0, 9,30);
  Shape399.Canvas.Line(10,0,10,30);
  Shape399.Canvas.Line(11,0,11,30);
  Shape399.Canvas.Line(12,0,12,30);
  Shape399.Canvas.Line(13,0,13,30);
  Shape399.Canvas.Line(14,0,14,30);
  Shape399.Canvas.Line(15,0,15,30);

Habe es auch mit der Variante versucht:

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*

[spess53 (Gast)]

Hi

Gibt es auch ein Shape399.Create?

MfG Spess

[Maik G. (maik81ftl)]

spess53 schrieb:
> Hi
>
> Gibt es auch ein Shape399.Create?
>
> MfG Spess

du meinen, das ich es erst mal selbst laden muß???

[Maik G. (maik81ftl)]

Glaube du meinst sowas in der Richtung...

  with Shape1 do
     begin
     Create(Shape1);
     Pen.Width:= 1;
     Pen.Color:= clRed;
     for a:= 0 to 15 do
         Canvas.Line(0, A, 30, A);
     end;

jodoch bekommen ich da einen schönen Fehler...

Wenn ich den

Create();

 alleine verwende bkomm ich einen Fehler, das es die parameter fehlen 
und/oder falsch sind...