OniTrainer/current/Unit3.pas

UNIT Unit3;
INTERFACE
USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StrUtils, Menus, ExtCtrls, StdCtrls,Unit2,Unit8, Math, Buttons;

TYPE
  TCharForm = Class(TForm)
    timer_actualize: TTimer;
    memo: TMemo;
    timer_freeze: TTimer;
    Timer1: TTimer;
    PROCEDURE timer_freezeTimer(Sender: TObject);
    PROCEDURE timer_actualizeTimer(Sender: TObject);
    PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    PROCEDURE EditClick(Sender: TObject);
    PROCEDURE OpenCloseClick(Sender: TObject);
  PRIVATE
  PUBLIC
  END;

FUNCTION GetItemNumber(name:String):Byte;

VAR
  CharForm: TCharForm;
  _charformsinitialized:Boolean;
  CharData: Array[0..ais_controlled] OF TStructures;
  CharGroups: Array[0..ais_controlled] OF Array[1..number_char_groups] OF TGroup;

IMPLEMENTATION
USES Unit1, Unit7;
{$R *.dfm}

FUNCTION GetItemNumber(name:String):Byte;
  VAR i:Byte;
  BEGIN
    result:=0;
  END;

PROCEDURE TCharForm.EditClick(Sender: TObject);
  VAR bytes,charnumber,itemnumber:Byte;
    tempint:Integer;
    tempfloat:Single;
    address:LongWord;
  BEGIN
    charnumber:=StrToInt(MidStr(TComponent(Sender).GetParentComponent.GetParentComponent.Name, 5, 10));
    IF NOT _connected THEN exit;
    IF _ais_active[charnumber] THEN BEGIN
      itemnumber:=StrToInt(MidStr(TComponent(Sender).Name, 5, 10));
      IF CharData[charnumber].Items[itemnumber].updating THEN exit;
      WITH CharData[charnumber] DO BEGIN
        IF Items[itemnumber].struct=0 THEN address:=Items[itemnumber].offset
        ELSE address:=Structs[Items[itemnumber].struct]+Items[itemnumber].offset;
        WITH Items[itemnumber] DO BEGIN
          CASE data_type OF
            1..4:BEGIN
                  bytes:=data_type;
                  IF TryStrToInt(TEdit(Sender).Text,tempint) THEN BEGIN
                    IF range>0 THEN BEGIN
                      IF tempint>range THEN tempint:=Floor(range);
                      IF tempint<0 THEN tempint:=0;
                      TEdit(Sender).Text:=IntToStr(tempint);
                      WriteMem(address,bytes,Encode_Int(tempint));
                    END ELSE BEGIN
                      IF tempint>=Floor(Power(256,bytes)) THEN tempint:=Floor(Power(256,bytes))-1;
                      IF tempint<0 THEN tempint:=0;
                      TEdit(Sender).Text:=IntToStr(tempint);
                      WriteMem(address,bytes,Encode_Int(tempint));
                    END;
                  END;
                END;
            5:  BEGIN
                  bytes:=4;
                  IF TryStrToFloat(TEdit(Sender).Text,tempfloat) THEN BEGIN
                    IF Pos('[0-360]',CharData[charnumber].Items[itemnumber].name)>0 THEN BEGIN
                      tempfloat:=tempfloat*pi/180;
                    END;
                    IF range>0 THEN BEGIN
                      IF tempfloat>range THEN BEGIN
                        tempfloat:=range;
                        IF Pos('[0-360]',CharData[charnumber].Items[itemnumber].name)>0 THEN BEGIN
                          TEdit(Sender).Text:=FloatToStr(tempfloat*180/pi);
                        END ELSE BEGIN
                          TEdit(Sender).Text:=FloatToStr(tempfloat);
                        END;
                      END;
                      IF tempfloat<0 THEN BEGIN
                        tempfloat:=0;
                        IF Pos('[0-360]',CharData[charnumber].Items[itemnumber].name)>0 THEN BEGIN
                          TEdit(Sender).Text:=FloatToStr(tempfloat*180/pi);
                        END ELSE BEGIN
                          TEdit(Sender).Text:=FloatToStr(tempfloat);
                        END;
                      END;
                      WriteMem(address,bytes,Encode_Float(tempfloat));
                    END ELSE BEGIN
                      WriteMem(address,bytes,Encode_Float(tempfloat));
                    END;
                  END;
                END;
            6:  BEGIN
                  bytes:=Floor(range);
                  WriteMem(address,bytes,Encode_Str(TEdit(Sender).Text,bytes));
                END;
          END;
        END;
      END;
    END;
  END;

