TolModernPanel grafisches Panel zum aufklappen mit button ..

[Klaus-B.Schmidt]

Hallo,
ich habe für ein Programm, welches ich in nächster Zeit schreiben möchte eine KOmponente geschrieben (siehe Screenshot).

1. Aufnahme der Unit in die Uses Klausel.

2.

Delphi-Quellcode:

            Panel := TolModernPanel.Create(Self);
            Panel.Parent := SBx;             //TScrollBox (fuer meine Verwendung)
            Panel.Align := alBottom;         // damit element unten angefügt wird
            Panel.Align := alTop;            //element naCH OBEN SETZEN
            Panel.ImageList   := ImageList1; //ImageList fuer Icon und Buttons
          
            Panel.Title   := 'Mein Topic';   //Setze Topic
            Panel.ItemImage:=1;              //Setze ItemImage fuer Topic

            { Standardfarben geschlosssen }
            Panel.BGColor   := Jvo.SelectedColor;
            Panel.BGHoverColor:= JvOfficeColorButton2.SelectedColor;
            Panel.BorderSpaceColor     := JvOfficeColorButton3.SelectedColor;
            Panel.BorderSpace := strtoint(edit3.Text);
            Panel.BorderLineLight:=JvOfficeColorButton4.SelectedColor;
            Panel.BorderLineDark:=JvOfficeColorButton5.SelectedColor;
            Panel.ShowBorder:=CheckBox1.Checked;
            Panel.ShowBorderLine:=CheckBox2.Checked;

            { Standardfarben geöffnet }
            Panel.expandedBGColor     := JvOfficeColorButton6.SelectedColor;
            Panel.expandedBGHoverColor:= JvOfficeColorButton7.SelectedColor;
            Panel.expandedBorderSpaceColor     := JvOfficeColorButton8.SelectedColor;
            Panel.expandedBorderSpace := strtoint(edit4.Text);
            Panel.expandedBorderLineLight:=JvOfficeColorButton9.SelectedColor;
            Panel.expandedBorderLineDark:=JvOfficeColorButton10.SelectedColor;
            Panel.expandedShowBorder:=CheckBox3.Checked;
            Panel.expandedShowBorderLine:=CheckBox4.Checked;

            { Button hinzufügen AddBtn(hint,imageindex) }
            Panel.AddBtn('test',0);
            Panel.AddBtn('test1',1);
            Panel.AddBtn('test2',2);
            Panel.AddBtn('test3',3);
            Panel.AddBtn('test4',4);

            {Ereignis, wenn button geklickt wird}
            Panel.onBtnClick  :=PanelButtonClick;

            { untereintrag hinzufügen AddValue(text); }
            Panel.AddValue('Datum: ' + inttostr(i));
            Panel.AddValue('Thema: N/A');

Das Ereignis

Delphi-Quellcode:

procedure TForm.PanelButtonClick(index: integer);
begin
  showmessage(inttostr(Index));
end;

so, hoffe ihr könnt damit was anfangen, leider hab ich es noch nicht geschafft, ein Demo programm zu erstellen, da ich beim beenden immer wieder fehler bekam.