Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: FindComponentes "TShape faerben"

    Delphi
    by aayb, 20. Nov 2008
  Sorry, total bloedsinniger Fehler meinerseits!
  Es hatte funktioniert, nur waren die Farbwerte bei mir so nah einander, das man kaum ein Unterschied sehen konnte.
  :wall:
  
  Danke fuer deine Geduld und deine Hilfe :-)
  Gr.
  aayb
• Forum: Object-Pascal / Delphi-Language

  Re: FindComponentes "TShape faerben"

    Delphi
    by aayb, 20. Nov 2008
  Keiner ;-)
  
  Kurz zur Erlaeuterung:
  Die Shapes sind alle in Gelb gemalt -> Greift also die Zuweisung nicht, sollten die Shapes auch in Gelb erscheinen.
  
  Nun ist im array, als Beispiel:
  ColorTitleLine := rgb(x,x,x);
  ColorTitleLine := rgb(y,y,y);
  
  Die Shapes bekommen, bei Auswahl von "1" oder "2" IMMER die Farbe des ColorTitleLine
• Forum: Object-Pascal / Delphi-Language

  Re: FindComponentes "TShape faerben"

    Delphi
    by aayb, 20. Nov 2008
  Ahhh ;-)
  
  Okay - ich glaub ich habs. Danke dir!
  
  Leider gibts jetzt ein neues "kleines" Problem (Ich schmeiss die Frage einfach mal noch unterhalb meines Threads - gehoert schliesslich auch dazu)
  
  Die Namen bekomme ich ja nun raus, allerdings sollen die Farben aus einem Array rausgeholt werden.
  (Ueber ein Integer-"Flag" soll die Applikation nachher verschieden aussehen)
  
  Ich weise also...
• Forum: Object-Pascal / Delphi-Language

  Re: FindComponentes "TShape faerben"

    Delphi
    by aayb, 20. Nov 2008
  Hi DeddyH,
  
  danke fuer dein Loesungs- Hinweis.
  Ich habs jetzt mit copy() geloest und es funktioniert, dank dir! :-)
  
  Wobei ich trotz allem nicht verstehe, warum es in meiner Version nicht funktioniert.
  Schliesslich wird bei jedem Durchlauf der Schleife die Variable ShapeName neu gesetzt.
  Ist es kein Tshape, wird die IF-Abfrage uebersprungen und er geht zum naechsten Durchlauf.
  
  Nunja,...
• Forum: Object-Pascal / Delphi-Language

  FindComponentes "TShape faerben"

    Delphi
    by aayb, 19. Nov 2008
  Hallo zusammen,
  
  ich habe folgendes Problem beim "faerben" meiner Shapes:
  Auf der Form liegen 10 Shapes, die mit dem Namen 'shpHeader' anfangen und danach nummeriert sind.
  Also simple "shpHeader1", "shpHeader2", ...
  
  Nun wollte ich mir nicht arbeit erleichetern und hab folgenden Code in die FormCreate gepackt:
  
  
  procedure TfrmMain1.FormCreate(Sender: TObject);