[JEDI.NET-commits] main/examples/Jedi.Windows.Forms.Visual/Shape TestProject.bdsproj,NONE,1.1 TestProject.dpr,NONE,1.1 TestProject.res,NONE,1.1 WinForm.TWinForm.resources,NONE,1.1 WinForm.pas,NONE,1.1 WinForm.resx,NONE,1.1

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

Update of /cvsroot/jedidotnet/main/examples/Jedi.Windows.Forms.Visual/Shape
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2312/main/examples/Jedi.Windows.Forms.Visual/Shape

Added Files:
	TestProject.bdsproj TestProject.dpr TestProject.res 
	WinForm.TWinForm.resources WinForm.pas WinForm.resx 
Log Message:
Donations by Andreas Hausladen

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

--- NEW FILE: WinForm.TWinForm.resources ---
(This appears to be a binary file; contents omitted.)

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

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

{%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'}
{$R 'WinForm.TWinForm.resources' 'WinForm.resx'}

uses
  System.Reflection,
  System.Runtime.CompilerServices,
  System.Windows.Forms,
  WinForm in 'WinForm.pas' {WinForm.TWinForm: System.Windows.Forms.Form},
  Jedi.Controls.Visual in '..\Jedi.Controls.Visual.pas' {Jedi.Controls.Visual.Shape: System.Windows.Forms.Control};

{$R *.res}

{$REGION 'Programm/Assemblierungs-Informationen'}
//
// Die allgemeinen Assemblierungsinformationen werden durch die folgenden
// Attribute gesteuert. Ändern Sie die Attributwerte, um die zu einer
// Assemblierung gehörenden Informationen zu modifizieren.
//
[assembly: AssemblyDescription('')]
[assembly: AssemblyConfiguration('')]
[assembly: AssemblyCompany('')]
[assembly: AssemblyProduct('')]
[assembly: AssemblyCopyright('')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]

// Der Delphi-Compiler steuert AssemblyTitleAttribute via ExeDescription.
// Sie können dies in der IDE über Projekt/Optionen festlegen.
// Wenn Sie das Attribut AssemblyTitle wie unten gezeigt manuell festlegen,
// wird die IDE-Einstellung überschrieben.
// [assembly: AssemblyTitle('')]


//
// Die Versionsinformation einer Assemblierung enthält die folgenden vier Werte:
//
//      Hauptversion
//      Nebenversion
//      Build-Nummer
//      Revision
//
// Sie können alle vier Werte festlegen oder für Revision und Build-Nummer die
// Standardwerte mit '*' - wie nachfolgend gezeigt - verwenden:

[assembly: AssemblyVersion('1.0.*')]

//
// Zum Signieren einer Assemblierung müssen Sie einen Schlüssel angeben. Weitere Informationen
// über das Signieren von Assemblierungen finden Sie in der Microsoft .NET Framework-Dokumentation.
//
// Mit den folgenden Attributen steuern Sie, welcher Schlüssel für die Signatur verwendet wird.
//
// Hinweise:
//   (*) Wenn kein Schlüssel angegeben wird, ist die Assemblierung nicht signiert.
//   (*) KeyName verweist auf einen Schlüssel, der im Crypto Service Provider
//      (CSP) auf Ihrem Rechner installiert wurde. KeyFile verweist auf eine
//       Datei, die einen Schlüssel enthält.
//   (*) Wenn sowohl der KeyFile- als auch der KeyName-Wert angegeben ist, wird
//      die folgende Verarbeitung durchgeführt:
//       (1) Wenn KeyName in dem CSP gefunden wird, wird dieser Schlüssel verwendet.
//       (2) Wenn KeyName nicht, aber KeyFile vorhanden ist, wird der Schlüssel
//           in KeyFile im CSP installiert und verwendet.
//   (*) Ein KeyFile können Sie mit dem Utility sn.exe (Starker Name) erzeugen.
//       Der Speicherort von KeyFile sollte relativ zum Projektausgabeverzeichnis
//       angegeben werden. Wenn sich Ihr KeyFile im Projektverzeichnis befindet,
//       würden Sie das Attribut AssemblyKeyFile folgendermaßen festlegen:
//       [assembly: AssemblyKeyFile('mykey.snk')], vorausgesetzt, Ihr
//       Ausgabeverzeichnis ist das Projektverzeichnis (Vorgabe).
//   (*) Verzögerte Signatur ist eine erweiterte Option; nähere Informationen
//       dazu finden Sie in der Microsoft .NET Framework-Dokumentation.
//
[assembly: AssemblyDelaySign(false)]
[assembly: AssemblyKeyFile('')]
[assembly: AssemblyKeyName('')]
{$ENDREGION}

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

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

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

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data,
  Jedi.Controls.Visual;

type
  TWinForm = class(System.Windows.Forms.Form)
  {$REGION 'Vom Designer verwalteter Code'}
  strict private
    Components: System.ComponentModel.Container;
    ComboBoxShape: System.Windows.Forms.ComboBox;
    procedure InitializeComponent;
    procedure TWinForm_Load(sender: System.Object; e: System.EventArgs);
    procedure ComboBoxShape_SelectedIndexChanged(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
    shape: Jedi.Controls.Visual.Shape;
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]

implementation

{$AUTOBOX ON}

{$REGION 'Windows Form-Designer erzeugter Code'}
procedure TWinForm.InitializeComponent;
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Self.ComboBoxShape := System.Windows.Forms.ComboBox.Create;
  Self.SuspendLayout;
  // 
  // ComboBoxShape
  // 
  Self.ComboBoxShape.DropDownStyle := System.Windows.Forms.ComboBoxStyle.DropDownList;
  Self.ComboBoxShape.Items.AddRange(TArrayOfSystem_Object.Create('Circle', 'Ellipse', 
          'Rectangle', 'RoundRect', 'RoundSquare', 'Square'));
  Self.ComboBoxShape.Location := System.Drawing.Point.Create(8, 8);
  Self.ComboBoxShape.Name := 'ComboBoxShape';
  Self.ComboBoxShape.Size := System.Drawing.Size.Create(121, 21);
  Self.ComboBoxShape.TabIndex := 1;
  Include(Self.ComboBoxShape.SelectedIndexChanged, Self.ComboBoxShape_SelectedIndexChanged);
  // 
  // TWinForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(432, 273);
  Self.Controls.Add(Self.ComboBoxShape);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Include(Self.Load, Self.TWinForm_Load);
  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;
  InitializeComponent;
end;

procedure TWinForm.ComboBoxShape_SelectedIndexChanged(sender: System.Object; e: System.EventArgs);
begin
  case ComboBoxShape.SelectedIndex of
    0: shape.Shape := stCircle;
    1: shape.Shape := stEllipse;
    2: shape.Shape := stRectangle;
    3: shape.Shape := stRoundRect;
    4: shape.Shape := stRoundSquare;
    5: shape.Shape := stSquare;
  end;
end;

procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
begin
  shape := Jedi.Controls.Visual.Shape.Create();
  shape.Location := System.Drawing.Point.Create(100, 100);
  shape.Width := 200;
  shape.Height := 100;
  shape.Pen := Pen.Create(Color.Red);
  shape.Brush := Brushes.Yellow;
  shape.Shape := stRoundRect;
  shape.Anchor := AnchorStyles.Left or AnchorStyles.Top or AnchorStyles.Right or AnchorStyles.Bottom;
  Self.Controls.Add(shape);

  ComboBoxShape.SelectedIndex := 0;
end;

end.