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.