Also ich sag mal so...
Das ist ein Teil des Original-Codes:
Delphi-Quellcode:
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TfrmMain =
class(TForm)
pnlEins: TPanel;
pnlZwei: TPanel;
pnlDrei: TPanel;
lblWin: TLabel;
lblLost: TLabel;
lblTie: TLabel;
btnStart: TButton;
btnStop: TButton;
procedure btnStartClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnStopClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
Das ist der Reproduzierte:
Delphi-Quellcode:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmMain=class(TForm)
pnlEins: TPanel;
pnlZwei: TPanel;
pnlDrei: TPanel;
lblWin: TLabel;
lblLost: TLabel;
lblTie: TLabel;
btnStart: TButton;
btnStop: TButton;
OFFS_0240: N.A.;
procedure btnStartClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure btnStopClick(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmMain: TfrmMain;
Also ich find das Programm sehr geil, es baut auch die
DFM exakt nach.
Aber du hast schon recht, das meiste bringt dir nichts
, ich finde es aber trotzdem sehr interessant.
@Luckie: Das ist eine berechtigte Frage.