LabelPanel dringend gesucht!

[nemo2003]

Mahlzeit liebe Gemeinde ;o)

Ich habe da eine Frage (was auch sonst *gg*)...
Ich benötige ein Panel, auf dem mehrere Panels "angebracht" werden...
Die Labels sollen über die Property Items zugewiesen werden können...
Weiss jemand wie so was geht, oder hat gar jemand eine fertige komponente davon???

Bitte melden, dringend!!! Danke im Voraus!

[Tpercon]

Zitat:

Zitat von nemo2003

Ich benötige ein Panel, auf dem mehrere Panels "angebracht" werden...
Die Labels sollen über die Property Items zugewiesen werden können...

Willst du jetzt auf einem Panel beliebig viele weitere Panels und auf diesen dann Labels oder willst du auf einem Panel beliebig viele weitere Labels? Du schreibst zuerst von Panels und dann von Labels :gruebel:

[nemo2003]

sorry...

stress :wall:

nein ich möchte EIN Panel
auf dem beliebig viele Labels sind...

[Tpercon]

Gut dann schreibe 'ne Ableitung von TPanel mit der property Items. Wenn diese gesetzt wird, dann erzeugst du soviele Labels wie du Zeilen bei Items hast. Verwalten kannst du das ganze intern mit der ObjectList.

[nemo2003]

hmmm...

gibt es da nicht schon was fertiges?
eventuell?!?!

bin ein wenig unter zeitdruck...

bei torry und co. war ich schon... :? ... negativ!

[Tpercon]

Ist doch maximal ne halbe Stunde Arbeit!
Ob es somwas fertig gibt -> keine Ahnung.

[nemo2003]

Zitat:

Zitat von Tpercon

Ist doch maximal ne halbe Stunde Arbeit!
Ob es somwas fertig gibt -> keine Ahnung.

lol...
als azubi also 30 tage ;o)

[Tyrael Y.]

ähm,...

... wieso nimmst du nicht einfach ein Panel und platzierts darauf einfach so viele Labels wie du magst? Oder verstehe ich dich falsch?

Bräuchtest nämlich nix zu schreiben.

[Tpercon]

Willst du was lernen oder nicht?!

Mit Klassen hast du schon gearbeitet?

[nemo2003]

ääähm bisher noch ned...

objekte in ner liste und dann werte daraus in n stringgrid schreiben...
das war das einzige bisher

[Tpercon]

Hier mal ein grober Anfang der Klasse.

Delphi-Quellcode:

TLabelPanel = class(TCustomPanel)
  private
    FLabels: TObjectList;
    FItems: TStrings;
    procedure SetItems(Value: TStrings);
  public
    constructor Create(aOwner : TComponent); override;
    destructor Destroy; override;
    property Items: TStrings read FItems write SetItems;
  end;

[nemo2003]

und die .create methode eta so, richtig?
dann bin ich auf dem richtigen dampfer...

Delphi-Quellcode:

procedure TLabelPanel.CreateLabels(aValues:TStringList);
var count:integer;
    DaLabel:TLabel;
begin
  for count:=0 to aValues.Count do
  begin
    DaLabel:=TLabel.create(nil);
    DaLabel.Caption:=aValues.Strings[count];
//  etc...
  end;

end;

[Tpercon]

Ich würde mich mal nur in dem SetItems um die Labels kümmern:

Delphi-Quellcode:

constructor TMultiLinePanel.Create(aOwner: TComponent);
begin
  inherited Create(aOwner);
  FLabels := TObjectList.Create(true);
  FItems := TStringList.Create;
end;

destructor TMultiLinePanel.Destroy;
begin
  if Assigned(FLabels) then begin
    FLabels.Free;
  end;
  if Assigned(FItems) then begin
    FItems.Free;
  end;
  inherited Destroy;
end;

procedure TMultiLinePanel.SetItems(Value: TStrings);
var
  aLabel : TLabel;
  i : integer;
begin
  FLabels.Clear;
  for i := 0 to Value.Count - 1 do begin;
    aLabel := TLabel.Create(nil);
    aLabel.Parent :=  self;
    aLabel.AutoSize := true;
    aLabel.Top := self.Height div (Value.Count + 1) * (i + 1);
    aLabel.Left := 8;
    aLabel.Caption := Value.Strings[i];
    FLabels.Add(aLabel);
  end;
  FItems.Text := Value.Text;
end;

So steuerst du das ganze:

Delphi-Quellcode:

  MyPanel := TMultiLinePanel.Create(self);
  MyPanel.Parent := self;
  ts := TStringList.Create;
  try
    ts.Add('bla');
    ts.Add('blubb');
    MyPanel.Items := ts;
  finally
    ts.Free;
  end;