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.)
|