[JVCL-Checkins] CVS: dev/JVCL3/examples/JvOutlookBar OLBarDemo.dof,NONE,1.1 OLBarDemo.dpr,NONE,1.1 OLBarDemo.res,NONE,1.1 OLBarMainFormU.dfm,NONE,1.1 OLBarMainFormU.pas,NONE,1.1 back.bmp,NONE,1.1 back2.bmp,NONE,1.1 back3.bmp,NONE,1.1

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvOutlookBar
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvOutlookBar

Added Files:
	OLBarDemo.dof OLBarDemo.dpr OLBarDemo.res OLBarMainFormU.dfm 
	OLBarMainFormU.pas back.bmp back2.bmp back3.bmp 
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter

--- NEW FILE: OLBarDemo.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common

--- NEW FILE: OLBarDemo.dpr ---
program OLBarDemo;

uses
  Forms,
  OLBarMainFormU in 'OLBarMainFormU.pas' {OLBarMainForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TOLBarMainForm, OLBarMainForm);
  Application.CreateForm(TOLBarMainForm, OLBarMainForm);
  Application.Run;
end.

--- NEW FILE: OLBarDemo.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: OLBarMainFormU.dfm ---
object OLBarMainForm: TOLBarMainForm
  Left = 301
  Top = 221
  AutoScroll = False
  Caption = 'OLBarMainForm'
  ClientHeight = 273
  ClientWidth = 213
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 208
[...1797 lines suppressed...]
      00000000F181F0000200000000000000FB81F0000300000000000000FFC3F000
      0100000000000000FFC3F0000100000000000000FFE7F0000000000000000000
      80003FFFF9FFFFFFFFFF000080003FC07000000C000F000080003F0000000008
      0007000080003E00010000080003000080003C00030000000001000080003800
      0300000000010000800038000300000000010000800030000100000000010000
      8000300001000000000000000000100001000000000000000000100001000008
      00000000800030000100000E00000000C00070000100000E00000000E000F000
      0100000F00010000F000F8000300000F000F0000F800F80003800FFF80070000
      FC00FC0007C01FFF80070000FE08FE000FE03FFFC0030000FF18FF001FFFFFFF
      E0030000FFB8FFC07FFFFFFFFFFF0000FFFFFFFFFFFC07F800030000FFFFFFFF
      FFF001F800030000FFFFFFFFFFE000F800030000FF7FFFFEFFC0007800030000
      FE7FFFFE7F80003800030000FC7FFFFE3F80003800030000F87FFFFE1F000018
      00030000F0007E000F00001800030000E0007E000700001800030000C0007E00
      0300001800030000E0007E000700001800030000F0007E000F00001800030000
      F87FFFFE1F00001800030000FC7FFFFE3F80003800030000FE7FFFFE7F800038
      00030000FF7FFFFEFFC0007800070000FFFFFFFFFFE000F8000F0000FFFFFFFF
      FFF001F8001F0000FFFFFFFFFFFC07F8003F0000FFFFFFFFFFFFFFFFFFFF0000
      00000000000000000000000000000000000000000000}
  end
end

--- NEW FILE: OLBarMainFormU.pas ---
{$I JVCL.INC}

unit OLBarMainFormU;

interface

uses
  Windows, Messages, SysUtils, {$IFDEF DELPHI6_UP}Variants, {$ENDIF}Classes, Graphics, Controls, Forms,
  Dialogs, JvOLBar, ComCtrls, StdCtrls, Menus, ExtCtrls, ImgList,
  JvComponent;