PROCEDURE TCharForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  VAR charnumber:Byte;
  BEGIN
    Self.Visible:=False;
    charnumber:=StrToInt(MidStr(Self.Name, 5, 10));
    CharMenus[charnumber].Checked:=False;
    CanClose:=False;
  END;

FUNCTION Check_Addresses_Changed(charnumber:Byte):Boolean;
  VAR struct3_id:byte;
  BEGIN
    result:=False;
    _temp:=ReadMem(PointerStruct1PointerArray1,4);
    _ais_active[charnumber]:=True;
    IF NOT (_temp[250]=123) THEN BEGIN
      _tempvalue:=Decode_Int(_temp);
      _temp:=ReadMem(_tempvalue+4*charnumber,4);
      IF NOT (_temp[250]=123) THEN BEGIN
        _tempvalue:=Decode_Int(_temp);
        IF NOT (_tempvalue=CharData[charnumber].Structs[1]) THEN BEGIN
          CharForms[charnumber].memo.lines.Strings[0]:='Struct1-Addy ('+IntToStr(_temp[250])+'): 0x'+IntToHex(_tempvalue,8);
          CharData[charnumber].Structs[1]:=_tempvalue;
          result:=True;
        END;
      END ELSE BEGIN
        _ais_active[charnumber]:=False;
      END;

      struct3_id:=charnumber;//Decode_Int(ReadMem(CharData[charnumber].Structs[1]+$000,1));

      _tempvalue:=Decode_Int(ReadMem(PointerStruct3,4));
      _tempvalue:=_tempvalue+(struct3_id*$2838);
      CharForms[charnumber].memo.Lines.Strings[2]:='Struct3-Addy: 0x'+IntToHex(_tempvalue,8);
      CharData[charnumber].Structs[3]:=_tempvalue;
      
      _temp:=ReadMem(CharData[charnumber].Structs[3]+4,4);
      IF NOT (_temp[250]=123) THEN BEGIN
        _tempvalue:=Decode_Int(_temp);
        IF NOT (_tempvalue=CharData[charnumber].Structs[2]) THEN BEGIN
          CharForms[charnumber].memo.lines.Strings[1]:='Struct2-Addy ('+IntToStr(_temp[250])+'): 0x'+IntToHex(_tempvalue,8);
          CharData[charnumber].Structs[2]:=_tempvalue;
          result:=True;
        END;
      END;
    END ELSE BEGIN
      _ais_active[charnumber]:=False;
    END;
    IF Decode_Str(ReadMem(CharData[charnumber].Structs[1]+$14,100))='' THEN _ais_active[charnumber]:=False;
    IF charnumber>0 THEN Check_CharInOverview(charnumber);
  END;

