Unit1.pas from Sector-37 at Krugle

Show Unit1.pas syntax highlighted

unit Unit1;

interface

{$I GLScene.inc}

uses
  //VCL
  Windows,  SysUtils, Classes, Graphics,  Forms, StdCtrls, Controls, Dialogs,
  Menus, ExtCtrls, Grids,
  //GLScene
  VectorTypes, VectorGeometry, GLTexture,
  //Strange components
  DummyClasses,
  StrangeIniObjects, StrangeStringUtilities, StrangePersistentClasses,
  StrangeMathUtilities, StrangeTypesAndConstants, StrangeIniFiles;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Memo2: TMemo;
    Panel2: TPanel;
    Memo1: TMemo;
    Panel3: TPanel;
    Memo3: TMemo;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Button8: TButton;
    Button10: TButton;
    Button7: TButton;
    Button9: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button1: TButton;
    Button6: TButton;
    Button2: TButton;
    Button11: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 end;

const
  FILENAME = 'settings.ini';
  SECTION = 'General';
var
  Form1: TForm1;
  DummyClass: TDummyClass;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DummyClass := TDummyClass.Create(Self);
  if SizeOf(TStrangeCustomSet) = 16 then
    Beep;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DummyClass.Destroy;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  DummyClass.InitValues1;
  DummyClass.Memo := Memo1;
  DummyClass.InternalClasses[1].Button := Button9;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  DummyClass.InitValues2;
  DummyClass.Memo := Memo2;
  DummyClass.InternalClasses[3].Button := Button4;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  //reinitialize values
  DummyClass.Free;
  DummyClass := TDummyClass.Create(Self);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DummyClass.SaveToIniStrings(Memo1.Lines, STR_GENERAL_SECTION, False, True);
  ShowMessage('Saved to Memo!');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  DummyClass.SaveToIniStrings(Memo1.Lines, STR_GENERAL_SECTION, True, True);
  ShowMessage('Saved to Memo!');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DummyClass.LoadFromIniStrings(Memo1.Lines, STR_GENERAL_SECTION, False, True);
  ShowMessage('Loaded from Memo to class!');
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  DummyClass.LoadFromIniStrings(Memo1.Lines, STR_GENERAL_SECTION, True, True);
  ShowMessage('Loaded from Memo to class!');
end;

procedure TForm1.Button8Click(Sender: TObject);
var
  Text: string;
begin
  Text := Memo1.Lines.Text;
  DummyClass.LoadFromIniText(Text, STR_GENERAL_SECTION, False, True);
  ShowMessage('Loaded from Memo to class!');
end;


procedure TForm1.Button7Click(Sender: TObject);
var
  Text: string;
begin
  DummyClass.SaveToIniText(Text, STR_GENERAL_SECTION, False, True);
  Memo1.Lines.Text := Text;
  ShowMessage('Saved to Memo!');
end;

procedure TForm1.Button9Click(Sender: TObject);
var
  Text: string;
begin
  DummyClass.SaveToIniText(Text, STR_GENERAL_SECTION, False, True);
  Memo1.Lines.Text := StringToHex(Text);
  ShowMessage('Saved to Memo!');  
end;

procedure TForm1.Button10Click(Sender: TObject);
var
  Text: string;
begin
  Text := HexToString(Memo1.Lines.Text);
  DummyClass.LoadFromIniText(Text, STR_GENERAL_SECTION, False, True);
  ShowMessage('Loaded from Memo to class!');
end;

end.
See more files for this project here