type
  TOLBarMainForm = class(TForm)
    popOL: TPopupMenu;
    Splitter1: TSplitter;
    ImageList1: TImageList;
    ImageList2: TImageList;
    Image1: TImage;
    Image2: TImage;
    Defaultpopupmenu1: TMenuItem;
    popButton: TPopupMenu;
    popPage: TPopupMenu;
    ImageList3: TImageList;
    Editbuttoncaption1: TMenuItem;
    Editpagecaption1: TMenuItem;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Editpagecaption1Click(Sender: TObject);
    procedure Editbuttoncaption1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    OL:TJvOutlookBar;
    procedure DoButtonClick(Sender:TObject; Index:integer);
    procedure DoPageChange(Sender: TObject; Index: integer);
    procedure DoPageChanging(Sender: TObject; Index: integer; var AllowChange: boolean);
    procedure OLContextPopUp(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  end;

var
  OLBarMainForm: TOLBarMainForm;

implementation

{$R *.dfm}

procedure TOLBarMainForm.DoPageChange(Sender:TObject;Index:integer);
begin
  if Index > -1 then
    Caption := Format('Page changed to "%s"',[OL.Pages[Index].Caption]);
end;

procedure TOLBarMainForm.DoPageChanging(Sender:TObject;Index:integer;var AllowChange:boolean);
begin
  if (OL.ActivePageIndex > -1) and (Index > -1) then
  begin
    Caption := Format('Page changing from "%s" to "%s"',[OL.Pages[OL.ActivePageIndex].Caption,OL.Pages[Index].Caption]);
//    sleep(200);
  end;
end;

procedure TOLBarMainForm.DoButtonClick(Sender:TObject; Index:integer);
var P:TJvOutlookBarPage;
begin
  if (Index > -1) then
  begin
    P := OL.Pages[OL.ActivePageIndex];
    Caption := Format('Clicked button "%s" on page "%s"',[P.Buttons[Index].Caption,P.Caption]);
  end;
end;

procedure TOLBarMainForm.OLContextPopUp(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  if OL.PopupObject is TJvOutlookBarPage then
    OL.PopUpMenu := popPage
  else if OL.PopupObject is TJvOutlookBarButton then
    OL.PopUpMenu := popButton
  else
    OL.PopUpMenu := popOL;
end;

procedure TOLBarMainForm.FormCreate(Sender: TObject);
begin
  OL := TJvOutlookBar.Create(self);
  OL.Constraints.MaxWidth := 300;
  OL.Constraints.MinWidth := 150;
  OL.OnPageChange := DoPageChange;
  OL.OnPageChanging := DoPageChanging;
  OL.OnButtonClick  := DoButtonClick;
  OL.OnContextPopUp := OLContextPopUp;
  OL.BorderStyle := bsSingle;
  OL.Align := alLeft;
//  OL.Anchors := [akTop,akLeft,akRight];

  OL.Parent := self;
//  OL.BorderStyle := bsNone; // placing this to early (i.e right after .Create above) has no effect ???
  OL.LargeImages := ImageList1;
  OL.SmallImages := ImageList2;
  OL.Font.Name := 'Verdana';
  OL.Font.Size := 10;
  OL.ButtonSize := olbsLarge;
  OL.Color := clGray;
  OL.PopUpMenu := popOL;
  with OL.Pages.Add do
  begin
    Image := Image2.Picture.Bitmap;
    Caption := 'Page 0';
    with Buttons.Add do
    begin
      Caption := 'Button 1';
      ImageIndex := 0;
    end;
    with Buttons.Add do
    begin
      Caption := 'Button 2';
      ImageIndex := 1;
    end;
    with Buttons.Add do
    begin
      Caption := 'Button 3';
      ImageIndex := 2;
    end;
    with Buttons.Add do
    begin
      Caption := 'Button 4';
      ImageIndex := 3;
    end;
    Color := clRed;
  end;
  with OL.Pages.Add do
  begin
    Caption := 'Page 1';
    // no buttons
  end;

  with OL.Pages.Add do
  begin
    Image := Image1.Picture.Bitmap;
    Caption := 'Page 2';
    with Buttons.Add do
      Caption := 'Button 4';
    with Buttons.Add do
      Caption := 'Button 3';
    with Buttons.Add do
      Caption := 'Button 2';
    with Buttons.Add do
      Caption := 'Button 1';
//    Color := clBlue;
  end;
  with OL.Pages.Add do
  begin
    ButtonSize := olbsSmall;
    Caption := 'Page 3';
//    Color := clBtnFace;
    with Buttons.Add do
      Caption := 'Button 1';
    with Buttons.Add do
      Caption := 'Button 2';
    with Buttons.Add do
      Caption := 'Button 3';
    with Buttons.Add do
      Caption := 'Button 4';
    with Buttons.Add do
      Caption := 'Button 5';
    with Buttons.Add do
      Caption := 'Button 6';
    with Buttons.Add do
      Caption := 'Button 7';
    with Buttons.Add do
      Caption := 'Button 8';
    with Buttons.Add do
      Caption := 'Button 9';
    with Buttons.Add do
      Caption := 'Button 10';
    with Buttons.Add do
      Caption := 'Button 11';
    with Buttons.Add do
      Caption := 'Button 12';
    with Buttons.Add do
      Caption := 'Button 13';
    with Buttons.Add do
      Caption := 'Button 14';
    with Buttons.Add do
      Caption := 'Button 15';
    with Buttons.Add do
      Caption := 'Button 16';
    with Buttons.Add do
      Caption := 'Button 17';
    with Buttons.Add do
      Caption := 'Button 18';
    with Buttons.Add do
      Caption := 'Button 19';
    with Buttons.Add do
      Caption := 'Button 20';
  end;
  with OL.Pages.Add do
  begin
    Caption := 'Page 4';
    Color := clBtnFace;
    Font.Color := clBlack;
    with Buttons.Add do
      Caption := 'Button 1';
    with Buttons.Add do
      Caption := 'Button 2';
  end;
  Splitter1.Align := alLeft;
  OL.ActivePageIndex := 2;
  OL.Pages[2].TopButtonIndex := 3;
end;

procedure TOLBarMainForm.Editpagecaption1Click(Sender: TObject);
begin
  with OL.PopUpObject as TJvOutlookBarPage do
    EditCaption;
end;

procedure TOLBarMainForm.Editbuttoncaption1Click(Sender: TObject);
begin
  with OL.PopUpObject as TJvOutlookBarButton do
    EditCaption;
end;

procedure TOLBarMainForm.Button1Click(Sender: TObject);
begin
  OL.LargeImages := ImageList1;
  OL.SmallImages := ImageList2;
end;

procedure TOLBarMainForm.Button2Click(Sender: TObject);
begin
  OL.LargeImages := nil;
  OL.SmallImages := nil;
end;

procedure TOLBarMainForm.Button3Click(Sender: TObject);
var i:integer;
begin
  with TFontDialog.Create(nil) do
  try
    Font := OL.Font;
    if Execute then
    begin
      for i := 0 to OL.Pages.Count - 1 do
        OL.Pages[i].Font := Font;
      OL.Font := Font;
    end;
  finally
    Free;
  end;
end;

end.

--- NEW FILE: back.bmp ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: back2.bmp ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: back3.bmp ---
(This appears to be a binary file; contents omitted.)