[JEDI.NET-commits] dev/jedi_mbe/examples/hmi/leds/SingleLed examples.hmi.leds.singleled.bdsproj,NONE,1.1 examples.hmi.leds.singleled.dpr,NONE,1.1 examples.hmi.leds.singleled.mainform.pas,NONE,1.1 examples.hmi.leds.singleled.mainform.resx,NONE,1.1

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/dev/jedi_mbe/examples/hmi/leds/SingleLed
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22719/dev/jedi_mbe/examples/hmi/leds/SingleLed

Added Files:
	examples.hmi.leds.singleled.bdsproj 
	examples.hmi.leds.singleled.dpr 
	examples.hmi.leds.singleled.mainform.pas 
	examples.hmi.leds.singleled.mainform.resx 
Log Message:
not working yet (need more changes in Jedi.Collections).

--- NEW FILE: examples.hmi.leds.singleled.bdsproj ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: examples.hmi.leds.singleled.dpr ---
program examples.hmi.leds.singleled;

{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Data.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Drawing.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Windows.Forms.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll'}
{%DelphiDotNetAssemblyCompiler '..\..\..\..\bin\Jedi.Windows.Forms.Hmi.dll'}
{%DelphiDotNetAssemblyCompiler 'f:\program files\common files\borland shared\bds\shared assemblies\2.0\Borland.Delphi.dll'}
{$R 'examples.hmi.leds.singleled.mainform.TWinForm.resources' 'examples.hmi.leds.singleled.mainform.resx'}
{%DelphiDotNetAssemblyCompiler '..\..\..\..\bin\Jedi.Drawing.dll'}
{%DelphiDotNetAssemblyCompiler '..\..\..\..\bin\Jedi.Core.dll'}

uses
  System.Reflection,
  System.Runtime.CompilerServices,
  System.Windows.Forms,
  examples.hmi.leds.singleled.mainform in 'examples.hmi.leds.singleled.mainform.pas' {examples.hmi.leds.singleled.mainform.TWinForm: System.Windows.Forms.Form};

{$R *.res}

{$REGION 'Program/Assembly Information'}
//
// General Information about an assembly is controlled through the following
// set of attributes. Change these attribute values to modify the information
// associated with an assembly.
//
[assembly: AssemblyDescription('')]
[assembly: AssemblyConfiguration('')]
[assembly: AssemblyCompany('')]
[assembly: AssemblyProduct('')]
[assembly: AssemblyCopyright('')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]

// The Delphi compiler controls the AssemblyTitleAttribute via the ExeDescription.
// You can set this in the IDE via the Project Options.
// Manually setting the AssemblyTitle attribute below will override the IDE
// setting.
// [assembly: AssemblyTitle('')]


//
// Version information for an assembly consists of the following four values:
//
//      Major Version
//      Minor Version 
//      Build Number
//      Revision
//
// You can specify all the values or you can default the Revision and Build Numbers 
// by using the '*' as shown below:

[assembly: AssemblyVersion('1.0.0.0')]

//
// In order to sign your assembly you must specify a key to use. Refer to the 
// Microsoft .NET Framework documentation for more information on assembly signing.
//
// Use the attributes below to control which key is used for signing. 
//
// Notes: 
//   (*) If no key is specified, the assembly is not signed.
//   (*) KeyName refers to a key that has been installed in the Crypto Service
//       Provider (CSP) on your machine. KeyFile refers to a file which contains
//       a key.
//   (*) If the KeyFile and the KeyName values are both specified, the 
//       following processing occurs:
//       (1) If the KeyName can be found in the CSP, that key is used.
//       (2) If the KeyName does not exist and the KeyFile does exist, the key 
//           in the KeyFile is installed into the CSP and used.
//   (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility.
//       When specifying the KeyFile, the location of the KeyFile should be
//       relative to the project output directory. For example, if your KeyFile is
//       located in the project directory, you would specify the AssemblyKeyFile 
//       attribute as [assembly: AssemblyKeyFile('mykey.snk')], provided your output
//       directory is the project directory (the default).
//   (*) Delay Signing is an advanced option - see the Microsoft .NET Framework
//       documentation for more information on this.
//
[assembly: AssemblyDelaySign(false)]
[assembly: AssemblyKeyFile('')]
[assembly: AssemblyKeyName('')]
{$ENDREGION}

[STAThread]
begin
  Application.Run(TWinForm.Create);
end.

--- NEW FILE: examples.hmi.leds.singleled.mainform.resx ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: examples.hmi.leds.singleled.mainform.pas ---
unit examples.hmi.leds.singleled.mainform;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, Jedi.Windows.Forms.Hmi.Leds;

type
  TWinForm = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    Components: System.ComponentModel.Container;
    SingleLed1: Jedi.Windows.Forms.Hmi.Leds.SingleLed;
    SingleLed2: Jedi.Windows.Forms.Hmi.Leds.SingleLed;
    PropertyGrid1: System.Windows.Forms.PropertyGrid;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]

