mikrocontroller.net

Forum: PC-Programmierung Shape Zeichnet nicht.


Autor: Maik Geßner (maik81ftl)
Datum:

Bewertung
0 lesenswert
nicht 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.
  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*

Autor: spess53 (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hi

Gibt es auch ein Shape399.Create?

MfG Spess

Autor: Maik Geßner (maik81ftl)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
spess53 schrieb:
> Hi
>
> Gibt es auch ein Shape399.Create?
>
> MfG Spess

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

Autor: Maik Geßner (maik81ftl)
Datum:
Angehängte Dateien:

Bewertung
0 lesenswert
nicht lesenswert
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...

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.