Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TSettingsApplicationForm.FormCreate(Sender: TObject);
- begin
- SettingsApplicationCategoryPanelGroup.CollapseAll;
- PlayCategoryPanel.Expand;
- end;
- // 1 панель:
- procedure TSettingsApplicationForm.PlayCategoryPanelClick(Sender: TObject);
- begin
- PlayCategoryPanel.Expand;
- PlayListCategoryPanel.Collapse;
- MediaPlayerCategoryPanel.Collapse;
- PluginsCategoryPanel.Collapse;
- InterfaceCategoryPanel.Collapse;
- end;
- // 2 панель:
- procedure TSettingsApplicationForm.PlayListCategoryPanelClick(Sender: TObject);
- begin
- PlayCategoryPanel.Collapse;
- PlayListCategoryPanel.Expand;
- MediaPlayerCategoryPanel.Collapse;
- PluginsCategoryPanel.Collapse;
- InterfaceCategoryPanel.Collapse;
- end;
- // 3 панель:
- procedure TSettingsApplicationForm.MediaPlayerCategoryPanelClick(Sender: TObject);
- begin
- PlayCategoryPanel.Collapse;
- PlayListCategoryPanel.Collapse;
- MediaPlayerCategoryPanel.Expand;
- PluginsCategoryPanel.Collapse;
- InterfaceCategoryPanel.Collapse;
- end;
- // 4 панель:
- procedure TSettingsApplicationForm.PluginsCategoryPanelClick(Sender: TObject);
- begin
- PlayCategoryPanel.Collapse;
- PlayListCategoryPanel.Collapse;
- MediaPlayerCategoryPanel.Collapse;
- PluginsCategoryPanel.Expand;
- InterfaceCategoryPanel.Collapse;
- end;
- // 5 панель:
- procedure TSettingsApplicationForm.InterfaceCategoryPanelClick(Sender: TObject);
- begin
- PlayCategoryPanel.Collapse;
- PlayListCategoryPanel.Collapse;
- MediaPlayerCategoryPanel.Collapse;
- PluginsCategoryPanel.Collapse;
- InterfaceCategoryPanel.Expand;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement