【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Main.pas”一文,供大家参考学习!
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls,GeneralBufferUnit;
Const
cSpeedBufferSize = 50;
// EachSize:Integer;// =256;//每次获取数据大小
type
TDataBuffer=record
vChBuffer:TLastestDataBuffer;
vChannel:Integer;
end;
type
PIntegerArray = ^TIntegerArray;
TIntegerArray = array[0..2047] of SmallInt;
type
TForm1 = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
MainMenu1: TMainMenu;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
MyStatusBar: TStatusBar;
ToolButton8: TToolButton;
ReadTimer: TTimer;
DispTimer: TTimer;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
PopupMenu1: TPopupMenu;
N181: TMenuItem;
N1: TMenuItem;
N9161: TMenuItem;
N2: TMenuItem;
N17241: TMenuItem;
N3: TMenuItem;
N25321: TMenuItem;
N4: TMenuItem;
N182: TMenuItem;
N5: TMenuItem;
N9162: TMenuItem;
N6: TMenuItem;
N17242: TMenuItem;
N21: TMenuItem;
N25322: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
FIFOIdleBar: TProgressBar;
Label1: TLabel;
ToolButton11: TToolButton;
Panel1: TPanel;
GroupBox1: TGroupBox;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Panel5: TPanel;
Image1: TImage;
GroupBox2: TGroupBox;
Panel3: TPanel;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Panel6: TPanel;
Image2: TImage;
GroupBox3: TGroupBox;
Panel4: TPanel;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
Button22: TButton;
Button23: TButton;
Button24: TButton;
Panel7: TPanel;
Image3: TImage;
GroupBox4: TGroupBox;
Panel8: TPanel;
Button25: TButton;
Button26: TButton;
Button27: TButton;
Button28: TButton;
Button29: TButton;
Button30: TButton;
Button31: TButton;
Button32: TButton;
Panel9: TPanel;
Image4: TImage;
procedure FormCreate(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N182Click(Sender: TObject);
procedure N9162Click(Sender: TObject);
procedure N17242Click(Sender: TObject);
procedure N25322Click(Sender: TObject);
procedure N181Click(Sender: TObject);
procedure N9161Click(Sender: TObject);
procedure N17241Click(Sender: TObject);
procedure N25321Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure Panel5Resize(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ReadTimerTimer(Sender: TObject);
procedure DispTimerTimer(Sender: TObject);
procedure Panel6Resize(Sender: TObject);
procedure Panel7Resize(Sender: TObject);
procedure Panel9Resize(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormDestroy(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
tempBox:array[0..3] of TGroupBox;
tempFirstPanel:array[0..7] of TButton;
tempSecondPanel:array[0..7] of TButton;
tempThirdPanel:array[0..7] of TButton;
tempfouthPanel:array[0..7] of TButton;
start:Boolean;
bigScreen:Boolean;
EachSize:Integer;// =256;//每次获取数据大小
//
vWaveBmp : array[0..3] of TBitmap;
vChdata:array of SmallInt;
//传输速度相关的变量
vSpeedBuf : Array [0..cSpeedBufferSize-1] of integer;
//计算速度
procedure DetectTranSpeed;
Function InitPara():Boolean;//初使化参数
procedure GetRect(WaveColor:Tcolor);
procedure DisplayIt(tag:Integer;WaveImage:TImage;WavePanel:TPanel;DispRect : TRect; B