implementation

{$AUTOBOX ON}

{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWinForm.InitializeComponent;
type
  TArrayOfJedi_Windows_Forms_Hmi_Leds_LedStateBase = array of Jedi.Windows.Forms.Hmi.Leds.LedStateBase;
begin
  Self.SingleLed1 := Jedi.Windows.Forms.Hmi.Leds.SingleLed.Create;
  Self.SingleLed2 := Jedi.Windows.Forms.Hmi.Leds.SingleLed.Create;
  Self.PropertyGrid1 := System.Windows.Forms.PropertyGrid.Create;
  (System.ComponentModel.ISupportInitialize(Self.SingleLed1)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.SingleLed2)).BeginInit;
  Self.SuspendLayout;
  // 
  // SingleLed1
  // 
  Self.SingleLed1.BlinkInterval := 0;
  Self.SingleLed1.LedState := 1;
  Self.SingleLed1.LedStyle := Jedi.Windows.Forms.Hmi.Leds.SingleColorNormalLedStyle.Create(64, 
      65, Jedi.Windows.Forms.Hmi.Leds.LedFrameStyle.Sunken, 75, System.Drawing.Color.Blue);
  Self.SingleLed1.Location := System.Drawing.Point.Create(20, 25);
  Self.SingleLed1.Name := 'SingleLed1';
  Self.SingleLed1.Size := System.Drawing.Size.Create(64, 64);
  Self.SingleLed1.TabIndex := 0;
  // 
  // SingleLed2
  // 
  Self.SingleLed2.BlinkInterval := 0;
  Self.SingleLed2.LedState := 0;
  Self.SingleLed2.LedStyle := Jedi.Windows.Forms.Hmi.Leds.MultiColorNormalLedStyle.Create(16, 
      65, Jedi.Windows.Forms.Hmi.Leds.LedFrameStyle.Sunken, TArrayOfJedi_Windows_Forms_Hmi_Leds_LedStateBase.Create(Jedi.Windows.Forms.Hmi.Leds.LedState.Create(System.Drawing.Color.Black, 
            'Off'), Jedi.Windows.Forms.Hmi.Leds.LedState.Create(System.Drawing.Color.Blue, 
            'Blue'), Jedi.Windows.Forms.Hmi.Leds.LedState.Create(System.Drawing.Color.Orange, 
            'Orange'), Jedi.Windows.Forms.Hmi.Leds.LedState.Create(System.Drawing.Color.YellowGreen, 
            'Green'), Jedi.Windows.Forms.Hmi.Leds.LedState.Create(System.Drawing.Color.Red, 
            'Red')));
  Self.SingleLed2.Location := System.Drawing.Point.Create(40, 130);
  Self.SingleLed2.Name := 'SingleLed2';
  Self.SingleLed2.Size := System.Drawing.Size.Create(16, 16);
  Self.SingleLed2.TabIndex := 1;
  // 
  // PropertyGrid1
  // 
  Self.PropertyGrid1.CommandsBackColor := System.Drawing.Color.Gray;
  Self.PropertyGrid1.CommandsVisibleIfAvailable := True;
  Self.PropertyGrid1.LargeButtons := False;
  Self.PropertyGrid1.LineColor := System.Drawing.SystemColors.ScrollBar;
  Self.PropertyGrid1.Location := System.Drawing.Point.Create(175, 10);
  Self.PropertyGrid1.Name := 'PropertyGrid1';
  Self.PropertyGrid1.SelectedObject := Self.SingleLed2;
  Self.PropertyGrid1.Size := System.Drawing.Size.Create(490, 475);
  Self.PropertyGrid1.TabIndex := 2;
  Self.PropertyGrid1.Text := 'PropertyGrid1';
  Self.PropertyGrid1.ViewBackColor := System.Drawing.SystemColors.Window;
  Self.PropertyGrid1.ViewForeColor := System.Drawing.SystemColors.WindowText;
  // 
  // TWinForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.BackColor := System.Drawing.Color.Gray;
  Self.ClientSize := System.Drawing.Size.Create(707, 503);
  Self.Controls.Add(Self.PropertyGrid1);
  Self.Controls.Add(Self.SingleLed2);
  Self.Controls.Add(Self.SingleLed1);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  (System.ComponentModel.ISupportInitialize(Self.SingleLed1)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.SingleLed2)).EndInit;
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

end.