1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
| unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
SRColBtn, ExtCtrls, ComCtrls, StdCtrls, Buttons, Colorbut, GIFImage,
Grids, RackCtls, OvalBtn, MsgDlg, consts,JPEG, NMUDP, UpdLabel, SRLabel,gpUtils,ShellAPI,
SRGrad, Msg_dlg, dexec;
procedure turnOFFLine;
procedure turnONLine;
procedure turn2menu;
procedure turn2auto;
procedure turn2einrichten;
procedure turn2diag;
procedure turn2hmi;
procedure set_fullscreen;
procedure set_normalscreen;
procedure Handverfahren(Achse:integer);
procedure drawLine(vonX,vonY,nachX,nachY:real;color:TColor);
procedure drawJump(vonX,vonY,nachX,nachY:real;color:TColor);
procedure drawPointer(X,Y:real;color:TColor);
procedure drawSewinghead(U:real);
procedure InitXYMax;
procedure XYMinMax(zeile:string);
procedure zeichne;
procedure musteranzeige;
procedure update_Drawing;
function CtrlDown: Boolean;
function ShiftDown: Boolean;
function AltDown: Boolean;
function XDown: Boolean;
function ODown: Boolean;
procedure Hauptloop;
procedure StatusCheck;
procedure StatusMessage(Statusnumber:integer);
procedure imagestretch(Bitmap:TBitmap);
procedure ResetAllStatusBits;
procedure ReadStatus;
procedure AssignIOs;
procedure DisplayIOs;
procedure DisplayValues;
procedure Check_Wait_for_Parking;
procedure disable_all_buttons;
procedure enable_all_buttons;
type
TForm1 = class(TForm)
PanelAutomatik: TPanel;
StatusBar1: TStatusBar;
HSK1: TColorButton;
HSK2: TColorButton;
HSK3: TColorButton;
HSK4: TColorButton;
HSK5: TColorButton;
HSK6: TColorButton;
HSK7: TColorButton;
VSK6: TColorButton;
VSK5: TColorButton;
VSK4: TColorButton;
VSK3: TColorButton;
VSK2: TColorButton;
VSK1: TColorButton;
PanelHMI: TPanel;
PanelDiagnose: TPanel;
GraphicPanel: TPanel;
GraphicImage: TImage;
Adjust_Groupbox_HMI_Einstellungen: TGroupBox;
Adjust_Vollbild: TCheckBox;
Adjust_RadioGroup_Sprachauswahl: TRadioGroup;
Deutsch: TRadioButton;
English: TRadioButton;
Espanol: TRadioButton;
Francais: TRadioButton;
Italiano: TRadioButton;
SprachPanel1: TPanel;
SprachPanel2: TPanel;
SprachImage2: TImage;
SprachPanel3: TPanel;
SprachImage3: TImage;
SprachPanel4: TPanel;
SprachImage4: TImage;
Nederlands: TRadioButton;
Portugues: TRadioButton;
Turkce: TRadioButton;
SprachPanel5: TPanel;
SprachImage5: TImage;
SprachPanel6: TPanel;
SprachImage6: TImage;
SprachPanel7: TPanel;
Hebrew: TRadioButton;
SprachImage7: TImage;
SprachPanel8: TPanel;
SprachImage8: TImage;
SprachPanel9: TPanel;
SprachImage9: TImage;
PanelF2: TPanel;
PanelF3: TPanel;
PanelF4: TPanel;
PanelF5: TPanel;
PanelF6: TPanel;
PanelF7: TPanel;
PanelF8: TPanel;
PanelF9: TPanel;
PanelF10: TPanel; |
Gausi