PROCEDURE TCharForm.OpenCloseClick(Sender: TObject);
  VAR number,i,charnumber:Byte;
    _top:Word;
  BEGIN
    number:=StrToInt(MidStr(TSpeedButton(Sender).Name, 10, 10));
    charnumber:=StrToInt(MidStr(Self.Name,5,10));
    IF CharGroups[charnumber][number].OpenClose.Down THEN BEGIN
      CharGroups[charnumber][number].Item.Height:=20;
      FOR i:=1 TO number_items DO BEGIN
        WITH CharData[charnumber].Items[i] DO BEGIN
          IF group=number THEN BEGIN
            Item_Freeze.Visible:=False;
            Item_Edit.Visible:=False;
            break;
          END;
        END;
      END;
      _top:=1;
      FOR i:=1 TO number_char_groups DO BEGIN
        WITH CharGroups[charnumber][i] DO BEGIN
          Item.Top:=_top;
          _top:=_top+Item.Height;
        END;
      END;
      CharForms[charnumber].memo.Top:=_top+4;
      CharForms[charnumber].Height:=_top+CharForms[charnumber].memo.Height+30;
    END ELSE BEGIN
      CharGroups[charnumber][number].Item.Height:=CharGroups[charnumber][number].Count*19+20;
      FOR i:=1 TO number_items DO BEGIN
        WITH CharData[charnumber].Items[i] DO BEGIN
          IF group=number THEN BEGIN
            Item_Freeze.Visible:=True;
            Item_Edit.Visible:=True;
            break;
          END;
        END;
      END;
      _top:=1;
      FOR i:=1 TO number_char_groups DO BEGIN
        WITH CharGroups[charnumber][i] DO BEGIN
          Item.Top:=_top;
          _top:=_top+Item.Height;
        END;
      END;
      CharForms[charnumber].memo.Top:=_top+4;
      CharForms[charnumber].Height:=_top+CharForms[charnumber].memo.Height+30;
    END;
  END;

FUNCTION Get_Data_Struct(charnumber:Byte):Boolean;
  VAR i:Byte;
    bytes:Byte;
    address:LongWord;
    floatval:Single;
    charoverviewcol:Byte;
  BEGIN
    IF charnumber=0 THEN charoverviewcol:=1
    ELSE charoverviewcol:=GetCharOverviewCol(charnumber);
    WITH CharData[charnumber] DO BEGIN
      FOR i:=1 TO number_items DO BEGIN
        CASE Items[i].data_type OF
          1: bytes:=1;
          2: bytes:=2;
          3: bytes:=3;
          4: bytes:=4;
          5: bytes:=4;
          6: bytes:=100;
        END;
        IF Items[i].Struct=0 THEN address:=Items[i].offset
        ELSE address:=Structs[Items[i].struct]+Items[i].offset;
        _temp:=ReadMem(address,bytes);
        CASE Items[i].data_type OF
          1..4: BEGIN
                IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
                  Items[i].updating:=True;
                  Items[i].Item_Edit.Text:=IntToStr(Decode_Int(_temp));
                  Items[i].updating:=False;
                END;
                Form7.grid.Cells[charoverviewcol,i]:=IntToStr(Decode_Int(_temp));
              END;
          5:  IF Pos('[0-360]',Items[i].hint)=0 THEN BEGIN
                IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
                  Items[i].updating:=True;
                  Items[i].Item_Edit.Text:=FloatToStr(Decode_Float(_temp));
                  Items[i].updating:=False;
                END;
                Form7.grid.Cells[charoverviewcol,i]:=FloatToStr(Decode_Float(_temp));
              END ELSE BEGIN
                floatval:=Decode_Float(_temp);
                IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
                  Items[i].updating:=True;
                  Items[i].Item_Edit.Text:=FloatToStr((floatval/pi)*180);
                  Items[i].updating:=False;
                END;
                Form7.grid.Cells[charoverviewcol,i]:=FloatToStr((floatval/pi)*180);
              END;
          6:  BEGIN
                IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
                  Items[i].updating:=True;
                  Items[i].Item_Edit.Text:=Decode_Str(_temp);
                  Items[i].updating:=False;
                END;
                Form7.grid.Cells[charoverviewcol,i]:=Decode_Str(_temp);
              END;
        END;
      END;
    END;
  END;

