[JVCL-Checkins] CVS: dev/JVCL3/examples/JvSystemPopUp2 JvSystemPopup2MainFormU.dfm,NONE,1.1 JvSystemPopup2MainFormU.pas,NONE,1.1 SystemPopupTest.dof,NONE,1.1 SystemPopupTest.dpr,NONE,1.1 SystemPopupTest.res,NONE,1.1

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

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

Added Files:
	JvSystemPopup2MainFormU.dfm JvSystemPopup2MainFormU.pas 
	SystemPopupTest.dof SystemPopupTest.dpr SystemPopupTest.res 
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter

--- NEW FILE: JvSystemPopup2MainFormU.dfm ---
object JvSystemPopup2MainForm: TJvSystemPopup2MainForm
  Left = 351
  Top = 258
  Width = 520
  Height = 318
  Caption = 'JvSystemPopup2MainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btnSwitch: TButton
    Left = 16
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Switch'
    TabOrder = 0
    OnClick = btnSwitchClick
  end
  object rgrPosition: TRadioGroup
    Left = 16
    Top = 56
    Width = 177
    Height = 81
    Caption = ' The PopUp Position is on: '
    ItemIndex = 1
    Items.Strings = (
      'None'
      'Form'
      'Application')
    TabOrder = 1
    OnClick = rgrPositionClick
  end
  object rgrPositionInMenu: TRadioGroup
    Left = 208
    Top = 56
    Width = 177
    Height = 81
    Caption = ' Position in Menu: '
    ItemIndex = 0
    Items.Strings = (
      'Top'
      'Bottom')
    TabOrder = 2
    OnClick = rgrPositionInMenuClick
  end
  object edtAdd: TEdit
    Left = 16
    Top = 224
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object btnAdd: TButton
    Left = 152
    Top = 224
    Width = 75
    Height = 25
    Caption = 'Add'
    TabOrder = 4
    OnClick = btnAddClick
  end
  object chbHideHideableItem: TCheckBox
    Left = 16
    Top = 152
    Width = 193
    Height = 17
    Caption = 'Hide Hideable Item'
    TabOrder = 5
    OnClick = chbHideHideableItemClick
  end
  object PopupMenu1: TPopupMenu
    Images = ImageList1
    Left = 328
    Top = 8
    object est1: TMenuItem
      Caption = 'Menu1'
      object Action11: TMenuItem
        Action = actClickToCheck
      end
      object DisabledItem1: TMenuItem
        Caption = 'Disabled Item'
        Enabled = False
      end
      object ShortCut2: TMenuItem
        Action = actShortCut
      end
    end
    object Menu21: TMenuItem
      Caption = 'Menu2'
      object ClickToSwitchIcon1: TMenuItem
        Action = actClickToSwitchIcon
      end
    end
    object HideableItem2: TMenuItem
      Action = actHideableItem
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 360
    Top = 8
    object actClickToCheck: TAction
      Caption = 'Click to switch Checked'
      OnExecute = actClickToCheckExecute
    end
    object actClickToSwitchIcon: TAction
      Caption = 'Click To Switch Icon'
      ImageIndex = 0
      OnExecute = actClickToSwitchIconExecute
    end
    object actHideableItem: TAction
      Caption = 'Hideable Item'
      OnExecute = actHideableItemExecute
    end
    object actShortCut: TAction
      Caption = 'ShortCut'
      ShortCut = 49217
      OnExecute = actShortCutExecute
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 296
    Top = 8
    object Action21: TMenuItem
      Caption = 'Radio1'
      Checked = True
      GroupIndex = 1
      RadioItem = True
      OnClick = RadioClick
    end
    object Radio21: TMenuItem
      Caption = 'Radio2'
      GroupIndex = 1
      RadioItem = True
      OnClick = RadioClick
    end
    object Radio31: TMenuItem
      Caption = 'Radio3'
      GroupIndex = 1
      RadioItem = True
      OnClick = RadioClick
    end
    object HideableItem1: TMenuItem
      Action = actHideableItem
      GroupIndex = 1
    end
    object ShortCut1: TMenuItem
      Action = actShortCut
      GroupIndex = 1
    end
  end
  object ImageList1: TImageList
    Left = 400
    Top = 8
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000333633363336
      3336333633363336333633363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000003336333600000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000333633363336
      3336333633363336333633363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7FF75E
      F75E584658468C318C3100003336333600000000000000000000000000003336
      3336333633360000000000000000000000000000000000003336333633363336
      3336333633363336333633363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7FBF6F
      F75EF75E584658468C31000033363336000000000000000000009A4600000000
      0000000033363336333600000000000000000000000000000000000000000000
      0000000000000000000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7FF75E
      BF6F5846F75E8C319A4600003336333600000000000000003336000000020002
      0002000200003336333633360000000000000000000000000460004004600040
      0460004000400040000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7FF75E
      BF6F5846F75E8C319A460000333633360000000000009A4600000002E0030002
      E003000200020000333633363336000000000000000000000040007C007C007C
      007C007C00400040000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7FF75E
      BF6F5846F75E8C319A460000333633360000000000008C310002E0030002E003
      0002E003000200028C3133363336000000000000000000000460007C007C007C
      007C0040007C0040000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7FF75E
      BF6F5846F75E8C319A4600003336333600000000000000000002E003E003E003
      E0030002E0030002000033363336000000000000000000000040007C007C007C
      007C007C00400040000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7FF75E
      BF6F5846F75E8C319A4600003336333600000000000000000002E003FF7FFF7F
      E003E00300020002000033363336000000000000000000000460007CFF7FFF7F
      007C007C007C0040000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F75EFF7F5846
      BF6F33365846082133360000333633360000000000008C310002E003FF7FFF7F
      E0030002E00300028C3133363336000000000000000000000040007CFF7FFF7F
      007C007C00400040000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000333633363336
      333633363336333633360000333633360000000000009A4600000002E003E003
      0002E00300020000333633360000000000000000000000000460007C007C007C
      007C007C007C0040000033363336000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000333600000000000000003336000000020002
      0002000200003336333600000000000000000000000000000040046000400460
      0040004000400040000033360000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000F75EFF7FFF7FF75E
      F75E5846584633363336333600003336000000000000000000009A4600000000
      0000000033360000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000F75E
      FF7FF75EF75E0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000F003FFFFFFFF0000
      E001FFFFF0030000E001FC3FE0030000E001F00FC0030000E001E007C0030000
      E001C003C0030000E001C003C0030000E001C003C0030000E001C003C0030000
      E001C003C0030000E001C007C0030000C001E00FC0070000C001F03FC00F0000
      C003FFFFFFFF0000F81FFFFFFFFF000000000000000000000000000000000000
      000000000000}
  end
  object JvSystemPopup1: TJvSystemPopup
    Popup = PopupMenu1
    Position = ppForm
    Left = 264
    Top = 8
  end
