unit1.pas

XP风格的outbar.rar.有DELPHI,C++BULIDER的例子及源码

unit Unit1;

interface
{$I Outbar.inc}
{$R dcoutbmp.res}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, dcOutBar, commctrl,ComCtrls, {$IFDEF D4} ImgList, {$ENDIF}
  Buttons, shellapi, ExtCtrls, Menus, dcOutPanel, dcOutCommon;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Icon1: TMenuItem;
    List1: TMenuItem;
    N2: TMenuItem;
    Addnewgroup1: TMenuItem;
    DeleteGroup1: TMenuItem;
    EditCaption1: TMenuItem;
    N1: TMenuItem;
    AddIcon1: TMenuItem;
    DeleteIcon1: TMenuItem;
    Edit: TMenuItem;
    SmallImageList: TImageList;
    LargeImageList: TImageList;
    DCGroupBar1: TDCGroupBar;
    DCOutBarGroup2: TDCOutBarGroup;
    DCOutBarGroup4: TDCOutBarGroup;
    TreeView1: TTreeView;
    Memo1: TMemo;
    Label6: TLabel;
    DCGroupBar2: TDCGroupBar;
    DCOutBarGroup5: TDCOutBarGroup;
    DCOutBarGroup6: TDCOutBarGroup;
    Label2: TLabel;
    Label8: TLabel;
    DCOutBar1: TDCOutBar;
    DCOutBarGroup1: TDCOutBarGroup;
    DCOutBarVertListView1: TDCOutBarVertListView;
    DCOutBarGroup3: TDCOutBarGroup;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    OpenDialog1: TOpenDialog;
    DCOutBarGroup8: TDCOutBarGroup;
    DCSplitterPanel1: TDCSplitterPanel;
    OutlookBarPanel: TDCSplitterPanel;
    DCOutBar: TDCOutBar;
    DCOutBarGroup9: TDCOutBarGroup;
    DCOutBarVertListView2: TDCOutBarVertListView;
    DCOutBarGroup10: TDCOutBarGroup;
    DCOutBarVertListView4: TDCOutBarVertListView;
    DCSplitterPanel3: TDCSplitterPanel;
    DCSplitterPanel2: TDCSplitterPanel;
    DCOutHeader: TDCOutHeader;
    TreeListPanel: TDCSplitterPanel;
    FolderListPanel: TDCSplitterPanel;
    hpFolderList: TDCHeaderPanel;
    TreeView2: TTreeView;
    tvFolderList: TTreeView;
    DCSplitterPanel6: TDCSplitterPanel;
    DCSplitterPanel5: TDCSplitterPanel;
    lvMessages: TListView;
    PreviewPanePanel: TDCSplitterPanel;
    Panel2: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    lblFrom: TLabel;
    lblSubject: TLabel;
    SmallImages: TImageList;
    LargeImages: TImageList;
    Panel1: TPanel;
    StatusPanel: TPanel;
    Panel3: TPanel;
    chkOutbar: TCheckBox;
    chkFolderList: TCheckBox;
    chkPreviewPane: TCheckBox;
    txtLetter: TMemo;
    GroupBox2: TGroupBox;
    chkFlat: TCheckBox;
    chkHotTrack: TCheckBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    cbxViewStyle: TComboBox;
    Label9: TLabel;
    cbxBackgroundStyle: TComboBox;
    chkOneSelected: TCheckBox;
    Label3: TLabel;
    lblWWW: TLabel;
    Label4: TLabel;
    lblEMail: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    cbxStartGradientColor: TComboBox;
    cbxStopGradientColor: TComboBox;
    CheckBox5: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox3: TCheckBox;
    cbxHighlightSelection: TCheckBox;
    procedure Addnewgroup1Click(Sender: TObject);
    procedure DeleteGroup1Click(Sender: TObject);
    procedure EditCaption1Click(Sender: TObject);
    procedure AddIcon1Click(Sender: TObject);
    procedure DeleteIcon1Click(Sender: TObject);
    procedure List1Click(Sender: TObject);
    procedure DCOutBar1Change(Sender: TObject);
    procedure cbxViewStyleClick(Sender: TObject);
    procedure EditClick(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure chkFlatClick(Sender: TObject);
    procedure chkHotTrackClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DCOutBar1ButtonClick(Sender: TObject; Item: TListItem);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure cbxBackgroundStyleChange(Sender: TObject);
    procedure DCOutBarButtonClick(Sender: TObject; Item: TListItem);
    procedure hpFolderListRightButtonClick(Sender: TObject);
    procedure lvMessagesChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure tvFolderListChange(Sender: TObject; Node: TTreeNode);
    procedure chkOutbarClick(Sender: TObject);
    procedure chkFolderListClick(Sender: TObject);
    procedure chkPreviewPaneClick(Sender: TObject);
    procedure lblEMailClick(Sender: TObject);
    procedure chkOneSelectedClick(Sender: TObject);
    procedure cbxStartGradientColorChange(Sender: TObject);
    procedure cbxHighlightSelectionClick(Sender: TObject);
  private
    { Private declarations }
    FDisableUpdateCheckBox:Boolean;
    FNumber:Integer;
    FUpdateTree:Boolean;
    Procedure UpdateCaptions(Item:TListItem);
    Procedure UpdateOutBar(Node:TTreeNode);
    Procedure UpdateTree(Item:TListItem);
    Procedure FillComboBox(const s: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

const
  HelloText = 'Welcome to Dream Outbar - incredible pack of eight powerful controls that give you new exciting possibilities'+
              ' for creating highly customizable applications with user friendly interface. Product includes the following components:'+
        #13#10#13#10'