Grafik

[claudi3006]

hey ihrs,

sagt mal weiß einer wie beim starten einer Form alle images, die ich eingegeben hab, nicht angezeigt werden, also so dass die Form beim abspielen leer angezeigt wird. Form sollte nämlich erst leer sein, außer einige buttons, die ich unter die images platziert habe, sollen noch zu sehen und anzuklicken sein,da beim Anklicken dann erst 1 Bild zu sehen sein sollte.
Kann mir da jemand helfen?Wäre super.
Danke im Voraus!

[PierreB]

Mach die Bilder einzeln einfach per

Delphi-Quellcode:

Image1.Visible := false

unsichtbar (oder im Objektinspektor) und zeige sie per

Delphi-Quellcode:

Image1.Visible := true

wieder an wenn du sie brauchst.

[claudi3006]

cool danke funktioniert!kannst du mir auch zufällig noch sagen wie ich mit Hilfe einer schleife, linien nebeneinander im gleichen abstand zeichnen kann, so dass es optisch wie ein Zaun aussieht,also ungefähr so:

|
| |
| | |
| | | | | | | | | | | | | | |
| | | | | | | | | | | | | |
| | | | | | | | | | | | |

am Ende sollten diese Linien dann aber nach oben gehen s.o,hab keien Ahnung wie ich das machen soll!

[claudi3006]

Beispiel sieht nicht aus wie bei der Eingabe also nicht wundern!

[turboPASCAL]

Zitat:

Zitat von claudi3006

kannst du mir auch zufällig noch sagen wie ich mit Hilfe einer schleife, linien nebeneinander im gleichen abstand zeichnen kann ...

Mach dazu bitte einen neuen Thread auf.

Zitat:

Beispiel sieht nicht aus wie bei der Eingabe also nicht wundern!

Verwende einfach Tag's.

Code:

.
                               |  
                             | |
                           | | |
 | | | | | | | | | | | | | | |
 | | | | | | | | | | | | | |
 | | | | | | | | | | | | |

[claudi3006]

Ja so ungefär sieht das dann in dem Image aus,nur das es zusamenhängende Linien sind...und wie soll kann ich das in eine Schleife programmieren, dass diese Grafik rauskommt?Bitte unbedingt helfen!!! Weiß echt nicht weiter !!!

Gruß Claudi3006

[pacman1986]

Wie genau soll das bild aussehen ?

[claudi3006]

Na das sind ungefähr 30 senkrechte Linien im gleichen Abstand nebeneinander,Linen sind ungefähr 3cm lang,aber ist nicht wichtig!und am Ende de Kette rückt jede Linie ein kleines Stück nach oben, so das dann eine Diagonale aus der Kette wird,aber die Linien haben immer noch den gleichen Abstand und sind senkrecht. Also so "ähnlich" wie das Code s.o!

[pacman1986]

Ich hab das jetzt sp verstanden ....

Delphi-Quellcode:

  yhalt := 100;
  Anzahl_der_gesamtlinien := 10;
  Anzahl_der_einenlineien := 5;
  Phase := 1;

  for i := 1 to Anzahl_der_gesamtlinien do begin
    if Phase = 1 then begin
      with image1 do begin
        canvas.MoveTo(i*10,yhalt);
        canvas.LineTo(i*10,yhalt+20);
      end;

      if i =  Anzahl_der_einenlineien then Phase :=2;
    end else begin
      yhalt := yhalt -10;
      with image1 do begin
        canvas.MoveTo(i*10,yhalt);
        canvas.LineTo(i*10,yhalt+20);
      end;
    end;
  end;

PS: Falls das einer sieht der besser ist als ich net aufregen :D

[claudi3006]

Cool!! Riesendank, hat mir echt weiter geholfen!Habs zwar nicht ganz genauso aber so ähnlich!!Dann nochmals danke!!