PROCEDURE TCharForm.timer_actualizeTimer(Sender: TObject);
  VAR charnumber,i:Byte;
  BEGIN
    IF _connected THEN BEGIN
      charnumber:=StrToInt(MidStr(Self.Name, 5, 10));

      Check_Addresses_Changed(charnumber);
      IF _ais_active[charnumber] THEN Get_Data_Struct(charnumber);
    END;
  END;

PROCEDURE TCharForm.timer_freezeTimer(Sender: TObject);
  VAR charnumber,i,bytes:Byte;
    tempint:Integer;
    tempfloat:Single;
    address:LongWord;
    charstring:string;
    _component:TComponent;
    framename:String;
  BEGIN
    charnumber:=StrToInt(MidStr(Self.Name, 5, 10));
    IF NOT _ais_active[charnumber] THEN exit;
    IF NOT _connected THEN exit;
    WITH CharData[charnumber] DO BEGIN
      FOR i:=1 TO number_items DO BEGIN
        IF Items[i].Item_Freeze.Checked THEN BEGIN
          IF Items[i].struct=0 THEN address:=Items[i].offset
          ELSE address:=Structs[Items[i].struct]+Items[i].offset;
          WITH Items[i] DO BEGIN
            CASE data_type OF
              1..4:BEGIN
                    bytes:=data_type;
                    IF TryStrToInt(Item_Edit.Text,tempint) THEN BEGIN
                      IF range>0 THEN BEGIN
                        IF tempint>range THEN tempint:=Floor(range);
                        IF tempint<0 THEN tempint:=0;
                        Item_Edit.Text:=IntToStr(tempint);
                        WriteMem(address,bytes,Encode_Int(tempint));
                      END ELSE BEGIN
                        WriteMem(address,bytes,Encode_Int(tempint));
                      END;
                    END;
                  END;
              5:  BEGIN
                    bytes:=4;
                    IF TryStrToFloat(Item_Edit.Text,tempfloat) THEN BEGIN
                      IF Pos('[0-360]',CharData[charnumber].Items[i].name)>0 THEN BEGIN
                        tempfloat:=tempfloat*pi/180;
                      END;
                      IF range>0 THEN BEGIN
                        IF tempfloat>range THEN BEGIN
                          tempfloat:=range;
                          IF Pos('[0-360]',CharData[charnumber].Items[i].name)>0 THEN BEGIN
                            Item_Edit.Text:=FloatToStr(tempfloat*180/pi);
                          END ELSE BEGIN
                            Item_Edit.Text:=FloatToStr(tempfloat);
                          END;
                        END;
                        IF tempfloat<0 THEN BEGIN
                          tempfloat:=0;
                          IF Pos('[0-360]',CharData[charnumber].Items[i].name)>0 THEN BEGIN
                            Item_Edit.Text:=FloatToStr(tempfloat*180/pi);
                          END ELSE BEGIN
                            Item_Edit.Text:=FloatToStr(tempfloat);
                          END;
                        END;
                        WriteMem(address,bytes,Encode_Float(tempfloat));
                      END ELSE BEGIN
                        WriteMem(address,bytes,Encode_Float(tempfloat));
                      END;
                    END;
                  END;
              6:  BEGIN
                    bytes:=Floor(range);
                    WriteMem(address,bytes,Encode_Str(Item_Edit.Text,bytes));
                  END;
            END;
          END;
        END;
      END;
    END;
  END;

