jvcllaz: Add JvXPBar demo

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6246 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/examples/JvXPBar/MainFrm.pas

@@ -0,0 +1,194 @@
+unit MainFrm;
+
+{$MODE DELPHI}
+
+interface
+
+uses
+  //Windows, Messages, 
+  SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, JvXPCore, JvXPBar, JvXPContainer, ImgList, ActnList, ExtCtrls,
+  StdCtrls, ComCtrls, JvExControls, JvComponent, JvXPCheckCtrls,
+  JvXPButtons;
+
+resourcestring
+  SClickEvent =
+    '  You clicked on the action "%s"...';
+
+type
+  TProcControl = procedure (Control:TControl) of object;
+  TfrmMain = class(TForm)
+    acConnectAdministrator: TAction;
+    acConnectLocalServer: TAction;
+    acConnectRemoteServer: TAction;
+    aclWinXPBar: TActionList;
+    acSettingsDatabase: TAction;
+    acSettingsDownloads: TAction;
+    acSettingsStatistics: TAction;
+    acSettingsUsers: TAction;
+    acSynchronizeUnknown: TAction;
+    acSynchronizeWeb: TAction;
+    btnCollapseAll: TJvXPButton;
+    btnExpandAll: TJvXPButton;
+    cntDetails: TJvXPContainer;
+    cntWinXPBar: TJvXPContainer;
+    imlWinXPBar: TImageList;
+    lbWelcome: TLabel;
+    sbxWinXPBar: TScrollBox;
+    spltMain: TSplitter;
+    btnToogleEnableMode: TJvXPButton;
+    btnToggleVisibleMode: TJvXPButton;
+    ilOldButtons: TImageList;
+    chkGrouped: TJvXPCheckbox;
+    ilWhiteButtons: TImageList;
+    ilRedButtons: TImageList;
+    ilBlackButtons: TImageList;
+    acGettingStarted: TAction;
+    acHelp: TAction;
+    acHowDoI: TAction;
+    acCommonQuestions: TAction;
+    JvXPContainer1: TJvXPContainer;
+    dxWinXPBar4: TJvXPBar;
+    JvXPBar1: TJvXPBar;
+    dxWinXPBar3: TJvXPBar;
+    dxWinXPBar2: TJvXPBar;
+    dxWinXPBar1: TJvXPBar;
+    tvSelfView: TTreeView;
+    StatusBar1: TStatusBar;
+    ilMSN: TImageList;
+    ilMSN2: TImageList;
+    ilFB: TImageList;
+    procedure acConnectRemoteServerExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure btnCollapseAllClick(Sender: TObject);
+    procedure btnExpandAllClick(Sender: TObject);
+    procedure btnToogleEnableModeClick(Sender: TObject);
+    procedure btnToggleVisibleModeClick(Sender: TObject);
+    procedure chkGroupedClick(Sender: TObject);
+  private
+    { Private declarations }
+    procedure DoGrouped(Control:TControl);
+    procedure DoExpandAll(Control:TControl);
+    procedure DoCollapseAll(Control:TControl);
+    procedure DoEnableToggle(Control:TControl);
+    procedure DoVisibleToggle(Control:TControl);
+    procedure IterateControls(Proc:TProcControl);
+    procedure BuildStructure;
+  public
+    { Public declarations }
+  end;
+
+var
+  frmMain: TfrmMain;
+
+implementation
+
+{$R *.lfm}
+
+procedure TfrmMain.FormCreate(Sender: TObject);
+begin
+  cntDetails.Align := alClient;
+  BuildStructure;
+end;
+
+procedure TfrmMain.acConnectRemoteServerExecute(Sender: TObject);
+begin
+  with TAction(Sender) do
+    StatusBar1.Panels[0].Text :=  Format(SClickEvent, [Name]);
+end;
+
+procedure TfrmMain.btnCollapseAllClick(Sender: TObject);
+begin
+  IterateControls(DoCollapseAll);
+end;
+
+procedure TfrmMain.btnExpandAllClick(Sender: TObject);
+begin
+  IterateControls(DoExpandAll);
+end;
+
+procedure TfrmMain.btnToogleEnableModeClick(Sender: TObject);
+begin
+  IterateControls(DoEnableToggle);
+end;
+
+procedure TfrmMain.btnToggleVisibleModeClick(Sender: TObject);
+begin
+  IterateControls(DoVisibleToggle);
+end;
+
+procedure TfrmMain.chkGroupedClick(Sender: TObject);
+begin
+  IterateControls(DoGrouped);
+  btnExpandAll.Enabled := not chkGrouped.Checked;
+end;
+
+procedure TfrmMain.DoGrouped(Control: TControl);
+begin
+  if Control is TJvXPBar then
+    TJvXPBar(Control).Grouped := chkGrouped.Checked;
+end;
+
+procedure TfrmMain.DoExpandAll(Control: TControl);
+begin
+  if Control is TJvXPBar then
+    TJvXPBar(COntrol).Collapsed := false;
+end;
+
+procedure TfrmMain.IterateControls(Proc: TProcControl);
+var i:integer;
+begin
+  for i := 0 to ComponentCount - 1 do
+    if Components[i] is TControl then
+      Proc(TControl(Components[i]));
+end;
+
+procedure TfrmMain.DoCollapseAll(Control: TControl);
+begin
+  if Control is TJvXPBar then
+    TJvXPBar(COntrol).Collapsed := true;
+end;
+
+procedure TfrmMain.DoEnableToggle(Control: TControl);
+var i:integer;
+begin
+  if Control is TJvXPBar then
+    for i := 0 to TJvXPBar(Control).Items.Count - 1 do
+      if Odd(i) then
+        TJvXPBar(Control).Items[i].Enabled := not TJvXPBar(Control).Items[i].Enabled;
+end;
+
+procedure TfrmMain.DoVisibleToggle(Control: TControl);
+var i:integer;
+begin
+  if Control is TJvXPBar then
+    for i := 0 to TJvXPBar(Control).Items.Count - 1 do
+      if Odd(i) then
+        TJvXPBar(Control).Items[i].Visible := not TJvXPBar(Control).Items[i].Visible;
+end;
+
+procedure TfrmMain.BuildStructure;
+var
+  i,j:integer;
+  Parent, Child:TTreeNode;
+  ABar:TJvXPBar;
+begin
+  tvSelfView.Items.Clear;
+  for i := ComponentCount - 1 downto 0 do
+    if Components[i] is TJvXPBar then
+    begin
+      ABar := TJvXPBar(Components[i]);
+      Parent := tvSelfView.Items.AddChild(nil,ABar.Caption);
+      if ABar.ControlCount = 0 then
+      for j := 0 to ABar.Items.Count - 1 do
+      begin
+        Child := tvSelfView.Items.AddChild(Parent,ABar.Items[j].Caption);
+        Child.ImageIndex := ABar.Items[j].ImageIndex;
+        Child.SelectedIndex := Child.ImageIndex;
+      end;
+    end;
+  tvSelfView.FullExpand;
+end;
+
+end.
+

components/jvcllaz/examples/JvXPBar/XPBarDemo.lpi

@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <General>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="XPBarDemo"/>
+      <Scaled Value="True"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+      <XPManifest>
+        <DpiAware Value="True"/>
+      </XPManifest>
+      <Icon Value="0"/>
+    </General>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="0"/>
+    </RunParams>
+    <RequiredPackages Count="2">
+      <Item1>
+        <PackageName Value="JvXPCtrlsLazR"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="LCL"/>
+      </Item2>
+    </RequiredPackages>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="XPBarDemo.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="MainFrm.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="frmMain"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="..\..\bin\XPBarDemo"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

components/jvcllaz/examples/JvXPBar/XPBarDemo.lpr

@@ -0,0 +1,16 @@
+program XPBarDemo;
+
+{$MODE DELPHI}
+
+uses
+  Forms, Interfaces,
+  MainFrm in 'MainFrm.pas' {frmMain};
+
+{$R *.res}
+
+begin
+  Application.Scaled := True;
+  Application.Initialize;
+  Application.CreateForm(TfrmMain, frmMain);
+  Application.Run;
+end.