Einzelnen Beitrag anzeigen

Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
461 Beiträge
 
Delphi XE4 Professional
 
#7

AW: Array of TPanel sortieren

  Alt 23. Mai 2019, 15:42
@Delphi.Narium ... es geht um ein responsive-Design-Ding ... ich erstelle zur designtime einfach panels (mit all ihren funktionen) ... und zur laufzeit werden die positionen der panels anhand des Endgerätes optimal am Bildschirm verteilt...

@Uwe Raabe ... Der "tag"-Wert wird bei den panels auf dem TForm zur Designtime gesetzt..

@TiGü ... Genau das war der Fehler



Jetzt hab ich nur noch ein kleines Problem

Hab gerade einen Effekt gemerkt:

Wenn 2 Panels zur Designtime auf der gleichen "top"-position sind , werden alle beide via "If Components[i].ClassName = 'TPanel'" zwar gefunden ....

aber in der nachfolgenden schleife wird nur ein Panel gefunden und zugeweisen .. das 2 (oder mehrere auf der gleichen top-position) gehen verloren ..



Delphi-Quellcode:
 for i := 0 to meine_panels_anzahl do // Alle Temp-Panels checken und niedrigsten wert finden
    begin
      if temp_panels[i].Top = niedrigster_wert then
      begin
        meine_panels[x] := temp_panels[i];
      end;

Solange alle Panels in der Designtime unterschiedliche Top-Positionen haben - funktionierts
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \

Geändert von erich.wanker (23. Mai 2019 um 15:46 Uhr)
  Mit Zitat antworten Zitat