END.
Revision:	251
Committed:	Thu Dec 6 22:29:52 2007 UTC (17 years, 10 months ago) by alloc
Content type:	text/x-pascal
File size:	13949 byte(s)
Log Message:
#	Content
1	UNIT Unit3;
2	INTERFACE
3	USES
4	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	Dialogs, StrUtils, Menus, ExtCtrls, StdCtrls,Unit2,Unit8, Math, Buttons;
6
7	TYPE
8	TCharForm = Class(TForm)
9	timer_actualize: TTimer;
10	memo: TMemo;
11	timer_freeze: TTimer;
12	Timer1: TTimer;
13	PROCEDURE timer_freezeTimer(Sender: TObject);
14	PROCEDURE timer_actualizeTimer(Sender: TObject);
15	PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
16	PROCEDURE EditClick(Sender: TObject);
17	PROCEDURE OpenCloseClick(Sender: TObject);
18	PRIVATE
19	PUBLIC
20	END;
21
22	FUNCTION GetItemNumber(name:String):Byte;
23
24	VAR
25	CharForm: TCharForm;
26	_charformsinitialized:Boolean;
27	CharData: Array[0..ais_controlled] OF TStructures;
28	CharGroups: Array[0..ais_controlled] OF Array[1..number_char_groups] OF TGroup;
29
30	IMPLEMENTATION
31	USES Unit1, Unit7;
32	{$R *.dfm}
33
34	FUNCTION GetItemNumber(name:String):Byte;
35	VAR i:Byte;
36	BEGIN
37	result:=0;
38	END;
39
40	PROCEDURE TCharForm.EditClick(Sender: TObject);
41	VAR bytes,charnumber,itemnumber:Byte;
42	tempint:Integer;
43	tempfloat:Single;
44	address:LongWord;
45	BEGIN
46	charnumber:=StrToInt(MidStr(TComponent(Sender).GetParentComponent.GetParentComponent.Name, 5, 10));
47	IF NOT _connected THEN exit;
48	IF _ais_active[charnumber] THEN BEGIN
49	itemnumber:=StrToInt(MidStr(TComponent(Sender).Name, 5, 10));
50	IF CharData[charnumber].Items[itemnumber].updating THEN exit;
51	WITH CharData[charnumber] DO BEGIN
52	IF Items[itemnumber].struct=0 THEN address:=Items[itemnumber].offset
53	ELSE address:=Structs[Items[itemnumber].struct]+Items[itemnumber].offset;
54	WITH Items[itemnumber] DO BEGIN
55	CASE data_type OF
56	1..4:BEGIN
57	bytes:=data_type;
58	IF TryStrToInt(TEdit(Sender).Text,tempint) THEN BEGIN
59	IF range>0 THEN BEGIN
60	IF tempint>range THEN tempint:=Floor(range);
61	IF tempint<0 THEN tempint:=0;
62	TEdit(Sender).Text:=IntToStr(tempint);
63	WriteMem(address,bytes,Encode_Int(tempint));
64	END ELSE BEGIN
65	IF tempint>=Floor(Power(256,bytes)) THEN tempint:=Floor(Power(256,bytes))-1;
66	IF tempint<0 THEN tempint:=0;
67	TEdit(Sender).Text:=IntToStr(tempint);
68	WriteMem(address,bytes,Encode_Int(tempint));
69	END;
70	END;
71	END;
72	5: BEGIN
73	bytes:=4;
74	IF TryStrToFloat(TEdit(Sender).Text,tempfloat) THEN BEGIN
75	IF Pos('[0-360]',CharData[charnumber].Items[itemnumber].name)>0 THEN BEGIN
76	tempfloat:=tempfloat*pi/180;
77	END;
78	IF range>0 THEN BEGIN
79	IF tempfloat>range THEN BEGIN
80	tempfloat:=range;
81	IF Pos('[0-360]',CharData[charnumber].Items[itemnumber].name)>0 THEN BEGIN
82	TEdit(Sender).Text:=FloatToStr(tempfloat*180/pi);
83	END ELSE BEGIN
84	TEdit(Sender).Text:=FloatToStr(tempfloat);
85	END;
86	END;
87	IF tempfloat<0 THEN BEGIN
88	tempfloat:=0;
89	IF Pos('[0-360]',CharData[charnumber].Items[itemnumber].name)>0 THEN BEGIN
90	TEdit(Sender).Text:=FloatToStr(tempfloat*180/pi);
91	END ELSE BEGIN
92	TEdit(Sender).Text:=FloatToStr(tempfloat);
93	END;
94	END;
95	WriteMem(address,bytes,Encode_Float(tempfloat));
96	END ELSE BEGIN
97	WriteMem(address,bytes,Encode_Float(tempfloat));
98	END;
99	END;
100	END;
101	6: BEGIN
102	bytes:=Floor(range);
103	WriteMem(address,bytes,Encode_Str(TEdit(Sender).Text,bytes));
104	END;
105	END;
106	END;
107	END;
108	END;
109	END;
110
111	PROCEDURE TCharForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
112	VAR charnumber:Byte;
113	BEGIN
114	Self.Visible:=False;
115	charnumber:=StrToInt(MidStr(Self.Name, 5, 10));
116	CharMenus[charnumber].Checked:=False;
117	CanClose:=False;
118	END;
119
120	FUNCTION Check_Addresses_Changed(charnumber:Byte):Boolean;
121	VAR struct3_id:byte;
122	BEGIN
123	result:=False;
124	_temp:=ReadMem(PointerStruct1PointerArray1,4);
125	_ais_active[charnumber]:=True;
126	IF NOT (_temp[250]=123) THEN BEGIN
127	_tempvalue:=Decode_Int(_temp);
128	_temp:=ReadMem(_tempvalue+4*charnumber,4);
129	IF NOT (_temp[250]=123) THEN BEGIN
130	_tempvalue:=Decode_Int(_temp);
131	IF NOT (_tempvalue=CharData[charnumber].Structs[1]) THEN BEGIN
132	CharForms[charnumber].memo.lines.Strings[0]:='Struct1-Addy ('+IntToStr(_temp[250])+'): 0x'+IntToHex(_tempvalue,8);
133	CharData[charnumber].Structs[1]:=_tempvalue;
134	result:=True;
135	END;
136	END ELSE BEGIN
137	_ais_active[charnumber]:=False;
138	END;
139
140	struct3_id:=charnumber;//Decode_Int(ReadMem(CharData[charnumber].Structs[1]+$000,1));
141
142	_tempvalue:=Decode_Int(ReadMem(PointerStruct3,4));
143	_tempvalue:=_tempvalue+(struct3_id*$2838);
144	CharForms[charnumber].memo.Lines.Strings[2]:='Struct3-Addy: 0x'+IntToHex(_tempvalue,8);
145	CharData[charnumber].Structs[3]:=_tempvalue;
146
147	_temp:=ReadMem(CharData[charnumber].Structs[3]+4,4);
148	IF NOT (_temp[250]=123) THEN BEGIN
149	_tempvalue:=Decode_Int(_temp);
150	IF NOT (_tempvalue=CharData[charnumber].Structs[2]) THEN BEGIN
151	CharForms[charnumber].memo.lines.Strings[1]:='Struct2-Addy ('+IntToStr(_temp[250])+'): 0x'+IntToHex(_tempvalue,8);
152	CharData[charnumber].Structs[2]:=_tempvalue;
153	result:=True;
154	END;
155	END;
156	END ELSE BEGIN
157	_ais_active[charnumber]:=False;
158	END;
159	IF Decode_Str(ReadMem(CharData[charnumber].Structs[1]+$14,100))='' THEN _ais_active[charnumber]:=False;
160	IF charnumber>0 THEN Check_CharInOverview(charnumber);
161	END;
162
163	PROCEDURE TCharForm.OpenCloseClick(Sender: TObject);
164	VAR number,i,charnumber:Byte;
165	_top:Word;
166	BEGIN
167	number:=StrToInt(MidStr(TSpeedButton(Sender).Name, 10, 10));
168	charnumber:=StrToInt(MidStr(Self.Name,5,10));
169	IF CharGroups[charnumber][number].OpenClose.Down THEN BEGIN
170	CharGroups[charnumber][number].Item.Height:=20;
171	FOR i:=1 TO number_items DO BEGIN
172	WITH CharData[charnumber].Items[i] DO BEGIN
173	IF group=number THEN BEGIN
174	Item_Freeze.Visible:=False;
175	Item_Edit.Visible:=False;
176	break;
177	END;
178	END;
179	END;
180	_top:=1;
181	FOR i:=1 TO number_char_groups DO BEGIN
182	WITH CharGroups[charnumber][i] DO BEGIN
183	Item.Top:=_top;
184	_top:=_top+Item.Height;
185	END;
186	END;
187	CharForms[charnumber].memo.Top:=_top+4;
188	CharForms[charnumber].Height:=_top+CharForms[charnumber].memo.Height+30;
189	END ELSE BEGIN
190	CharGroups[charnumber][number].Item.Height:=CharGroups[charnumber][number].Count*19+20;
191	FOR i:=1 TO number_items DO BEGIN
192	WITH CharData[charnumber].Items[i] DO BEGIN
193	IF group=number THEN BEGIN
194	Item_Freeze.Visible:=True;
195	Item_Edit.Visible:=True;
196	break;
197	END;
198	END;
199	END;
200	_top:=1;
201	FOR i:=1 TO number_char_groups DO BEGIN
202	WITH CharGroups[charnumber][i] DO BEGIN
203	Item.Top:=_top;
204	_top:=_top+Item.Height;
205	END;
206	END;
207	CharForms[charnumber].memo.Top:=_top+4;
208	CharForms[charnumber].Height:=_top+CharForms[charnumber].memo.Height+30;
209	END;
210	END;
211
212	FUNCTION Get_Data_Struct(charnumber:Byte):Boolean;
213	VAR i:Byte;
214	bytes:Byte;
215	address:LongWord;
216	floatval:Single;
217	charoverviewcol:Byte;
218	BEGIN
219	IF charnumber=0 THEN charoverviewcol:=1
220	ELSE charoverviewcol:=GetCharOverviewCol(charnumber);
221	WITH CharData[charnumber] DO BEGIN
222	FOR i:=1 TO number_items DO BEGIN
223	CASE Items[i].data_type OF
224	1: bytes:=1;
225	2: bytes:=2;
226	3: bytes:=3;
227	4: bytes:=4;
228	5: bytes:=4;
229	6: bytes:=100;
230	END;
231	IF Items[i].Struct=0 THEN address:=Items[i].offset
232	ELSE address:=Structs[Items[i].struct]+Items[i].offset;
233	_temp:=ReadMem(address,bytes);
234	CASE Items[i].data_type OF
235	1..4: BEGIN
236	IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
237	Items[i].updating:=True;
238	Items[i].Item_Edit.Text:=IntToStr(Decode_Int(_temp));
239	Items[i].updating:=False;
240	END;
241	Form7.grid.Cells[charoverviewcol,i]:=IntToStr(Decode_Int(_temp));
242	END;
243	5: IF Pos('[0-360]',Items[i].hint)=0 THEN BEGIN
244	IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
245	Items[i].updating:=True;
246	Items[i].Item_Edit.Text:=FloatToStr(Decode_Float(_temp));
247	Items[i].updating:=False;
248	END;
249	Form7.grid.Cells[charoverviewcol,i]:=FloatToStr(Decode_Float(_temp));
250	END ELSE BEGIN
251	floatval:=Decode_Float(_temp);
252	IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
253	Items[i].updating:=True;
254	Items[i].Item_Edit.Text:=FloatToStr((floatval/pi)*180);
255	Items[i].updating:=False;
256	END;
257	Form7.grid.Cells[charoverviewcol,i]:=FloatToStr((floatval/pi)*180);
258	END;
259	6: BEGIN
260	IF (NOT Items[i].Item_Edit.Focused) AND (NOT Items[i].Item_Freeze.Checked) THEN BEGIN
261	Items[i].updating:=True;
262	Items[i].Item_Edit.Text:=Decode_Str(_temp);
263	Items[i].updating:=False;
264	END;
265	Form7.grid.Cells[charoverviewcol,i]:=Decode_Str(_temp);
266	END;
267	END;
268	END;
269	END;
270	END;
271
272	PROCEDURE TCharForm.timer_actualizeTimer(Sender: TObject);
273	VAR charnumber,i:Byte;
274	BEGIN
275	IF _connected THEN BEGIN
276	charnumber:=StrToInt(MidStr(Self.Name, 5, 10));
277
278	Check_Addresses_Changed(charnumber);
279	IF _ais_active[charnumber] THEN Get_Data_Struct(charnumber);
280	END;
281	END;
282
283	PROCEDURE TCharForm.timer_freezeTimer(Sender: TObject);
284	VAR charnumber,i,bytes:Byte;
285	tempint:Integer;
286	tempfloat:Single;
287	address:LongWord;
288	charstring:string;
289	_component:TComponent;
290	framename:String;
291	BEGIN
292	charnumber:=StrToInt(MidStr(Self.Name, 5, 10));
293	IF NOT _ais_active[charnumber] THEN exit;
294	IF NOT _connected THEN exit;
295	WITH CharData[charnumber] DO BEGIN
296	FOR i:=1 TO number_items DO BEGIN
297	IF Items[i].Item_Freeze.Checked THEN BEGIN
298	IF Items[i].struct=0 THEN address:=Items[i].offset
299	ELSE address:=Structs[Items[i].struct]+Items[i].offset;
300	WITH Items[i] DO BEGIN
301	CASE data_type OF
302	1..4:BEGIN
303	bytes:=data_type;
304	IF TryStrToInt(Item_Edit.Text,tempint) THEN BEGIN
305	IF range>0 THEN BEGIN
306	IF tempint>range THEN tempint:=Floor(range);
307	IF tempint<0 THEN tempint:=0;
308	Item_Edit.Text:=IntToStr(tempint);
309	WriteMem(address,bytes,Encode_Int(tempint));
310	END ELSE BEGIN
311	WriteMem(address,bytes,Encode_Int(tempint));
312	END;
313	END;
314	END;
315	5: BEGIN
316	bytes:=4;
317	IF TryStrToFloat(Item_Edit.Text,tempfloat) THEN BEGIN
318	IF Pos('[0-360]',CharData[charnumber].Items[i].name)>0 THEN BEGIN
319	tempfloat:=tempfloat*pi/180;
320	END;
321	IF range>0 THEN BEGIN
322	IF tempfloat>range THEN BEGIN
323	tempfloat:=range;
324	IF Pos('[0-360]',CharData[charnumber].Items[i].name)>0 THEN BEGIN
325	Item_Edit.Text:=FloatToStr(tempfloat*180/pi);
326	END ELSE BEGIN
327	Item_Edit.Text:=FloatToStr(tempfloat);
328	END;
329	END;
330	IF tempfloat<0 THEN BEGIN
331	tempfloat:=0;
332	IF Pos('[0-360]',CharData[charnumber].Items[i].name)>0 THEN BEGIN
333	Item_Edit.Text:=FloatToStr(tempfloat*180/pi);
334	END ELSE BEGIN
335	Item_Edit.Text:=FloatToStr(tempfloat);
336	END;
337	END;
338	WriteMem(address,bytes,Encode_Float(tempfloat));
339	END ELSE BEGIN
340	WriteMem(address,bytes,Encode_Float(tempfloat));
341	END;
342	END;
343	END;
344	6: BEGIN
345	bytes:=Floor(range);
346	WriteMem(address,bytes,Encode_Str(Item_Edit.Text,bytes));
347	END;
348	END;
349	END;
350	END;
351	END;
352	END;
353	END;
354
355	END.