|
Code ist still under construction !
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
lmdctrl, lmdextcS, lmdshapA, ScktComp, StdCtrls, ExtCtrls, lmdcctrl,
OleCtrls, chartfx3, Buttons, lmdcompo, lmdclass, ToolWin, ComCtrls,
lmdextcA, lmdstdcS, lmdeditb, lmdeditc, LMDEditM;
type
TForm1 = class(TForm)
LMDFill1: TLMDFill;
LMDShapeControl1: TLMDShapeControl;
LMDShapeControl2: TLMDShapeControl;
LMDShapeControl3: TLMDShapeControl;
LMDFill2: TLMDFill;
Button1: TButton;
LMDFill3: TLMDFill;
LMDFill4: TLMDFill;
LMDFill5: TLMDFill;
LMDShapeControl5: TLMDShapeControl;
LMDShapeControl6: TLMDShapeControl;
LMDShapeControl4: TLMDShapeControl;
LMDFill6: TLMDFill;
LMDShapeControl7: TLMDShapeControl;
LMDFill8: TLMDFill;
LMDShapeControl9: TLMDShapeControl;
LMDFill10: TLMDFill;
Label2: TLabel;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Timer1: TTimer;
ClientSocket1: TClientSocket;
Label7: TLabel;
Label8: TLabel;
LMDFill7: TLMDFill;
LMDStatusBar1: TLMDStatusBar;
ToolBar1: TToolBar;
SpeedButton1: TSpeedButton;
LMDTechnicalLine1: TLMDTechnicalLine;
Label1: TLabel;
Label5: TLabel;
LMDMaskEdit1: TLMDMaskEdit;
Label9: TLabel;
Label10: TLabel;
LMDMaskEdit2: TLMDMaskEdit;
Label11: TLabel;
Label12: TLabel;
LMDMaskEdit3: TLMDMaskEdit;
Label13: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
SpeedButton2: TSpeedButton;
Label14: TLabel;
Label15: TLabel;
LMDMaskEdit5: TLMDMaskEdit;
Label16: TLabel;
Label17: TLabel;
Button6: TButton;
Button7: TButton;
Label18: TLabel;
LMDMaskEdit6: TLMDMaskEdit;
Label19: TLabel;
Button8: TButton;
LMDMaskEdit4: TLMDMaskEdit;
Label20: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure statuschange(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure Timer1Timer(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
vopen: boolean ;
m1on: boolean ;
i: integer ;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.statuschange(Sender: TObject);
begin
if m1on = false then
begin
lmdshapecontrol7.brush.Color := clwhite ;
lmdfill8.FillObject.Gradient.Color := clblack ;
lmdfill8.FillObject.Gradient.endColor := clblack ;
lmdfill4.FillObject.Gradient.Color := clblack ;
lmdfill4.FillObject.Gradient.endColor := clblack ;
lmdfill10.FillObject.Gradient.Color := clblack ;
lmdfill10.FillObject.Gradient.endColor := clblack ;
lmdfill2.FillObject.Gradient.Color := clblack ;
lmdfill2.FillObject.Gradient.endColor := clblack ;
lmdfill3.FillObject.Gradient.Color := clblack ;
lmdfill3.FillObject.Gradient.endColor := clblack ;
lmdfill5.FillObject.Gradient.Color := clblack ;
lmdfill5.FillObject.Gradient.endColor := clblack ;
button1.enabled := false ;
end
else
begin
button1.enabled := true ;
lmdshapecontrol7.brush.Color := cllime ;
lmdfill8.FillObject.Gradient.Color := $00FF8000 ; //clblue ;
lmdfill8.FillObject.Gradient.endColor := $00FF8000 ;
lmdfill4.FillObject.Gradient.Color := $00FF8000 ;
lmdfill4.FillObject.Gradient.endColor := $00FF8000 ;
lmdfill5.FillObject.Gradient.Color := $00FF8000 ;
lmdfill5.FillObject.Gradient.endColor := $00FF8000 ;
lmdfill10.FillObject.Gradient.Color := $00FF8000 ;
lmdfill10.FillObject.Gradient.endColor := $00FF8000 ;
end ;
if (vopen = true) and ( m1on=true) then
begin
lmdshapecontrol1.Brush.Color := clbtnface ;
lmdshapecontrol2.brush.Color := cllime ;
lmdshapecontrol3.brush.Color := cllime ;
lmdfill10.FillObject.Gradient.Color := clblack ;
lmdfill10.FillObject.Gradient.endColor := clblack ;
lmdfill2.FillObject.Gradient.Color := $00FF8000 ; // hell blau
lmdfill2.FillObject.Gradient.endColor := $00FF8000 ; // hell blau
lmdfill3.FillObject.Gradient.Color := $000000A6 ;
lmdfill3.FillObject.Gradient.endColor := $000000A6 ;
lmdfill5.FillObject.Gradient.Color := $000000A6 ;
lmdfill5.FillObject.Gradient.endColor := $000000A6 ;
end ;
if (vopen=false) and (m1on=true) then
begin
lmdshapecontrol1.Brush.Color := cllime ;
lmdshapecontrol2.brush.Color := clbtnface;
lmdshapecontrol3.brush.Color := cllime;
lmdfill10.FillObject.Gradient.Color := $00FF8000 ; // hell blau
lmdfill10.FillObject.Gradient.endColor := $00FF8000 ; // hell blau
lmdfill2.FillObject.Gradient.Color := clblack ;
lmdfill2.FillObject.Gradient.endColor := clblack ;
lmdfill3.FillObject.Gradient.Color := clblack ;
lmdfill3.FillObject.Gradient.endColor := clblack ;
lmdfill5.FillObject.Gradient.Color := $00FF8000 ; // hell blau
lmdfill5.FillObject.Gradient.endColor := $00FF8000 ; // hell blau
end ;
end ;
procedure TForm1.FormCreate(Sender: TObject);
begin
lmdshapecontrol1.brush.Color := cllime;
lmdshapecontrol2.brush.Color := clbtnface;
lmdshapecontrol3.brush.Color := cllime;
vopen := false ;
m1on := false ;
i := 1 ;
label3.Caption := '' ;
label4.Caption := '' ;
label6.Caption := '' ;
label7.Caption := '' ;
label8.Caption := '' ;
statuschange(sender) ;
Lmdmaskedit1.enabled := false ;
Lmdmaskedit2.enabled := false ;
Lmdmaskedit3.enabled := false ;
Button3.enabled := false ;
Button4.enabled := false ;
Button5.enabled := false ;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if vopen=false then
begin
vopen := true ;
statuschange(sender) ;
end
else
begin
vopen := false ;
statuschange(sender) ;
end ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if m1on = false then
begin
m1on := true ;
statuschange(sender) ;
end
else
begin
m1on := false ;
statuschange(sender) ;
end ;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
lmdstatusbar1.simpletext := 'connected' ;
timer1.enabled := true ;
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
lmdstatusbar1.simpletext := 'disconnected' ;
timer1.enabled := false ;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
clientsocket1.Socket.SendText(inttostr(i));
inc(i) ;
if (i>3) then i := 1 ;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
data: string ;
begin
data := clientsocket1.Socket.ReceiveText ;
if pos('t1',data) > 0 then
label6.Caption := copy(data,pos('t1',data),9) ;
if pos('t2',data) > 0 then
label7.Caption := copy(data,pos('t2',data),9) ;
if pos('t3',data) > 0 then
label8.Caption := 'Zeit:' + copy(data,pos('t3',data)+2,6) ;
label3.caption := 'T1: ' + copy(label7.caption,pos('=',label7.caption)+1,6) + '°C' ;
label4.caption := 'T1: ' + copy(label6.caption,pos('=',label6.caption)+1,6) + '°C' ;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
timer1.enabled := false ;
clientsocket1.Close ;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form2.show ;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Lmdmaskedit1.enabled := true ;
Lmdmaskedit2.enabled := true ;
Lmdmaskedit3.enabled := true ;
Button3.enabled := true ;
Button4.enabled := true ;
Button5.enabled := true ;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
lmdmaskedit1.enabled := false ;
button3.enabled := false ;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
lmdmaskedit2.enabled := false ;
button4.enabled := false ;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
lmdmaskedit3.enabled := false ;
button5.enabled := false ;
end;
end.
|
|