end

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

unit JvSystemPopup2MainFormU;

interface

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

type
  TJvSystemPopup2MainForm = class(TForm)
    JvSystemPopup1: TJvSystemPopup;
    PopupMenu1: TPopupMenu;
    est1: TMenuItem;
    ActionList1: TActionList;
    actClickToCheck: TAction;
    Action11: TMenuItem;
    PopupMenu2: TPopupMenu;
    Action21: TMenuItem;
    btnSwitch: TButton;
    rgrPosition: TRadioGroup;
    rgrPositionInMenu: TRadioGroup;
    edtAdd: TEdit;
    btnAdd: TButton;
    Radio21: TMenuItem;
    Radio31: TMenuItem;
    Menu21: TMenuItem;
    DisabledItem1: TMenuItem;
    actClickToSwitchIcon: TAction;
    ImageList1: TImageList;
    ClickToSwitchIcon1: TMenuItem;
    chbHideHideableItem: TCheckBox;
    actHideableItem: TAction;
    HideableItem1: TMenuItem;
    HideableItem2: TMenuItem;
    actShortCut: TAction;
    ShortCut1: TMenuItem;
    ShortCut2: TMenuItem;
    procedure actClickToCheckExecute(Sender: TObject);
    procedure btnSwitchClick(Sender: TObject);
    procedure rgrPositionClick(Sender: TObject);
    procedure rgrPositionInMenuClick(Sender: TObject);
    procedure RadioClick(Sender: TObject);
    procedure actClickToSwitchIconExecute(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure chbHideHideableItemClick(Sender: TObject);
    procedure actHideableItemExecute(Sender: TObject);
    procedure actShortCutExecute(Sender: TObject);
  end;

var
  JvSystemPopup2MainForm: TJvSystemPopup2MainForm;

implementation

uses
  JvTypes;

{$R *.dfm}

procedure TJvSystemPopup2MainForm.actClickToCheckExecute(Sender: TObject);
begin
  if Sender is TAction then
    with Sender as TAction do
      Checked := not Checked;
end;

procedure TJvSystemPopup2MainForm.btnSwitchClick(Sender: TObject);
begin
  with JvSystemPopup1 do
    if Popup = PopupMenu1 then
      Popup := PopupMenu2
    else
      Popup := PopupMenu1;
end;

procedure TJvSystemPopup2MainForm.rgrPositionClick(Sender: TObject);
begin
  JvSystemPopup1.Position := TJvPopupPosition(rgrPosition.ItemIndex);
end;

procedure TJvSystemPopup2MainForm.rgrPositionInMenuClick(Sender: TObject);
begin
  JvSystemPopup1.PositionInMenu := TJvPositionInMenu(rgrPositionInMenu.ItemIndex);
end;

procedure TJvSystemPopup2MainForm.RadioClick(Sender: TObject);
begin
  if Sender is TMenuItem then
    with Sender as TMenuItem do
      Checked := not Checked;
end;

procedure TJvSystemPopup2MainForm.actClickToSwitchIconExecute(Sender: TObject);
begin
  if Sender is TAction then
    with Sender as TAction do
      ImageIndex := ((ImageIndex + 2) mod 4) - 1;
end;

procedure TJvSystemPopup2MainForm.btnAddClick(Sender: TObject);
var
  MenuItem: TMenuItem;
begin
  MenuItem := TMenuItem.Create(nil);
  with MenuItem do
  begin
    Caption := edtAdd.Text;
  end;
  PopupMenu1.Items.Items[0].Add(MenuItem);
  if JvSystemPopup1.Popup = PopupMenu1 then
    JvSystemPopup1.Refresh;
end;

procedure TJvSystemPopup2MainForm.chbHideHideableItemClick(Sender: TObject);
begin
  actHideableItem.Visible := not chbHideHideableItem.Checked;
end;

procedure TJvSystemPopup2MainForm.actHideableItemExecute(Sender: TObject);
begin
  chbHideHideableItem.Checked := True;
end;

procedure TJvSystemPopup2MainForm.actShortCutExecute(Sender: TObject);
begin
  ShowMessage('ShortCut');
end;

end.


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

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

uses
  Forms,
  JvSystemPopup2MainFormU in 'JvSystemPopup2MainFormU.pas' {JvSystemPopup2MainForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TJvSystemPopup2MainForm, JvSystemPopup2MainForm);
  Application.CreateForm(TJvSystemPopup2MainForm, JvSystemPopup2MainForm);
  Application.Run;
end.

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