migann
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Menus, ExtCtrls, ActnList, StdActns, StdCtrls;
type
TFmMain = class(TForm)
gbStatus: TGroupBox;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
StaticText7: TStaticText;
StaticText8: TStaticText;
gbError: TGroupBox;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
StaticText9: TStaticText;
StaticText10: TStaticText;
StaticText11: TStaticText;
StaticText12: TStaticText;
StaticText13: TStaticText;
StaticText14: TStaticText;
StaticText15: TStaticText;
StaticText16: TStaticText;
ActionList1: TActionList;
FileExit1: TFileExit;
Timer1: TTimer;
mmMain: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
HDD1: TMenuItem;
N1: TMenuItem;
miSoftReset1: TMenuItem;
Options2: TMenuItem;
Port1: TMenuItem;
miPortPrimary: TMenuItem;
miPortSecondary: TMenuItem;
miPortCustom: TMenuItem;
miPortUsb: TMenuItem;
miSafeMode: TMenuItem;
miAutoloadMap1: TMenuItem;
N2: TMenuItem;
miAutoCloseProgress: TMenuItem;
miUseTempDir: TMenuItem;
miSound: TMenuItem;
miStayOnTop: TMenuItem;
miDontupdateLEDs1: TMenuItem;
miLEDs1: TMenuItem;
miUnistalDriver: TMenuItem;
Help1: TMenuItem;
About: TMenuItem;
btOff: TSpeedButton;
btReset: TSpeedButton;
imNon: TImage;
imRed: TImage;
imGreen: TImage;
imStdNo: TImage;
imStdRed: TImage;
imStdGreen: TImage;
imDmaNo: TImage;
imDmaRed: TImage;
imDmaGreen: TImage;
WDL1: TMenuItem;
WDROYL1: TMenuItem;
procedure AboutClick(Sender: TObject);
procedure WDROYL1Click(Sender: TObject);
procedure WDL1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmMain: TFmMain;
implementation
uses About, uHDD;
{$R *.dfm}
procedure TFmMain.AboutClick(Sender: TObject);
begin
With TFmAbout.Create(Application) do
Try
ShowModal;
finally
free;
end;
end;
procedure TFmMain.WDROYL1Click(Sender: TObject);
begin
With TFmHDD.Create(Application) do
Try
ShowModal;
finally
free;
end;
end;
procedure TFmMain.WDL1Click(Sender: TObject);
begin
With TFmHDD.Create(Application) do
Try
ShowModal;
finally
free;
end;
end;
end.
|
Код: unit uHeadsMap;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TFmHeadsMap = class(TForm)
gbKillHead: TGroupBox;
btOk: TButton;
edKillHead: TLabeledEdit;
cbClsTransl: TCheckBox;
gbHeadsMap: TGroupBox;
cbHead0: TCheckBox;
cbHead1: TCheckBox;
cbHead2: TCheckBox;
cbHead3: TCheckBox;
cbHead4: TCheckBox;
cbHead5: TCheckBox;
cbHead6: TCheckBox;
cbHead7: TCheckBox;
cbUseHeadsMap: TCheckBox;
edInUseHeads: TLabeledEdit;
edPhysicalHeads: TLabeledEdit;
btWrite: TButton;
btRead: TButton;
btSave: TButton;
btLoad: TButton;
rbModule0A: TRadioButton;
rbFlash: TRadioButton;
edGoodHeadMap: TLabeledEdit;
cbAutoMap2: TCheckBox;
edNativeHeadMap: TLabeledEdit;
btCreate: TButton;
edTpi: TLabeledEdit;
gbTestHeads: TGroupBox;
btTestHeads: TButton;
rbUa: TRadioButton;
rbSa: TRadioButton;
edTstTracks: TLabeledEdit;
edActHeadsTst: TLabeledEdit;
btGetActHeads: TButton;
cbWrtTst: TCheckBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmHeadsMap: TFmHeadsMap;
implementation
{$R *.dfm}
end.
|
Код: unit uCreater47;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls;
type
TFmCreater = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
TrackBar2: TTrackBar;
TrackBar3: TTrackBar;
TrackBar1: TTrackBar;
TrackBar4: TTrackBar;
TrackBar5: TTrackBar;
TrackBar6: TTrackBar;
TrackBar7: TTrackBar;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
TrackBar8: TTrackBar;
TrackBar9: TTrackBar;
Edit7: TEdit;
Edit8: TEdit;
cb8heads: TCheckBox;
btLoad: TButton;
btSave: TButton;
GroupBox2: TGroupBox;
rgFrom: TRadioGroup;
btCreate: TButton;
cbDword40: TCheckBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmCreater: TFmCreater;
implementation
{$R *.dfm}
end. |
|
Всего записей: 312 | Зарегистр. 05-04-2006 | Отправлено: 18:09 06-06-2016 | Исправлено: migann, 18:12 06-06-2016 |
|
