-
Notifications
You must be signed in to change notification settings - Fork 3
/
Main.lfm
2705 lines (2705 loc) · 148 KB
/
Main.lfm
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
object MainForm: TMainForm
Left = 464
Height = 800
Top = 165
Width = 1200
ActiveControl = PageControl1
Caption = 'Wachalarm-IP Server'
ClientHeight = 780
ClientWidth = 1200
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Icon.Data = {
BE1000000000010001002020000001002000A810000016000000280000002000
0000400000000100200000000000001000006400000064000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000030000000B00000012000000160000
00160000001600000016000000120000000B0000000300000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000100000007000000170000002C0000003B000000420000
004300000043000000420000003B0000002C0000001700000007000000010000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000070000001E0000003C776654A88F7A64EC947F68FF937E
68FF937E68FF947F68FF8F7A64EC776654A80000003C0000001E000000070000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000113E362D529A856DFFBDAF9BFFE3DCCDFFF4F0E4FFF3F0
E4FFF3F0E4FFF4F0E4FFE2DBCDFFBFB19DFF9A856DFF3E362D52000000110000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000169F8A73FDDBD1C2FFDFD5C2FFD4C7B1FFCEC1A8FFCEC0
A7FFCEC0A7FFCEC1A8FFD4C7B1FFE0D6C5FFDBD1C1FF9F8973FD000000160000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000010000000800000011000000160000
00160000001600000027AA9073FFCBBAA0FFC1AF94FFBFAD91FFBFAC8FFFBFAB
8EFFC0AB8EFFC0AC8FFFC1AD90FFC3B093FFCFBDA4FFAA8F73FF000000260000
001600000016000000140000000E000000050000000100000000000000000000
0000000000040000000D00000015000000190000002600000038000000420000
00430000004300000048BD996FFFBCA07BFFB69C7BFFE1D1B2FFF0E0C4FFF4E0
C1FFF6E0BFFFF8E0C0FFEDD5ACFFC1A175FFC2A278FFBA956AF0000000480000
0043000000430000003F000000310000002000000017000000150000000D0000
00040000000D0000002B0000003F000000440028787A004FDAED0152EBFF0090
F6FF007AF3FF004EEDFF0A4DD0F670779CFFBF9368FFA9A5B3FF436DBFFF004D
E7FF0067F6FF006AFDFF004AF3FF0046DBFF325BBAFF0D51D7FF0056F0FF008F
F7FF0070F6FF0153EFFF0047C6C30016435C000000430000003F0000002B0000
000D000000158A7762C4A38664FF4360A4FF0090FDFF03A7FFFF0496FFFF00E6
FFFF00E6FFFF01A3FFFF00CFFFFF006FEDFF167DCEFF00C6FDFF008DFFFF0074
FFFF00E8FFFF00E8FFFF0096FFFF00B0FFFF00C8FFFF0085FFFF00C6FFFF00E6
FFFF00E7FFFF02ACFFFF00D0FFFF0090F8FF666C8BFFA28666FF8A7762C40000
0015000000169A846CFFE2C094FF0059F2FF00DDFFFF00D7FFFF01C7FFFF00C8
FFFF00C8FFFF00CDFFFF00D5FFFF00CFFFFF00DCFFFF00DBFFFF00DDFFFF03B3
FFFF00CBFFFF00CBFFFF03B0FFFF00CAFFFF00CAFFFF03B4FFFF00CBFFFF00C8
FFFF00C8FFFF00C9FFFF00CBFFFF00BCFFFF0061EDFFDEBB90FF9A856CFF0000
0016000000169A856CFFE5C297FF0064F0FF00B6FFFF00B1FFFF00B1FFFF00B3
FFFF00B3FFFF00B4FFFF00B7FFFF00B7FFFF00C4FFFF00C4FFFF00C5FFFF01BA
FFFF00B4FFFF00B5FFFF05A7FFFF02A1FFFF00A4FFFF0899FFFF00B4FFFF00B3
FFFF00B3FFFF00ACFFFF00A6FFFF00A4FFFF0068F0FFE1BD92FF9A856CFF0000
0016000000169B856CFFE5C49CFF0062E6FF0BA0FFFF0997FEFF0FA0FFFF009F
FFFF009EFFFF08A0FFFF009CFFFF03A2FFFF00B0FFFF00AFFFFF00B0FFFF0BA4
FFFF009FFFFF009EFFFF0D9FFFFF159FFFFF12A1FFFF18A3FFFF08A1FFFF009C
FFFF009EFFFF139CFCFF11A2FFFF13A6FFFF0063E6FFE1C097FF9B866DFF0000
0016000000169A846DFFE4C7A2FF3A73C4FF11AEFFFF0F8AECFF118FF0FF17AE
FFFF17ABFFFF1BAEFFFF1BB0FFFF1CADFFFF04A0FFFF0099FFFF04A0FFFF1BAB
FFFF16A9FFFF13A8FFFF1AADFFFF19ACFEFF1DBBFFFF0F8AE9FF1DB9FFFF19B3
FFFF1AB5FFFF1292EDFF139BF3FF15BDFFFF3A71C4FFE1C39DFF9A856EFF0000
0016000000169A856EFFE2C9A9FF8598B4FF007FE9FF0062D5FF0453C3FF1CBD
FFFF1EC0FFFF15A2F3FF004EC8FF17AAF8FF1EBDFFFF1FBDFFFF1FC0FFFF1CB9
FFFF1DBDFFFF1DBBFFFF1EBFFFFF0567D4FF1EC5FFFF0042BAFF14A3F3FF21CB
FFFF21CBFFFF0E88E4FF0779DFFF069DF5FF8596B4FFDEC5A4FF9A856FFF0000
0016000000169A856FFFDFCBB0FFE3CDA7FF0040AFFF054BB2FF253F77FF12A1
F1FF24D6FFFF0B83E1FF13439BFF0D8CE5FF23D0FFFF24D1FFFF0877DAFF0249
BAFF1FC9FFFF23CDFFFF23D4FFFF0643B0FF005FD7FF324874FF0855BBFF26E2
FFFF27E2FFFF0660C8FF084FB0FF0048B1FFE3CCA7FFDDC7ABFF9A8670FF0000
0016000000169A8670FFE1CFB6FFDAC8A9FF25252BFF303A4DFF433C42FF0271
DBFF29EFFFFF0159C5FF424253FF016ED7FF28E7FFFF21D2FFFF0446B2FF334B
80FF0D93E6FF28E3FFFF1BBDF9FF1E4894FF504D52FF514845FF1E4287FF22D7
FFFF26E5FFFF133D8CFF323748FF26262BFFDAC8A9FFDDCBB1FF9B8671FF0000
0016000000169B8771FFE3D3BCFFD4C4A7FF242427FF393433FF473C32FF014A
B7FF19C0FAFF1D4C97FF665345FF0F4AA7FF1FD1FEFF10A2EAFF2B4C84FF604F
47FF005ACDFF2FFAFFFF0C93E4FF344A74FF564D46FF504843FF39415AFF17BC
F5FF0B95E7FF343849FF393331FF262528FFD5C4A7FFE1CEB7FF9C8771FF0000
0016000000169C8872FFE7D7C1FFD2C0A3FF232228FF353235FF423A35FF0A4F
A9FF0050C4FF4F4E57FF605750FF4C576FFF0064D2FF084EB3FF534C4AFF5B4D
42FF0D46A1FF27EEFFFF0061CEFF504948FF4F4A47FF4C4745FF3B4255FF0488
E4FF124591FF413631FF363334FF242429FFD2C1A3FFE3D4BCFF9D8872FF0000
0016000000169D8973FFEADBC6FFCEBB9EFF212228FF333233FF3D3734FF1B4B
87FF3D485AFF534C48FF575351FF625954FF31588CFF686465FF716A65FF6A61
5CFF2B5088FF0D9FE3FF104999FF4F4540FF4A4646FF474343FF473F3AFF0F4C
99FF3C3A3CFF3C3636FF343135FF222327FFCEBB9EFFE6D7C1FF9E8973FF0000
0016000000169E8A74FFECDFCBFFCBB898FF1F2026FF312F32FF383436FF3F3C
3AFF464241FF4C494AFF514F50FF595554FF605B58FF65615EFF5B6C7AFF2D88
C2FF2086CDFF007DE7FF41698FFF635D5AFF514F4FFF3E3C3DFF3D393AFF3C36
35FF393434FF343334FF2F2D31FF1E1F25FFCAB798FFEADBC7FF9E8A74FF0000
0016000000169F8B75FFF0E3D0FFC7B294FF1D1E24FF2F2D30FF343234FF3937
39FF403E40FF474547FF4D4B4CFF535152FF585657FF3E7192FF009CFFFF009C
FFFF009CFFFF009CFFFF009CFFFF677884FF787676FF7C7A7AFF716F6FFF6967
67FF585658FF4B4A4BFF3C3A3EFF2E2E34FFC4B091FFECDFCBFF9F8B75FF0000
001600000016A08C75FFF3E7D6FFC4AE8FFF1B1B22FF2C2B2EFF313033FF3533
36FF3C3A3CFF424042FF484748FF4E4C4DFF535152FF2380BCFF0C93E9FF4E6B
7EFF686461FF5E6E79FF009CFFFF3B82B1FF716F6FFF737172FF767475FF7A77
78FF7B7879FF797778FF767475FF6B6B6FFFBFA88AFFF0E2D0FFA08C76FF0000
001600000016A18C76FFF5ECDBFFC1AA8AFF18191FFF29282BFF2E2D30FF3130
33FF373538FF3D3C3EFF444244FF494749FF4E4C4EFF535153FF585657FF5C5A
5BFF2D7FB4FF2188CBFF009CFFFF3880AEFF6C6A6AFF6E6C6DFF706E6FFF7472
71FF757374FF737173FF706E6FFF66666BFFBAA483FFF2E6D5FFA18D77FF0000
001600000016A28D77FFF9F0E0FFBDA585FF15161DFF262529FF2B2A2DFF2E2D
30FF323133FF383739FF3E3D3FFF444244FF494749FF49515AFF118DDCFF009C
FFFF009CFFFF009CFFFF347CABFF646364FF676566FF6A6869FF6C6A6BFF6F6D
6EFF716F70FF706E6FFF6D6D6EFF636368FFB69E7EFFF4EBDAFFA28E77FF0000
001600000016A38E78FFFCF3E5FFB9A181FF12131AFF232226FF28272AFF2B29
2DFF2E2C2FFF333235FF39383AFF3F3D3FFF444244FF2C6992FF009CFFFF2C73
A3FF565455FF545C64FF2582BEFF536674FF636162FF656365FF686667FF6B69
6AFF6D6B6CFF6E6C6FFF6B696BFF616166FFB29A7AFFF8EFDFFFA38E78FF0000
001600000016A48F78FFFFF8EAFFB69D7CFF101118FF201F23FF252427FF2726
2AFF2A282CFF2E2D30FF343235FF3A383BFF3F3D40FF2D6082FF009CFFFF1586
D0FF207DB9FF118DDDFF009CFFFF49667CFF5E5C5EFF615F60FF646263FF6765
66FF696769FF6B696BFF69676AFF5F5F64FFAF9575FFFBF3E4FFA48F79FF0000
001600000016A59079FFFFFBEFFFB39877FF0F1018FF1B1B20FF1E1E22FF2221
24FF242326FF262629FF2C2B2FFF323135FF37363AFF3C3B3EFF167DC0FF009C
FFFF009CFFFF009CFFFF2B73A3FF545455FF575758FF5C5A5CFF5D5D5FFF605F
62FF646265FF666667FF666468FF5F6065FFAC9170FFFFF6E9FFA59079FF0000
001600000016A6917BFFFFFFF3FFAB8F6EFF050811FF0F1118FF101219FF1113
1AFF12141BFF14151DFF1A1B21FF212028FF26282EFF2C2C32FF303137FF3536
3CFF3A3A40FF3F4045FF434349FF48484DFF494B50FF4E4E53FF525156FF5555
5AFF58585DFF5D5D62FF606065FF5A5C63FFA58A69FFFFF9EEFFA6917CFF0000
001600000015A7917BFFFFFFF6FF9C7F5FFFA68968FFAA8D6BFFAB8E6CFFAB8E
6CFFAB8E6CFFAA8D6BFFAA8D6BFFAA8C6AFFA98C6AFFA88B69FFA88A69FFA78A
68FFA78A68FFA78967FFA68967FFA68967FFA58866FFA58866FFA58766FFA587
66FFA48765FFA48765FFA38664FFA18463FF9A7E5DFFFFFDF1FFA7927BFF0000
00150000000DA9947FFFFFFFF7FFFFFFF4FFFFFFF6FFFFFFF7FFFFFFF7FFFFFF
F7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF6FFFFFF
F6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFF
F6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF4FFFFFFF5FFA9947FFF0000
000D00000004A5917DB3A9937EFFCEC2ADFFCDC1ABFFCDC0ABFFCDC0ABFFCDC0
ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0
ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC0
ABFFCDC0ABFFCDC0ABFFCDC0ABFFCDC1ABFFCEC2ADFFA9937EFFA5917DB30000
00040000000000000004A99581B0AD9883FFAC9782FFAC9782FFAC9782FFAC97
82FFAC9782FFAC9782FFAC9782FFAC9782FFAC9782FFAC9782FFAC9782FFAC97
82FFAC9782FFAC9782FFAC9782FFAC9782FFAC9782FFAC9782FFAC9782FFAC97
82FFAC9782FFAC9782FFAC9782FFAC9782FFAD9883FFA99581B0000000040000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000
}
Menu = MainMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.2.4.0'
object PageControl1: TPageControl
Left = 0
Height = 617
Top = 140
Width = 1200
ActivePage = TabSheet2
Align = alClient
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Images = ImageList1
ParentFont = False
TabIndex = 3
TabOrder = 0
object TabSheet4: TTabSheet
Caption = 'Statusübersicht'
ClientHeight = 574
ClientWidth = 1192
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 1
ParentFont = False
object SG_Clients: TStringGrid
Left = 0
Height = 574
Hint = 'Wird bei jedem neuen Alarm automatisch nach Zeit sortiert.'#13#10'''Entfernen'' drücken, um ausgewählte Zeile zu löschen.'
Top = 0
Width = 1192
Align = alClient
ColCount = 8
ColumnClickSorts = True
Columns = <
item
Title.Caption = 'Status'
end
item
Title.Caption = 'Zeitstempel'
end
item
Title.Caption = 'Typ'
end
item
Title.Caption = 'Adresse'
end
item
Title.Caption = 'Wache(n)'
end
item
Title.Caption = 'Einsatznummer'
end
item
Title.Caption = 'Alarm-Text'
end
item
Title.Caption = 'weitere Info'
end>
FixedCols = 0
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goDblClickAutoSize, goTruncCellHints, goCellEllipsis]
ParentFont = False
ParentShowHint = False
RowCount = 1
ShowHint = True
TabOrder = 0
OnKeyDown = SG_ClientsKeyDown
end
end
object TabSheet7: TTabSheet
Caption = 'Wachalarm'
ClientHeight = 574
ClientWidth = 1192
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 6
ParentFont = False
object PageControl3: TPageControl
Left = 0
Height = 574
Top = 0
Width = 1192
ActivePage = TabSheet14
Align = alClient
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Images = ImageList1
ParentFont = False
TabIndex = 3
TabOrder = 0
object TabSheet5: TTabSheet
Caption = 'letzte waip.txt'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 7
ParentFont = False
object M_Auftrag: TMemo
Left = 0
Height = 531
Top = 0
Width = 1184
Align = alClient
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object TabSheet10: TTabSheet
Caption = 'letztes Alarmbild'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 20
ParentFont = False
object I_Alarmbild: TImage
Left = 0
Height = 531
Top = 0
Width = 1184
Align = alClient
Proportional = True
Stretch = True
end
end
object TabSheet11: TTabSheet
Caption = 'IP-Replace'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 18
ParentFont = False
object Label11: TLabel
Left = 8
Height = 39
Top = 8
Width = 801
Caption = 'Sollten in einer Wache mehrere Clients ausgeführt werden, oder hat die Wache auch einen Twitter-Account, so können hier zusätzliche IP-Adressen hinterlegt werden.'#13#10'Anwendung je Zeile: '#13#10'Spalte 1 - IP-Adresse aus waip.txt; Spalte 2 - neue IP-Adressen (Bsp: 127.0.0.1 -> 127.0.0.1,@Twitter-Account,127.0.0.2)'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
object SG_IP_Replace: TStringGrid
AnchorSideLeft.Control = TabSheet11
AnchorSideTop.Control = Label11
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet11
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet11
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 476
Hint = '''Entfernen'' drücken, um ausgewählte Zeile zu löschen.'#13#10'Eintrag in letzte Zeile fügt neue Clients hinzu.'
Top = 55
Width = 1184
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
ColCount = 2
FixedCols = 0
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goAutoAddRows, goDblClickAutoSize, goSmoothScroll]
ParentFont = False
ParentShowHint = False
RowCount = 2
ShowHint = True
TabOrder = 0
OnEditingDone = SG_IP_ReplaceEditingDone
OnKeyDown = SG_IP_ReplaceKeyDown
ColWidths = (
114
232
)
Cells = (
2
0
0
'IP-Adresse waip.txt'
1
0
'neue IP-Adressen (Trennzeichen: , )'
)
end
end
object TabSheet14: TTabSheet
Caption = 'WAIP-Chronik'
ClientHeight = 531
ClientWidth = 1184
ImageIndex = 27
object Label15: TLabel
Left = 8
Height = 26
Top = 8
Width = 441
Caption = 'Die WAIP-Chronik listet die letzten 100 Einsätze auf.'#13#10'Hinweis: Die Liste wird genutzt um bei gleichen Einsätzen immer die selbe UUID zu erzeugen.'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
object SG_WaipChronik: TStringGrid
AnchorSideLeft.Control = TabSheet14
AnchorSideTop.Control = Label15
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet14
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet14
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 489
Top = 42
Width = 1184
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
ColCount = 2
FixedCols = 0
RowCount = 1
TabOrder = 0
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
Cells = (
2
0
0
'Einsatznummer'
1
0
'UUID'
)
end
end
end
end
object TabSheet3: TTabSheet
Caption = 'Twitter / Mastodon'
ClientHeight = 574
ClientWidth = 1192
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 28
ParentFont = False
object PageControl2: TPageControl
Left = 0
Height = 574
Top = 0
Width = 1192
ActivePage = TabSheet15
Align = alClient
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Images = ImageList1
ParentFont = False
TabIndex = 1
TabOrder = 0
object TabSheet6: TTabSheet
Caption = 'Twitter-Accounts'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 10
ParentFont = False
object SG_Twitter: TStringGrid
AnchorSideLeft.Control = TabSheet6
AnchorSideTop.Control = Label16
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet6
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet6
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 463
Hint = '''Entfernen'' drücken, um ausgewählte Zeile zu löschen.'#13#10'Eintrag in letzte Zeile fügt neuen Account hinzu.'
Top = 68
Width = 1184
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
ColCount = 10
Columns = <
item
Title.Caption = '@Twitter-Account'
end
item
Title.Caption = 'vollständiger Name'
end
item
Title.Caption = 'Passwort'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Wachen im Tweet?'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Bild twittern?'
end
item
Title.Caption = 'Consumer Key'
end
item
Title.Caption = 'Consumer Secret'
end
item
Title.Caption = 'Access Token'
end
item
Font.Color = clWindowText
Font.Height = -11
Title.Caption = 'Access Token Secret'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Dashboard-Link'
end>
FixedCols = 0
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goAutoAddRows, goDblClickAutoSize, goSmoothScroll]
ParentFont = False
ParentShowHint = False
RowCount = 2
ShowHint = True
TabOrder = 0
OnEditingDone = SG_TwitterEditingDone
OnExit = SG_TwitterExit
OnKeyDown = SG_TwitterKeyDown
Cells = (
1
0
0
'@Twitter-Account'
)
end
object Label16: TLabel
Left = 8
Height = 52
Top = 8
Width = 724
Caption = 'Hier werden die einzelnen Twitter-Accounts hinterlegt. Findet sich einer dieser Accounts in der Schnittstelle wieder, so erfolgt eine Weiterverarbeitung.'#13#10'Für jeden Account sind Consumer Key, Consumer Secret, Access Token und Access Token Secret zwingend zu hinterlegen.'#13#10'Außerdem kann festgelegt werden ob die Wachen-Namen im Tweet erscheinen sollen und ob ein Bild mit mehr Informationen veröffentlicht werden soll.'#13#10'Hinweis: Der Bild-Upload erfolgt vor der Veröffentlichung des Tweets. Mitteilungen brauchen so ca. 2-3 Sekunden länger.'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
end
object TabSheet15: TTabSheet
Caption = 'Mastodon-Accounts'
ClientHeight = 531
ClientWidth = 1184
ImageIndex = 29
object Label5: TLabel
Left = 8
Height = 39
Top = 8
Width = 737
Caption = 'Hier werden die einzelnen Mastodon-Accounts hinterlegt. Findet sich einer dieser Accounts in der Schnittstelle wieder, so erfolgt eine Weiterverarbeitung.'#13#10'Für jeden Account sind mindestens Name, Basis-URL und Zugangs-Token zu hinterlegen.'#13#10'Außerdem können weitere Optionen je Account festgelegt werden.'
ParentColor = False
end
object SG_Mastodon: TStringGrid
AnchorSideLeft.Control = TabSheet15
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet15
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet15
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 476
Top = 55
Width = 1184
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
Columns = <
item
Title.Caption = '@Mastodon-Account'
end
item
Title.Caption = 'vollständiger Name'
end
item
Title.Caption = 'Basis-URL'
end
item
Title.Caption = 'Zugangs-Token'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Dashboard-Link'
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goDblClickAutoSize, goSmoothScroll]
RowCount = 2
TabOrder = 0
OnEditingDone = SG_MastodonEditingDone
OnExit = SG_MastodonExit
OnKeyDown = SG_MastodonKeyDown
end
end
object TabSheet8: TTabSheet
Caption = 'Filter für Wachen'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 16
ParentFont = False
object Label9: TLabel
Left = 8
Height = 52
Top = 8
Width = 557
Caption = 'Die hier hinterlegten Wachen-Namen dienen als Filter zur Reduzierung der Wachen im veröffentlichten Text.'#13#10'Im Tweet / Tröt und im angehängten Bild erscheinen nur die hier angegebenen Wachen.'#13#10'Nach der Eingabe neuer Wachen bzw. nach einer Änderung, werden alle Einträge automatisch alphabetisch sortiert.'#13#10'Je Zeile ist ein Wachen-Name anzugeben. Dieser muss dem Wachen-Namen der Schnittstelle entsprechen.'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
object M_Wachenfilter: TMemo
AnchorSideLeft.Control = TabSheet8
AnchorSideTop.Control = Label9
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet8
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet8
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 463
Top = 68
Width = 1184
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Lines.Strings = (
'CB FW'
)
OnEditingDone = M_WachenfilterEditingDone
ParentFont = False
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object TabSheet12: TTabSheet
Caption = 'Filter nach Einsatzart'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 15
ParentFont = False
object SG_Twitter_Filter: TStringGrid
AnchorSideLeft.Control = TabSheet12
AnchorSideTop.Control = Label14
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet12
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet12
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 476
Hint = '''Entfernen'' drücken, um ausgewählte Zeile zu löschen.'#13#10'Eintrag in letzte Zeile fügt neue Clients hinzu.'
Top = 55
Width = 1184
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
ColCount = 6
Columns = <
item
ButtonStyle = cbsPickList
Title.Caption = '@Twitter/Mastodon-Account'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Brandeinsatz?'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Hilfeleistungseinsatz?'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Rettungseinsatz?'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Krankentransport?'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Sonstiges?'
end>
FixedCols = 0
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goAutoAddRows, goDblClickAutoSize, goSmoothScroll]
ParentFont = False
ParentShowHint = False
RowCount = 2
ShowHint = True
TabOrder = 0
OnEditingDone = SG_Twitter_FilterEditingDone
OnKeyDown = SG_Twitter_FilterKeyDown
end
object Label14: TLabel
Left = 8
Height = 39
Top = 8
Width = 596
Caption = 'Dieser Filter legt fest, für welche Einsatzarten bei bestimmten Accounts _keine_ Tweets / Tröts veröffentlicht werden sollen.'#13#10'Beispiel für BF Cottbus sollen keine Rettungsdienst-, Kranktransport- und Sonstige-Einsätze veröffentlicht werden:'#13#10'@Lst_Lau_CB_BF | ☑ | ☑ | | | |'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
end
object TabSheet9: TTabSheet
Caption = 'Text-Ersetzungen im Tweet'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 22
ParentFont = False
object M_StringReplace_Tweet: TMemo
AnchorSideLeft.Control = TabSheet9
AnchorSideTop.Control = Label7
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet9
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet9
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 476
Top = 55
Width = 1184
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqDraft
Lines.Strings = (
'Test==TEST'
)
OnEditingDone = M_StringReplace_TweetEditingDone
ParentFont = False
ScrollBars = ssAutoBoth
TabOrder = 0
end
object Label7: TLabel
Left = 8
Height = 39
Top = 8
Width = 464
Caption = 'Hier werden Regeln zum ersetzen bestimmter Textinhalte innerhalb des Tweets / Tröts definiert. '#13#10'Die Ausnahmen gelten für den gesamten Bereich. Anwendung je Zeile: '#13#10'zu ersetzender Text==neuer Text'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
end
object TabSheet13: TTabSheet
Caption = 'Text-Ersetzungen im Bild'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 21
ParentFont = False
object M_StringReplace_Picture: TMemo
AnchorSideLeft.Control = TabSheet13
AnchorSideTop.Control = Label8
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet13
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet13
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 463
Top = 68
Width = 1184
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqDraft
Lines.Strings = (
'Test==TEST'
)
OnEditingDone = M_StringReplace_PictureEditingDone
ParentFont = False
ScrollBars = ssAutoBoth
TabOrder = 0
end
object Label8: TLabel
Left = 8
Height = 52
Top = 8
Width = 421
Caption = 'Hier werden Regeln zum ersetzen bestimmter Textinhalte innerhalb des Bildes definiert. '#13#10'Die Ausnahmen gelten nur für die Einsatzart und das Stichwort.'#13#10'Anwendung je Zeile: '#13#10'zu ersetzender Text==neuer Text'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
end
object TabSheet1: TTabSheet
Caption = 'Twitter/Mastodon-Chronik'
ClientHeight = 531
ClientWidth = 1184
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 27
ParentFont = False
object SG_TweetChronik: TStringGrid
AnchorSideLeft.Control = TabSheet1
AnchorSideTop.Control = Label13
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet1
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 489
Hint = 'Zeigt die letzten 50 Tweets'
Top = 42
Width = 1184
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
AutoEdit = False
BorderSpacing.Top = 8
ColCount = 4
Columns = <
item
Title.Caption = '@Twitter/Mastodon-Account'
end
item
Title.Caption = 'Einsatznummer'
end
item
Title.Caption = 'Einsatzdaten-UID'
end
item
Title.Caption = 'Tweet-ID'
end>
FixedCols = 0
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goAutoAddRows, goDblClickAutoSize, goSmoothScroll]
ParentFont = False
ParentShowHint = False
RowCount = 1
ShowHint = True
TabOrder = 0
OnKeyDown = SG_TweetChronikKeyDown
end
object Label13: TLabel
Left = 8
Height = 26
Top = 8
Width = 467
Caption = 'Diese Chronik listet die letzten 100 generierten Tweets / Tröts auf.'#13#10'Hinweis: Die Liste wird unter anderem genutzt um doppelte Tweets eines Einsatzes zu verwerfen.'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
end
end
end
object TabSheet2: TTabSheet
Caption = 'Log-Datei'
ClientHeight = 574
ClientWidth = 1192
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ImageIndex = 26
ParentFont = False
object Log: TMemo
AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = L_ErrorMsg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet2
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 524
Top = 50
Width = 1192
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Lines.Strings = (
'Es werden nur neue Einträge angezeigt. Alte Log-Daten sind aus der Datei "wa-log.txt" zu beziehen'
)
OnChange = LogChange
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
WordWrap = False
end
object Label2: TLabel
Left = 8
Height = 13
Top = 8
Width = 438
Caption = 'Hinweis: Die Log-Datei ist auf max. 10.000 Zeilen begrenzt. Neueste Einträge stehen oben.'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
ParentColor = False
ParentFont = False
end
object L_ErrorMsg: TLabel
Left = 8
Height = 13
Top = 29
Width = 24
Caption = ' '
ParentColor = False
end
end
end
object GroupBox1: TGroupBox
Left = 0
Height = 140
Top = 0
Width = 1200
Align = alTop
Caption = 'Systeminformation'
ClientHeight = 119
ClientWidth = 1196
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 20
Height = 16
Top = 15
Width = 76
BorderSpacing.Left = 20
BorderSpacing.Top = 15
Caption = 'Serverstatus:'
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
ParentColor = False
ParentFont = False
end
object Label4: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 20
Height = 16
Top = 75
Width = 74
BorderSpacing.Left = 20
BorderSpacing.Top = 75
Caption = 'Alarmstatus:'
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
ParentColor = False
ParentFont = False
end
object L_Ip: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 135
Height = 16
Top = 45
Width = 12
BorderSpacing.Left = 135
BorderSpacing.Top = 45
Caption = 'IP'
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
ParentColor = False
ParentFont = False
end
object Label6: TLabel
AnchorSideLeft.Control = GroupBox1