Advertisement
Guest User

Problem. Component TCategoryPanelGroup

a guest
Dec 23rd, 2012
251
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.53 KB | None | 0 0
  1. procedure TSettingsApplicationForm.FormCreate(Sender: TObject);
  2. begin
  3.  SettingsApplicationCategoryPanelGroup.CollapseAll;
  4.  PlayCategoryPanel.Expand;
  5. end;
  6.  
  7. // 1 панель:
  8. procedure TSettingsApplicationForm.PlayCategoryPanelClick(Sender: TObject);
  9. begin
  10.  PlayCategoryPanel.Expand;
  11.  PlayListCategoryPanel.Collapse;
  12.  MediaPlayerCategoryPanel.Collapse;
  13.  PluginsCategoryPanel.Collapse;
  14.  InterfaceCategoryPanel.Collapse;
  15. end;
  16.  
  17. // 2 панель:
  18. procedure TSettingsApplicationForm.PlayListCategoryPanelClick(Sender: TObject);
  19. begin
  20.  PlayCategoryPanel.Collapse;
  21.  PlayListCategoryPanel.Expand;
  22.  MediaPlayerCategoryPanel.Collapse;
  23.  PluginsCategoryPanel.Collapse;
  24.  InterfaceCategoryPanel.Collapse;
  25. end;
  26.  
  27. // 3 панель:
  28. procedure TSettingsApplicationForm.MediaPlayerCategoryPanelClick(Sender: TObject);
  29. begin
  30.  PlayCategoryPanel.Collapse;
  31.  PlayListCategoryPanel.Collapse;
  32.  MediaPlayerCategoryPanel.Expand;
  33.  PluginsCategoryPanel.Collapse;
  34.  InterfaceCategoryPanel.Collapse;
  35. end;
  36.  
  37. // 4 панель:
  38. procedure TSettingsApplicationForm.PluginsCategoryPanelClick(Sender: TObject);
  39. begin
  40.  PlayCategoryPanel.Collapse;
  41.  PlayListCategoryPanel.Collapse;
  42.  MediaPlayerCategoryPanel.Collapse;
  43.  PluginsCategoryPanel.Expand;
  44.  InterfaceCategoryPanel.Collapse;
  45. end;
  46.  
  47. // 5 панель:
  48. procedure TSettingsApplicationForm.InterfaceCategoryPanelClick(Sender: TObject);
  49. begin
  50.  PlayCategoryPanel.Collapse;
  51.  PlayListCategoryPanel.Collapse;
  52.  MediaPlayerCategoryPanel.Collapse;
  53.  PluginsCategoryPanel.Collapse;
  54.  InterfaceCategoryPanel.Expand;
  55. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement