Shape Zeichnet nicht.

Maik G. #2091910
Lesenswert?
• ▲
▼ 
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
  object Shape399: 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*
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Maik G. #2092421
Lesenswert?
• ▲
▼ 
Glaube du meinst sowas in der Richtung...

1
  with Shape1 do

2
     begin

3
     Create(Shape1);

4
     Pen.Width:= 1;

5
     Pen.Color:= clRed;

6
     for a:= 0 to 15 do

7
         Canvas.Line(0, A, 30, A);

8
     end;


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

Wenn ich den
1
Create();

 alleine verwende bkomm ich einen Fehler, das es die parameter fehlen 
und/oder falsch sind...
Angehängte Dateien:
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren