Gibt es die Möglichkeit diesen Code zu optimieren...?

[barnti]

Hi,

ich würde gern wissen, ob hier noch Optimierung (wegen Codewiederholung) betrieben werden kann:

Delphi-Quellcode:

...
 with Panel_Login do
  begin
    Left:=   Pleft;
    top:=    Ptop;
    Width:=  Pwidth;
    height:= Pheight;
  end;

  with Panel_Home do
  begin
    Left:=   Pleft;
    top:=    Ptop;
    Width:=  Pwidth;
    height:= Pheight;
  end;

  with Panel_Dataview do
  begin
    Left:=   Pleft;
    top:=    Ptop;
    Width:=  Pwidth;
    Height:= Pheight;
  end;

Ich dachte an so etwas wie eine Schleife über ein Array in dem die Komponenten (Panels) stehen.

Ist das möglich. Wenn ja, wie lautet der Ansatz?

[Sharky]

Hai barnti,

in deinem Code würden die 3 Panels ja direckt übereinander liegen. Ist das so gewünscht?

[barnti]

@sharky

Genau. Auf der rechten Seite mainer Anwendung befindet sich die Navigation, mit der man jeweils eines der Panels sichbar machen kann. Funktioniert so praktisch wie ein 'Tabsheet'.

[MathiasSimmack]

Wenn es gewünscht ist, dann Ja: Ein Array mit den Namen der Panels wäre möglich, und dann schau dir "FindComponent" an.

[Sharky]

Einfach eine Procedue verwenden:

Delphi-Quellcode:

procedure TForm1.SetPannel (value : TPanel);
begin
  with value do
  begin
    Left:=   Pleft;
    top:=    Ptop;
    Width:=  Pwidth;
    height:= Pheight;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Pleft := 100;
  Ptop := 100;
  Pwidth := 200;
  Pheight := 200;
  SetPannel(Panel1);
  SetPannel(Panel2);
  SetPannel(Panel3);
end;

[stoxx]

schau Dir auch mal

Panel1.SetBounds();

an. Das ist ein Befehl, und damit geht das setzen ausserdem schneller.

[barnti]

Hallo Leute,

danke für die rege Beteiligung.

Ich fasse mal zusammen. Dann hätte ich die folgenden Möglichkeiten:

1. Array, in dem die Komponentennamen stehen. Darüber iterieren

2. Prozeduraufruf mit der Kompotente und deren Maße

3. SetBounds

Wie sieht es mit der Performance aus? Wie wenn sich die Zahl der zu setzenden Komponenten erhöht.
Wie kann ich das richtig einschätzen? Mein Tip: Methode 3...

[Vjay]

Setbounds wird die geschwindigkeit erhöhen, da du nicht für jedes panel 4x das WIndowRect veränderst.

Iterieren wird die geschwindigkeit verlangsamen, da Schleifen unweigerlich sprünge enthalten.

Die Geschwindigkeitsunterschiede dürften aber als unrelevant angesehen werden.

Es sei denn du führst beim Panelresize noch aktionen aus etc.

[Sharky]

Hai barnti,

.SetBounds setzt intern auch "nur" die Parameter für die Position.

[Jens Schumann]

Zitat von Sharky:

Hai barnti,

.SetBounds setzt intern auch "nur" die Parameter für die Position.

Es kommt aber nur ein Paint. Wenn die Eigenschaften Left, Top, Width und Height einzeln
gesetzt werden wird das Panel (bzw. jede visuelle Komponente) 4-mal gezeichnet.