[JVCL-Checkins] CVS: dev/JVCL3/examples/JvSystemPopup JvSystemPopupMainFormU.dfm,NONE,1.1 JvSystemPopupMainFormU.pas,NONE,1.1 JvSystemPopupProj.dof,NONE,1.1 JvSystemPopupProj.dpr,NONE,1.1 JvSystemPopupProj.res,NONE,1.1

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

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

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

--- NEW FILE: JvSystemPopupMainFormU.dfm ---
object JvSystemPopupMainForm: TJvSystemPopupMainForm
  Left = 315
  Top = 275
  Width = 206
  Height = 136
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'JvSystemPopupMainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object RadioGroup1: TRadioGroup
    Left = 4
    Top = 6
    Width = 185
    Height = 85
    Caption = 'The popup is on :'
    ItemIndex = 0
    Items.Strings = (
      'None'
      'Application'
      'Form')
    TabOrder = 0
    OnClick = RadioGroup1Click
  end
  object JvSystemPopup1: TJvSystemPopup
    Popup = PopupMenu1
    Left = 124
    Top = 42
  end
  object PopupMenu1: TPopupMenu
    Left = 154
    Top = 40
    object firstone1: TMenuItem
      Caption = 'first one'
      OnClick = firstone1Click
    end
    object secondone1: TMenuItem
      Caption = 'second one'
      OnClick = firstone1Click
    end
    object thirdone1: TMenuItem
      Caption = 'third one'
      OnClick = firstone1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object SubMenu11: TMenuItem
      Caption = 'SubMenu1'
      object SubMenu12: TMenuItem
        Caption = 'SubMenuItem1'
        OnClick = firstone1Click
      end
      object SubMenu21: TMenuItem
        Caption = 'SubMenuItem2'
        OnClick = firstone1Click
      end
      object SubMenu31: TMenuItem
        Caption = 'SubMenuItem3'
        OnClick = firstone1Click
      end
    end
    object SubMenu22: TMenuItem
      Caption = 'SubMenu2'
      object SubMenuItem11: TMenuItem
        Caption = 'SubMenuItem1'
        OnClick = firstone1Click
      end
      object SubMenuItem21: TMenuItem
        Caption = 'SubMenuItem2'
        OnClick = firstone1Click
      end
      object SubMenuItem31: TMenuItem
        Caption = 'SubMenuItem3'
        OnClick = firstone1Click
      end
      object SubMenuItem41: TMenuItem
        Caption = 'SubMenuItem4'
        OnClick = firstone1Click
      end
      object SubMenuItem51: TMenuItem
        Caption = 'SubMenuItem5'
        OnClick = firstone1Click
      end
      object SubMenuItem1: TMenuItem
        Break = mbBarBreak
        Caption = 'SubMenuItem6'
        OnClick = firstone1Click
      end
      object SubMenuItem71: TMenuItem
        Caption = 'SubMenuItem7'
        OnClick = firstone1Click
      end
      object SubMenuItem81: TMenuItem
        Caption = 'SubMenuItem8'
        OnClick = firstone1Click
      end
      object SubMenuItem91: TMenuItem
        Caption = 'SubMenuItem9'
        OnClick = firstone1Click
      end
    end
  end
end

--- NEW FILE: JvSystemPopupMainFormU.pas ---
unit JvSystemPopupMainFormU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, JvSystemPopup, JvTypes, JvComponent;

type
  TJvSystemPopupMainForm = class(TForm)
    JvSystemPopup1: TJvSystemPopup;
    PopupMenu1: TPopupMenu;
    firstone1: TMenuItem;
    secondone1: TMenuItem;
    thirdone1: TMenuItem;
    RadioGroup1: TRadioGroup;
    SubMenu11: TMenuItem;
    SubMenu12: TMenuItem;
    SubMenu21: TMenuItem;
    SubMenu31: TMenuItem;
    N1: TMenuItem;
    SubMenu22: TMenuItem;
    SubMenuItem11: TMenuItem;
    SubMenuItem21: TMenuItem;
    SubMenuItem31: TMenuItem;
    SubMenuItem41: TMenuItem;
    SubMenuItem51: TMenuItem;
    SubMenuItem1: TMenuItem;
    SubMenuItem71: TMenuItem;
    SubMenuItem81: TMenuItem;
    SubMenuItem91: TMenuItem;
    procedure firstone1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  end;

var
  JvSystemPopupMainForm: TJvSystemPopupMainForm;

implementation

{$R *.DFM}

procedure TJvSystemPopupMainForm.firstone1Click(Sender: TObject);
begin
  showmessage((sender as TMEnuItem).caption);
end;

procedure TJvSystemPopupMainForm.RadioGroup1Click(Sender: TObject);
begin
  case self.RadioGroup1.itemindex of
    0 : self.JvSystemPopup1.Position := ppNone;
    1 : self.JvSystemPopup1.Position := ppApplication;
    2 : self.JvSystemPopup1.Position := ppForm;
  end;
end;

end.

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

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

uses
  Forms,
  JvSystemPopupMainFormU in 'JvSystemPopupMainFormU.pas' {JvSystemPopupMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TJvSystemPopupMainForm, JvSystemPopupMainForm);
  Application.CreateForm(TJvSystemPopupMainForm, JvSystemPopupMainForm);
  Application.Run;
end.

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