forked from thargor6/mb3d
-
Notifications
You must be signed in to change notification settings - Fork 0
/
LightAdjust.dfm
2885 lines (2885 loc) · 97.5 KB
/
LightAdjust.dfm
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 LightAdjustForm: TLightAdjustForm
Left = 844
Top = 100
BorderStyle = bsDialog
Caption = 'Lighting'
ClientHeight = 625
ClientWidth = 233
Color = clBtnFace
DragMode = dmAutomatic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
OnHide = FormHide
OnMouseWheel = FormMouseWheel
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel3: TPanel
Left = 0
Top = 521
Width = 233
Height = 104
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object SpeedButton13: TSpeedButton
Left = 8
Top = 69
Width = 28
Height = 30
Hint = 'Open full light and color parameter'
Glyph.Data = {
76050000424D7605000000000000360400002800000012000000100000000100
0800000000004001000000000000000000000001000000010000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A60000000000357C62007C8B1400758B1F006D8D2C00738D25003B917C005B89
43004C8755004E895E0053935E0048936D0053966000439478008F8D0500878B
0900898B09000177A1000077B200007CC10018809A00358F84000B80AB000384
B2000584B8000D87BB000B8BBA001B93BF002AA1BF00018FCA00008BCE00148F
C3001493C7001094C700169ACC00189ACA000091D6000094D4000094D6000B96
D000219ECC000BA5E60000A5EC0009A7E8000BABEE0012ADEE0000ABF30000B4
FF0005B8FF0012BFFF0005C1FF0001C7FF0000ECFF0019E7F90000F1FF0000FF
FF0080FFFF00C6C6C6001400140058871B0018000000E401000060EE12004000
00000000000000000000A8EE120068EE12000000000000000000000000000000
000000000000000000000000000040000000ACEE120020E99100000000000200
000001000000E401000060EE1200E401000060149200F8D62200D8D622000000
00000000000090EC01008F00000004EC120020E99100C0EC12007C94370011A9
000011A90000D4EC12001E9437005044AF0011A9000000000000ECEC1200E294
37005044AF003D150F00F057E200B057E2000CED1200824C0F00F057E200A603
3700B64C0F00F057E20014ED120000000000B8009200105BCE00E0ED12004100
9200A80714005D00920038EE1200000000003CED120000000000B80092005087
1B0008EE1200410092004807140058ED120000000000B800920050871B0024EE
120041009200480714005D00920068EE12000400000000000000020000000000
0000040000003000000000000000185BCE00D98B360000F0FD00300000000400
00000000140098EB12005CF69100200000000000000058871B00C4ED12000000
0000B800920020210B0090EE120041009200380BE2005D009200806A0A002821
0B000300000061F69100EECF9100CEDD910000001400E4ED1200DADD91008CEE
120020E9910068F69100FFFF01000400000068ED1200000000008CEE120020E9
910060009200FFFFFF005D009200AC04920000001400C800000058871B0048EE
12008204920058871B00000000009CEE12000EECDA0020ECDA00C8A662000000
E200D4A66200000000000000000000000000000000000000010019000000D4ED
120028210B00C8EE120020E9910060009200FFFFFF005D009200DEC2BF000000
E20000000000E3C2BF00806A0A0028210B0003000000AA68D30028210B002821
0B00D4EE1200A4EE1200FFFFFF0040EF1200945CC0007020BE00FFFFFF00E3C2
BF00D595440028210B00A01B6300A01B6300F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00434343434343
4343434343434343434343430000434343434343434343434343434343434343
000043430000000000000000000000004343434300004300003F3F3F3F3F3F3F
3F3F3F3F004343430000430042003F3F3F3F3F3F3F3F3F3F0043434300004300
42003F3F3F3F3F3F3F3F3F3F3F004343000043004242003F3F3F3F3F3F3F3F3F
3F004343000043004242003F3F3F3F3F3F3F3F3F3F3F00430000430042424200
000000003F3F3F3F3F3F00430000430042424242424242420000000000004343
0000430042424242424242424242420043434343000043004242424242424242
4242420043434343000043004242424242000000000000434343434300004343
0000000000434343434343434343434300004343434343434343434343434343
4343434300004343434343434343434343434343434343430000}
ParentShowHint = False
ShowHint = True
OnClick = Button1Click
end
object SpeedButton14: TSpeedButton
Left = 42
Top = 69
Width = 28
Height = 30
Hint = 'Save full light and color parameter'
Glyph.Data = {
76050000424D7605000000000000360400002800000012000000100000000100
0800000000004001000000000000000000000001000000010000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A60000000000357C6200FF0000007C8B1400758B1F006D8D2C00738D25003B91
7C005B8943004C8755004E895E0053935E0048936D0053966000439478008484
00008F8D0500878B0900898B09000177A1000077B200007CC10018809A00358F
84000B80AB000384B2000584B8000D87BB000B8BBA001B93BF002AA1BF00018F
CA00008BCE00148FC3001493C7001094C700169ACC00189ACA000091D6000094
D4000094D6000B96D000219ECC000BA5E60000A5EC0009A7E8000BABEE0012AD
EE0000ABF30000B4FF0005B8FF0012BFFF0005C1FF0001C7FF0000ECFF0000F1
FF0000FFFF0084848400C6C6C600FFFFFF00180000007401000060EE12004000
00000000000000000000A8EE120068EE12000000000000000000000000000000
000000000000000000000000000040000000ACEE120020E99100000000000200
0000010000007401000060EE12007401000060149200C01F1800A01F18000000
00000000000090EC0100C301000004EC120020E99100C0EC12007C94370011A9
000011A90000D4EC12001E9437004047AF0011A9000000000000ECEC1200E294
37004047AF003D150F00F057E200B057E2000CED1200824C0F00F057E2003E03
5B00B64C0F00F057E20014ED120000000000B8009200A04E2200E0ED12004100
9200A80714005D00920038EE1200000000003CED120000000000B8009200A851
220008EE1200410092004807140058ED120000000000B8009200A851220024EE
120041009200480714005D00920068EE12000400000000000000020000000000
0000040000003000000000000000A84E2200D98B360000F0FD00300000000400
00000000140098EB12005CF691002000000000000000B0512200C4ED12000000
0000B800920020210B0090EE120041009200380BE2005D009200806A0A002821
0B000300000061F69100EECF9100CEDD910000001400E4ED1200DADD91008CEE
120020E9910068F69100FFFF01000400000068ED1200000000008CEE120020E9
910060009200FFFFFF005D009200AC04920000001400C8000000B051220048EE
120082049200B0512200000000009CEE12000EECDA0020ECDA00C8A662000000
E200D4A66200000000000000000000000000000000000000010019000000D4ED
120028210B00C8EE120020E9910060009200FFFFFF005D009200DEC2BF000000
E20000000000E3C2BF00806A0A0028210B0003000000AA68D30028210B002821
0B00D4EE1200A4EE1200FFFFFF0040EF1200945CC0007020BE00FFFFFF00E3C2
BF00D595440028210B00A01B6300A01B6300F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
4444444444444444444444440000444444000000000000000000000000444444
00004444000C0C00430C0C454444000C0C00444400004444000C0C00430C0C45
4444000C0C00444400004444000C0C00444343444444000C0C00444400004444
000C0C19000000000000190C0C00444400004444000C0C0C0C0C0C0C0C0C0C0C
0C00444400004444000C190000000000000000190C00444400004444000C0045
45454545454545000C00444400004444000C004545454545454545000C004444
00004444000C004545454545454545000C00444400004444000C004545454545
454545000C004444000044440000004545454545454545000000444400004444
000C004545454545454545000C00444400004444440000000000000000000000
0044444400004444444444444444444444444444444444440000}
ParentShowHint = False
ShowHint = True
OnClick = Button2Click
end
object SpeedButton15: TSpeedButton
Tag = 1
Left = 78
Top = 2
Width = 25
Height = 21
Hint = 'preset <sand>'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton16: TSpeedButton
Tag = 2
Left = 103
Top = 2
Width = 25
Height = 21
Hint = 'preset <slime>'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton17: TSpeedButton
Tag = 3
Left = 128
Top = 2
Width = 25
Height = 21
Hint = 'preset <metallic>'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton18: TSpeedButton
Tag = 4
Left = 153
Top = 2
Width = 25
Height = 21
Hint = 'preset <flower>'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton23: TSpeedButton
Tag = 9
Left = 153
Top = 23
Width = 25
Height = 21
Hint = 'custom preset 4'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton20: TSpeedButton
Tag = 6
Left = 78
Top = 23
Width = 25
Height = 21
Hint = 'custom preset 1'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton21: TSpeedButton
Tag = 7
Left = 103
Top = 23
Width = 25
Height = 21
Hint = 'custom preset 2'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton22: TSpeedButton
Tag = 8
Left = 128
Top = 23
Width = 25
Height = 21
Hint = 'custom preset 3'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButtonMem: TSpeedButton
Left = 41
Top = 2
Width = 27
Height = 21
Hint =
'Click to save the current light and most color settings'#13#10'on a cu' +
'stom preset button.'#13#10'Click this button again to cancel saving.'
AllowAllUp = True
GroupIndex = 6
Caption = 'M'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButtonMemClick
end
object SpeedButton19: TSpeedButton
Tag = 5
Left = 178
Top = 2
Width = 25
Height = 21
Hint = 'preset <neutral>'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton24: TSpeedButton
Tag = 10
Left = 178
Top = 23
Width = 25
Height = 21
Hint = 'custom preset 5'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton25: TSpeedButton
Tag = 11
Left = 78
Top = 44
Width = 25
Height = 21
Hint = 'custom preset 6'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton26: TSpeedButton
Tag = 12
Left = 103
Top = 44
Width = 25
Height = 21
Hint = 'custom preset 7'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton27: TSpeedButton
Tag = 13
Left = 128
Top = 44
Width = 25
Height = 21
Hint = 'custom preset 8'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton28: TSpeedButton
Tag = 14
Left = 153
Top = 44
Width = 25
Height = 21
Hint = 'custom preset 9'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton29: TSpeedButton
Tag = 15
Left = 178
Top = 44
Width = 25
Height = 21
Hint = 'custom preset 10'
Flat = True
ParentShowHint = False
ShowHint = True
Spacing = -1
Transparent = False
OnClick = SpeedButton15Click
end
object SpeedButton9: TSpeedButton
Left = 6
Top = 2
Width = 27
Height = 21
Hint =
'Leftclick: Undo -> Sets the light parameter to the state befor' +
'e the last painting'#13#10'Rightclick: Redo'
Enabled = False
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000C30E0000C30E0000100000001000000000000000C6C6
C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
1111111111111111111111111111111111111111111111111111111111111111
0111110000011111011111000011111110111100011111111011110010111111
1011110111001111011111111111000011111111111111111111111111111111
1111111111111111111111111111111111111111111111111111}
ParentShowHint = False
ShowHint = True
OnMouseUp = SpeedButton9MouseUp
end
object SpeedButton31: TSpeedButton
Left = 205
Top = 1
Width = 16
Height = 22
Hint = 'Shrink the panel'
Glyph.Data = {
C2010000424DC20100000000000036000000280000000C0000000B0000000100
1800000000008C010000110B0000110B0000000000000000000084C4C384C4C3
84C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4
C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384
C4C384C4C3000000000000000000000000000000000000000000000000000000
00000084C4C384C4C30000002929294848484848484848484848484848484848
4829292900000084C4C384C4C384C4C300000035353554545454545454545454
545435353500000084C4C384C4C384C4C384C4C384C4C3000000414141636363
63636341414100000084C4C384C4C384C4C384C4C384C4C384C4C384C4C30000
0046464646464600000084C4C384C4C384C4C384C4C384C4C384C4C384C4C384
C4C384C4C300000000000084C4C384C4C384C4C384C4C384C4C384C4C384C4C3
84C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4
C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384
C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C3
84C4C384C4C3}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton31Click
end
object SpeedButton32: TSpeedButton
Left = 205
Top = 1
Width = 18
Height = 22
Hint = 'Expand the panel'
Glyph.Data = {
C2010000424DC20100000000000036000000280000000C0000000B0000000100
1800000000008C010000110B0000110B0000000000000000000084C4C384C4C3
84C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4
C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384
C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C3
84C4C384C4C384C4C384C4C384C4C384C4C384C4C300000000000084C4C384C4
C384C4C384C4C384C4C384C4C384C4C384C4C384C4C300000046464646464600
000084C4C384C4C384C4C384C4C384C4C384C4C384C4C3000000414141636363
63636341414100000084C4C384C4C384C4C384C4C384C4C30000003535355454
5454545454545454545435353500000084C4C384C4C384C4C300000029292948
484848484848484848484848484848484829292900000084C4C384C4C3000000
00000000000000000000000000000000000000000000000000000084C4C384C4
C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384
C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C384C4C3
84C4C384C4C3}
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton31Click
end
object ComboBox3: TComboBox
Left = 77
Top = 73
Width = 137
Height = 21
Hint =
'Quick load of light parameter files that are'#13#10'stored in the spec' +
'ific ini directory.'
Style = csDropDownList
DropDownCount = 40
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnDropDown = ComboBox3DropDown
OnSelect = ComboBox3Select
end
object CheckBox11: TCheckBox
Left = 4
Top = 28
Width = 72
Height = 17
Hint =
'If enabled, the lights are not changed when presets or light par' +
'ameters are loaded.'#13#10'Can be useful if you don'#39't want to recalcul' +
'ate the hard shadows, for example.'
Caption = 'Keep lights'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object TabControl1: TTabControl
Left = 0
Top = 0
Width = 233
Height = 180
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Tabs.Strings = (
'1'
'2'
'3'
'4'
'5'
'6')
TabIndex = 0
TabWidth = 36
OnChange = TabControl1Change
OnChanging = TabControl1Changing
OnMouseDown = TabControl1MouseDown
object Label8: TLabel
Left = 127
Top = 30
Width = 19
Height = 13
Caption = 'Diff:'
end
object Label9: TLabel
Left = 127
Top = 54
Width = 28
Height = 13
Alignment = taRightJustify
Caption = 'Spec:'
end
object Label26: TLabel
Left = 76
Top = 33
Width = 42
Height = 13
Caption = 'Intensity:'
end
object SpeedButton12: TSpeedButton
Tag = 12
Left = 45
Top = 25
Width = 29
Height = 21
Hint = 'Light color, press to select a new one.'
Flat = True
Glyph.Data = {
A6020000424DA60200000000000036000000280000000F0000000D0000000100
18000000000070020000C30E0000C30E00000000000000000000C0C0C0000000
0000000000000000000000000000000000000000000000000000000000000000
00000000C0C0C0000000C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000C0C0C0000000C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000C0C0C0000000C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000C0C0C0000000C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000C0C0C0000000C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000C0C0C0000000C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000
0000000000000000000000000000000000000000000000000000000000000000
00000000C0C0C0000000}
Layout = blGlyphRight
ParentShowHint = False
ShowHint = True
Spacing = -1
OnClick = SpeedButton1Click
end
object ComboBox1: TComboBox
Left = 151
Top = 27
Width = 68
Height = 20
Hint =
'Diffuse function, choose Cos or Cos^2 if you use a hard shadow o' +
'n this light.'
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = ComboBox1Change
Items.Strings = (
'Cos'
'Cos^2'
'Cos/2+ '
'(Cos/2+)'#178)
end
object ComboBox2: TComboBox
Left = 161
Top = 51
Width = 58
Height = 20
Hint = 'Specular power function'
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ItemIndex = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = '8'
OnChange = ComboBox1Change
Items.Strings = (
'2'
'4'
'8'
'16'
'32'
'64'
'128'
'256')
end
object CheckBox4: TCheckBox
Left = 6
Top = 29
Width = 33
Height = 17
Alignment = taLeftJustify
Caption = 'On'
TabOrder = 2
OnClick = CheckBox4Click
end
object PageControl1: TPageControl
Left = 1
Top = 72
Width = 221
Height = 108
ActivePage = TabSheet6
TabOrder = 3
OnChange = PageControl1Change
OnChanging = PageControl1Changing
object TabSheet1: TTabSheet
Caption = 'Global light'
object Label2: TLabel
Left = 5
Top = 30
Width = 59
Height = 13
Caption = 'Light Yangle'
end
object Label3: TLabel
Left = 5
Top = 56
Width = 59
Height = 13
Caption = 'Light Xangle'
end
object Label25: TLabel
Left = 6
Top = 6
Width = 33
Height = 13
Caption = 'Visible:'
end
object TrackBar1: TTrackBar
Left = 69
Top = 52
Width = 136
Height = 25
Max = 180
Min = -180
Frequency = 180
Position = 44
SelEnd = -1
TabOrder = 0
ThumbLength = 18
OnChange = TrackBar1Change
OnKeyPress = TrackBar21KeyPress
end
object TrackBar2: TTrackBar
Left = 69
Top = 26
Width = 136
Height = 25
Max = 180
Min = -180
Frequency = 180
Position = 54
SelEnd = -1
TabOrder = 1
ThumbLength = 18
OnChange = TrackBarYangleChange
OnKeyPress = TrackBar21KeyPress
end
object CheckBox6: TCheckBox
Left = 110
Top = 4
Width = 83
Height = 17
Hint = 'Use it in animations to fix the lights to the scenery.'
Alignment = taLeftJustify
Caption = 'Rel. to object:'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = CheckBox6Click
end
object ComboBox4: TComboBox
Left = 44
Top = 3
Width = 38
Height = 20
Hint = 'Determines whether the light should be visible and its shape.'
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ItemIndex = 0
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = '0'
OnChange = ComboBox4Change
Items.Strings = (
'0'
'1'
'2'
'3'
'4')
end
end
object TabSheet2: TTabSheet
Caption = 'Positional light'
ImageIndex = 1
object Label13: TLabel
Left = 47
Top = 5
Width = 24
Height = 13
Caption = 'Xpos'
end
object Label14: TLabel
Left = 47
Top = 31
Width = 24
Height = 13
Caption = 'Ypos'
end
object Label15: TLabel
Left = 47
Top = 57
Width = 24
Height = 13
Caption = 'Zpos'
end
object Label32: TLabel
Left = 1
Top = 6
Width = 33
Height = 13
Caption = 'Visible:'
end
object TrackBar15: TTrackBarEx
Tag = 1
Left = 72
Top = 27
Width = 112
Height = 25
Hint =
'You can do a finer adjust with the left or right arrow keys'#13#10'on ' +
'most trackbars, when they are selected.'#13#10'Pressing "0" (zero) set' +
's the trackbar to its zero position.'
Max = 180
Min = -180
ParentShowHint = False
PageSize = 1
Frequency = 180
SelEnd = -1
ShowHint = True
TabOrder = 0
ThumbLength = 18
OnChange = TrackBar16Change
OnKeyPress = TrackBar21KeyPress
OnMouseUp = TrackBar16MouseUp
end
object TrackBar16: TTrackBarEx
Left = 72
Top = 1
Width = 112
Height = 25
Hint =
'You can do a finer adjust with the left or right arrow keys'#13#10'on ' +
'most trackbars, when they are selected.'#13#10'Pressing "0" (zero) set' +
's the trackbar to its zero position.'
Max = 180
Min = -180
ParentShowHint = False
PageSize = 1
Frequency = 180
SelEnd = -1
ShowHint = True
TabOrder = 1
ThumbLength = 18
OnChange = TrackBar16Change
OnKeyPress = TrackBar21KeyPress
OnMouseUp = TrackBar16MouseUp
end
object TrackBar17: TTrackBarEx
Tag = 2
Left = 72
Top = 53
Width = 112
Height = 25
Hint =
'You can do a finer adjust with the left or right arrow keys'#13#10'on ' +
'most trackbars, when they are selected.'#13#10'Pressing "0" (zero) set' +
's the trackbar to its zero position.'
Max = 180
Min = -180
ParentShowHint = False
PageSize = 1
Frequency = 180
SelEnd = -1
ShowHint = True
TabOrder = 2
ThumbLength = 18
OnChange = TrackBar16Change
OnKeyPress = TrackBar21KeyPress
OnMouseUp = TrackBar16MouseUp
end
object UpDown1: TUpDown
Left = 184
Top = 2
Width = 25
Height = 19
Hint = 'fine tune the positions with the arrow buttons'
Min = -32768
Max = 32767
Orientation = udHorizontal
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = UpDown1Click
end
object UpDown2: TUpDown
Tag = 1
Left = 184
Top = 28
Width = 25
Height = 19
Hint = 'fine tune the positions with the arrow buttons'
Min = -32768
Max = 32767
Orientation = udHorizontal
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = UpDown1Click
end
object UpDown3: TUpDown
Tag = 2
Left = 184
Top = 54
Width = 25
Height = 19
Hint = 'fine tune the positions with the arrow buttons'
Min = -32768
Max = 32767
Orientation = udHorizontal
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = UpDown1Click
end
object ButtonGetPos: TButton
Left = 1
Top = 53
Width = 39
Height = 21
Hint =
'Click on button and afterwards on the object in image'#13#10'to set th' +
'e midpoint for the light.'
Caption = 'mid'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = ButtonGetPosClick
end
object ComboBox5: TComboBox
Left = 2
Top = 24
Width = 38
Height = 20
Hint = 'Determines whether the light should be visible and its shape.'
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ItemIndex = 0
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
Text = '0'
OnChange = ComboBox4Change
Items.Strings = (
'0'
'1'
'2'
'3'
'4')
end
end
object TabSheet6: TTabSheet
Caption = 'Lightmap'
ImageIndex = 2
object Label39: TLabel
Left = 158
Top = 31
Width = 39
Height = 26
Alignment = taCenter
Caption = 'Map not'#13#10'found'
end
object Label29: TLabel
Left = 3
Top = 5
Width = 19
Height = 13
Caption = 'Xrot'
end
object Label30: TLabel
Left = 3
Top = 31
Width = 19
Height = 13
Caption = 'Yrot'
end
object Label31: TLabel
Left = 3
Top = 57
Width = 19
Height = 13
Caption = 'Zrot'
end
object Image3: TImage
Left = 145
Top = 30
Width = 64
Height = 32
end
object TrackBar25: TTrackBar
Tag = 1
Left = 26
Top = 27
Width = 112
Height = 25
Hint = 'Pressing "0" (zero) sets the trackbar to its zero position.'
Max = 255
ParentShowHint = False
PageSize = 1
Frequency = 128
Position = 128
SelEnd = 128
SelStart = 128
ShowHint = True
TabOrder = 0
ThumbLength = 18
OnChange = TrackBar26Change
OnKeyPress = TrackBar21KeyPress
end
object TrackBar26: TTrackBar
Left = 26
Top = 1
Width = 112
Height = 25
Hint = 'Pressing "0" (zero) sets the trackbar to its zero position.'
Max = 255
ParentShowHint = False
PageSize = 1
Frequency = 128
Position = 128
SelEnd = 128
SelStart = 128
ShowHint = True
TabOrder = 1
ThumbLength = 18
OnChange = TrackBar26Change
OnKeyPress = TrackBar21KeyPress
end
object TrackBar27: TTrackBar
Tag = 2
Left = 26
Top = 53
Width = 112
Height = 25
Hint = 'Pressing "0" (zero) sets the trackbar to its zero position.'