Panel mit Label dynamisch erzeugen

[DeddyH]

Versuch es mal so (ungetestet):

Delphi-Quellcode:

procedure TLabeledPanel.Fuellen(ID: String);
var ini: TIniFile;
    s: string; 
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'kontoinfo.ini');
  (*Die Labels befüllen; Werte werden aus der Ini 'kontoinfo.ini' mittels dem übergebenen
    Wert in 'ID'*)
  try
    FLabelDatum.Caption:=DateToStr(ini.ReadDate('ID',ID,0));
    FLabelKurzbeschreibung.Caption:=ini.ReadString('Kurzbeschreibung',ID,'0');
    FLabelKategorie.Caption:=ini.ReadString('Kategorie',ID,'0');
    Str(ini.ReadFloat('Betrag',ID,0):9:2,s);  //Das letzte ist ein Var-Parameter
    FLabelBetrag.Caption := s;
    if ini.ReadInteger('Art',ID,-1) = 0 then
      Canvas.Brush.Color:=cllime              //Setzen der Farbe der Zeichenfläche
    else
      Canvas.Brush.Color:=clred;
    Invalidate;  //neu zeichnen lassen
  finally
    ini.Free;
  end;
end;

[hans ditter]

hallo DeddyH...
danke für deinen Vorschlag, ich hab ihn gleich mal probiert, was du vorgeschlagen hast. Aber weder in der Unit meiner Komponente noch während der Laufzeit funktioniert das. Ich hatte auch nochmal versucht, wenn die Komponente createt wird, sie einzufärben, hat aber leider auch nicht geklappt.

Hat noch jmd eine Idee?

[DeddyH]

Na dann einfach mal Color setzen (ohne Brush oder Canvas).

Delphi-Quellcode:

if ini.ReadInteger('Art',ID,-1) = 0 then
  Color:=cllime //Setzen der Farbe
else
  Color:=clred;

[Hawkeye219]

Hallo,

beim Panel sollte man den Wert der Eigenschaft ParentBackground noch auf False abändern.

Gruß Hawkeye

[hans ditter]

Hi,
ich hab jetzt alles fertig (so mehr oder weniger).... aber mir fehlt die Anordnung der Panels.
Ich möchte 4 Panel nebeneinander setzen, dann eine Reihe tiefer wieder 4 nebeneinander usw.
Weiß aber nicht, wie ich das am Besten löse...

Hoffe ihr könnt mir noch einmal helfen (wie so oft... )
LG hans ditter

[mkinzler]

Einfach Breite durch 4 und dann Left jeweils um eine 1/4 weiter rechts

[hans ditter]

Hm, ja gut, dass hatte ich mir auch schon gedacht...
Es ging mir aber vor allem darum, wie ich die Panels untereinander angeordnet kriege. Also das wenn 4 Panels nebeneinander liegen, das nächste in der nächsten Reihe angezeigt wird usw.

[stahli]

Was ist denn Dein Problem?
X zählst Du jeweils hoch für die X-Position und weist das Left zu.
Nach 4 mal setzt Du X auf 0 und Zählst Y (für Top) hoch.

Alternativ kannst Du auch Panels als "Zeilen" hinzufügen und diese auf alTop setzen.
In jede "Zeile" fügst Du dann 4 Zellen mit alLeft ein.

[hans ditter]

hm, ja, weiß auch nicht, stand wohl ziemlich auf dem Schlauch...
Hat auf jeden Fall funktioniert, jetzt hat sich aber das nächste Probelm ergeben.
Wie bearbeite ich jetzt eine OnClick bzw. OnDblClick Methode des dynamisch erzeugten Panels?

LG, hans ditter