-
Notifications
You must be signed in to change notification settings - Fork 1
/
uMensagemDlgTypes.pas
162 lines (140 loc) · 15.1 KB
/
uMensagemDlgTypes.pas
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
unit uMensagemDlgTypes;
interface
uses
FMX.Objects, FMX.StdCtrls;
type
WebBotoes = record
botao: TRectangle;
texto: TLabel;
end;
TArrayOfWebBotoes = array of WebBotoes;
TModeloDialogType = (
mdModelo1Aviso,
mdModelo1Erro,
mdModelo1Informacao,
mdModelo1Confirmacao,
mdModelo1Questionamento,
mdModelo2Sucesso,
mdModelo2Erro,
mdModelo3Sucesso,
mdModelo3Erro
);
TBotaoType = (mbSim, mbNao, mbOk, mbCancelar, mbAbortar, mbRepetir, mbIgnorar, mbTodos, mbNaoParaTodos, mbSimParaTodos, mbAjuda, mbContinuar, mbVoltar, mbTentarNovamente, mbSair);
TBotaoOnClick = procedure(Sender: TObject) of Object;
TArrayOfBotao = array of TBotaoType;
TArrayOfBotaoOnClick = array of TBotaoOnClick;
TArrayOfBoolean = array of Boolean;
const
cDlgImg: array [TModeloDialogType] of string = (
'M2321,5109 C1835,5066 1332,4860 945,4545 C831,4453 651,4271 561,4158 C332,3871 144,3483 66,3135 C17,2917 6,2810 6,2560 C6,2310 17,2203 66,1985 C145,1630 338,1236 '+
'575,945 C667,831 849,651 962,561 C1249,331 1638,144 1985,66 C2587,-69 3190,8 3735,289 C4119,487 4449,783 4694,1150 C4780,1278 4910,1534 4964,1681 C5015,1820 5067,2024 '+
'5092,2185 C5121,2372 5123,2736 5097,2910 C5007,3489 4762,3979 4364,4372 C4151,4582 3956,4722 3699,4849 C3266,5064 2803,5152 2321,5109 Z M2909,4855 C3838,4709 4589,4022 '+
'4811,3115 C4862,2908 4874,2796 4874,2560 C4874,2317 4860,2199 4805,1984 C4740,1730 4636,1495 4494,1283 C4391,1129 4311,1034 4173,900 C4035,765 3989,728 3838,627 C3561,442 '+
'3236,317 2890,264 C2730,239 2390,239 2230,264 C1884,317 1559,442 1282,627 C1131,728 1085,765 947,900 C809,1034 729,1129 626,1283 C442,1559 317,1885 264,2230 C239,2390 '+
'239,2730 264,2890 C317,3235 442,3561 626,3837 C729,3991 809,4086 947,4220 C1075,4345 1123,4385 1250,4472 C1566,4689 1951,4831 2330,4869 C2463,4882 2784,4875 2909,4855 Z '+
'M2480,3598 C2361,3537 2353,3389 2464,3306 C2485,3290 2506,3285 2554,3285 C2607,3285 2622,3289 2653,3313 C2702,3350 2720,3388 2720,3453 C2720,3522 2682,3579 2621,3604 '+
'C2565,3626 2533,3624 2480,3598 Z M2446,2838 C2443,2765 2438,2530 2435,2315 C2432,2101 2427,1807 2423,1663 L2417,1400 L2549,1400 L2680,1400 L2680,1478 C2681,1657 2658,2927 '+
'2654,2948 C2650,2969 2645,2970 2551,2970 L2452,2970 L2446,2838 Z',
'M2321,5109 C1835,5066 1332,4860 945,4545 C831,4453 651,4271 561,4158 C332,3871 144,3483 66,3135 C17,2917 6,2810 6,2560 C6,2310 17,2203 66,1985 C145,1630 338,1236 ' +
'575,945 C667,831 849,651 962,561 C1249,331 1638,144 1985,66 C2391,-25 2792,-20 3190,80 C3535,166 3908,354 4175,575 C4682,994 4995,1548 5097,2210 C5123,2384 5121,2748 '+
'5092,2935 C5049,3213 4978,3435 4850,3695 C4384,4641 3380,5203 2321,5109 Z M2900,4855 C3234,4803 3564,4676 3838,4493 C3989,4392 4035,4355 4173,4220 C4311,4086 4391,3991 '+
'4494,3837 C4678,3561 4803,3235 4856,2890 C4881,2733 4881,2389 4857,2235 C4783,1757 4589,1346 4273,999 C3915,604 3437,348 2898,263 C2742,238 2392,239 2230,264 C1885,317 '+
'1559,442 1282,627 C1131,728 1085,765 947,900 C809,1034 729,1129 626,1283 C442,1559 317,1885 264,2230 C239,2390 239,2730 264,2890 C317,3235 442,3561 626,3837 C729,3991 '+
'809,4086 947,4220 C1075,4345 1123,4385 1250,4472 C1566,4689 1950,4830 2330,4869 C2459,4882 2772,4874 2900,4855 Z M1682,3437 L1600,3355 L2000,2955 L2400,2555 L1998,2153 '+
'L1595,1750 L1678,1668 L1760,1585 L2158,1983 C2376,2201 2560,2380 2565,2380 C2570,2380 2754,2201 2972,1983 L3370,1585 L3452,1668 L3535,1750 L3132,2153 L2730,2555 L3130,2955 '+
'L3530,3355 L3448,3437 L3365,3520 L2965,3120 L2565,2720 L2165,3120 L1765,3520 L1682,3437 Z',
'M2321,5109 C1835,5066 1332,4860 945,4545 C831,4453 651,4271 561,4158 C332,3871 144,3483 66,3135 C17,2917 6,2810 6,2560 C6,2310 17,2203 66,1985 C145,1630 338,1236 '+
'575,945 C667,831 849,651 962,561 C1249,331 1638,144 1985,66 C2587,-69 3190,8 3735,289 C4119,487 4449,783 4694,1150 C4780,1278 4910,1534 4964,1681 C5015,1820 '+
'5067,2024 5092,2185 C5121,2372 5123,2736 5097,2910 C5007,3489 4762,3979 4364,4372 C4151,4582 3956,4722 3699,4849 C3266,5064 2803,5152 2321,5109 Z M2909,4855 '+
'C3838,4709 4589,4022 4811,3115 C4862,2908 4874,2796 4874,2560 C4874,2317 4860,2199 4805,1984 C4740,1730 4636,1495 4494,1283 C4391,1129 4311,1034 4173,900 '+
'C4035,765 3989,728 3838,627 C3561,442 3236,317 2890,264 C2730,239 2390,239 2230,264 C1884,317 1559,442 1282,627 C1131,728 1085,765 947,900 C809,1034 729,1129 '+
'626,1283 C442,1559 317,1885 264,2230 C239,2390 239,2730 264,2890 C317,3235 442,3561 626,3837 C729,3991 809,4086 947,4220 C1075,4345 1123,4385 1250,4472 C1566,4689 '+
'1951,4831 2330,4869 C2463,4882 2784,4875 2909,4855 Z M2270,3704 C2192,3670 2141,3590 2126,3475 C2105,3323 2197,2874 2341,2423 L2371,2330 L2443,2308 C2587,2263 '+
'2790,2285 2777,2344 C2775,2356 2745,2453 2711,2560 C2595,2926 2539,3168 2537,3317 C2535,3390 2538,3412 2551,3426 C2567,3441 2570,3441 2603,3425 C2681,3388 '+
'2835,3147 2946,2886 C2996,2770 2999,2771 2967,2890 C2863,3267 2655,3618 2489,3695 C2426,3724 2326,3728 2270,3704 Z M2645,2041 C2565,2005 2520,1927 '+
'2520,1828 C2520,1754 2542,1699 2591,1651 C2635,1607 2680,1589 2745,1589 C2897,1589 2995,1739 2949,1903 C2936,1950 2879,2015 2829,2041 C2780,2065 2698,2066 2645,2041 Z',
'M2321,5109 C1835,5066 1332,4860 945,4545 C831,4453 651,4271 561,4158 C332,3871 144,3483 66,3135 C17,2917 6,2810 6,2560 C6,2310 17,2203 66,1985 C145,1630 338,1236 ' +
'575,945 C667,831 849,651 962,561 C1249,331 1638,144 1985,66 C2587,-69 3190,8 3735,289 C4119,487 4449,783 4694,1150 C4780,1278 4910,1534 4964,1681 C5015,1820 5067,2024 '+
'5092,2185 C5121,2372 5123,2736 5097,2910 C5007,3489 4762,3979 4364,4372 C4151,4582 3956,4722 3699,4849 C3266,5064 2803,5152 2321,5109 Z M2909,4855 C3838,4709 4589,4022 ' +
'4811,3115 C4862,2908 4874,2796 4874,2560 C4874,2317 4860,2199 4805,1984 C4740,1730 4636,1495 4494,1283 C4391,1129 4311,1034 4173,900 C4035,765 3989,728 3838,627 C3561,442 ' +
'3236,317 2890,264 C2730,239 2390,239 2230,264 C1884,317 1559,442 1282,627 C1131,728 1085,765 947,900 C809,1034 729,1129 626,1283 C442,1559 317,1885 264,2230 C239,2390 '+
'239,2730 264,2890 C317,3235 442,3561 626,3837 C729,3991 809,4086 947,4220 C1075,4345 1123,4385 1250,4472 C1566,4689 1951,4831 2330,4869 C2463,4882 2784,4875 2909,4855 '+
'Z M2174,3363 C2157,3353 1975,3175 1769,2967 L1395,2588 L1485,2504 L1575,2420 L1906,2756 L2236,3092 L2885,2436 L3534,1779 L3620,1865 L3705,1950 L3005,2651 C2601,3055 '+
'2291,3358 2273,3366 C2231,3384 2211,3384 2174,3363 Z',
'M2321,5109 C1835,5066 1332,4860 945,4545 C831,4453 651,4271 561,4158 C332,3871 144,3483 66,3135 C17,2917 6,2810 6,2560 C6,2310 17,2203 66,1985 C145,1630 338,1236 '+
'575,945 C667,831 849,651 962,561 C1249,331 1638,144 1985,66 C2587,-69 3190,8 3735,289 C4119,487 4449,783 4694,1150 C4780,1278 4910,1534 4964,1681 C5015,1820 '+
'5067,2024 5092,2185 C5121,2372 5123,2736 5097,2910 C5007,3489 4762,3979 4364,4372 C4151,4582 3956,4722 3699,4849 C3266,5064 2803,5152 2321,5109 Z M2909,4855 '+
'C3838,4709 4589,4022 4811,3115 C4862,2908 4874,2796 4874,2560 C4874,2317 4860,2199 4805,1984 C4740,1730 4636,1495 4494,1283 C4391,1129 4311,1034 4173,900 C4035,765 '+
'3989,728 3838,627 C3561,442 3236,317 2890,264 C2730,239 2390,239 2230,264 C1884,317 1559,442 1282,627 C1131,728 1085,765 947,900 C809,1034 729,1129 626,1283 '+
'C442,1559 317,1885 264,2230 C239,2390 239,2730 264,2890 C317,3235 442,3561 626,3837 C729,3991 809,4086 947,4220 C1075,4345 1123,4385 1250,4472 C1566,4689 '+
'1951,4831 2330,4869 C2463,4882 2784,4875 2909,4855 Z M2495,3756 C2415,3720 2367,3623 2389,3542 C2433,3382 2642,3353 2726,3496 C2780,3587 2742,3707 2646,3751 '+
'C2598,3773 2537,3775 2495,3756 Z M2415,3068 C2384,2973 2371,2808 2390,2729 C2403,2670 2455,2567 2503,2505 C2520,2483 2602,2395 2686,2310 C2907,2084 2957,1995 '+
'2948,1844 C2935,1643 2742,1519 2491,1551 C2348,1569 2232,1623 2125,1721 L2079,1763 L2082,1615 L2085,1466 L2155,1429 C2321,1339 2529,1297 2703,1318 C3014,1356 '+
'3202,1533 3217,1800 C3224,1908 3209,1986 3164,2080 C3114,2186 3067,2245 2894,2415 C2735,2572 2670,2657 2645,2744 C2620,2826 2626,2887 2676,3058 L2682,3080 '+
'L2551,3080 C2455,3080 2418,3077 2415,3068 Z',
'M2890,5759 C2398,5705 1949,5516 1571,5202 C1431,5086 1208,4852 1101,4711 C861,4391 708,4026 643,3620 C617,3453 617,2907 643,2740 ' +
'C708,2334 861,1969 1101,1649 C1208,1508 1431,1274 1571,1158 C1921,868 2334,683 2790,613 C2956,587 3504,587 3670,613 C4126,683 4539,868 ' +
'4889,1158 C5029,1274 5252,1508 5359,1649 C5599,1969 5752,2334 5817,2740 C5843,2907 5843,3453 5817,3620 C5752,4026 5599,4391 5359,4711 C5252,4852 ' +
'5029,5086 4889,5202 C4542,5489 4128,5676 3680,5746 C3556,5765 3026,5774 2890,5759 Z M3480,5344 C3895,5285 4325,5097 4657,4829 C4919,4617 ' +
'5154,4274 5294,3896 C5341,3772 5393,3567 5416,3425 C5514,2793 5177,1951 4657,1531 C4252,1204 3700,997 3230,997 C2760,997 2208,1204 1803,1531 ' +
'C1482,1791 1214,2230 1095,2694 C1004,3050 1004,3310 1095,3666 C1214,4130 1482,4569 1803,4829 C2113,5080 2510,5262 2894,5330 C3130,5372 3261,5375 ' +
'3480,5344 Z M2225,4171 C2125,4144 2037,4072 1993,3981 C1969,3932 1966,3913 1966,3835 C1966,3765 1971,3734 1988,3697 C2018,3631 2092,3555 2159,3523 ' +
'C2207,3499 2227,3496 2305,3496 C2383,3496 2403,3499 2451,3523 C2518,3555 2592,3631 2622,3697 C2639,3734 2644,3765 2644,3835 C2644,3913 2641,3932 ' +
'2617,3981 C2584,4049 2508,4123 2443,4151 C2391,4174 2274,4184 2225,4171 Z M4075,4171 C3975,4144 3887,4072 3843,3981 C3819,3932 3816,3913 3816,3835 ' +
'C3816,3765 3821,3734 3838,3697 C3868,3631 3942,3555 4009,3523 C4057,3499 4077,3496 4155,3496 C4233,3496 4253,3499 4301,3523 C4368,3555 4442,3631 4472,3697 ' +
'C4489,3734 4494,3765 4494,3835 C4494,3913 4491,3932 4467,3981 C4434,4049 4358,4123 4293,4151 C4241,4174 4124,4184 4075,4171 Z M1910,2665 C1910,2653 1976,2531 2022,2456 ' +
'C2217,2142 2498,1913 2823,1805 C3411,1609 4056,1873 4418,2456 C4464,2531 4530,2653 4530,2665 C4530,2668 3941,2670 3220,2670 C2500,2670 1910,2668 1910,2665 Z ',
'M2890,5759 C2398,5705 1949,5516 1571,5202 C1431,5086 1208,4852 1101,4711 C861,4391 708,4026 643,3620 C617,3453 617,2907 643,2740 C708,2334 861,1969 1101,1649 ' +
'C1208,1508 1431,1274 1571,1158 C1921,868 2334,683 2790,613 C2956,587 3504,587 3670,613 C4126,683 4539,868 4889,1158 C5029,1274 5252,1508 5359,1649 C5599,1969 ' +
'5752,2334 5817,2740 C5843,2907 5843,3453 5817,3620 C5752,4026 5599,4391 5359,4711 C5252,4852 5029,5086 4889,5202 C4542,5489 4128,5676 3680,5746 C3556,5765 3026,5774 ' +
'2890,5759 Z M3480,5344 C3895,5285 4325,5097 4657,4829 C4919,4617 5154,4274 5294,3896 C5341,3772 5393,3567 5416,3425 C5514,2793 5177,1951 4657,1531 C4252,1204 ' +
'3700,997 3230,997 C2760,997 2208,1204 1803,1531 C1482,1791 1214,2230 1095,2694 C1004,3050 1004,3310 1095,3666 C1214,4130 1482,4569 1803,4829 C2113,5080 2510,5262 ' +
'2894,5330 C3130,5372 3261,5375 3480,5344 Z M2225,4171 C2125,4144 2037,4072 1993,3981 C1969,3932 1966,3913 1966,3835 C1966,3765 1971,3734 1988,3697 C2018,3631 ' +
'2092,3555 2159,3523 C2207,3499 2227,3496 2305,3496 C2383,3496 2403,3499 2451,3523 C2518,3555 2592,3631 2622,3697 C2639,3734 2644,3765 2644,3835 C2644,3913 2641,3932 ' +
'2617,3981 C2584,4049 2508,4123 2443,4151 C2391,4174 2274,4184 2225,4171 Z M4075,4171 C3975,4144 3887,4072 3843,3981 C3819,3932 3816,3913 3816,3835 C3816,3765 3821,3734 ' +
'3838,3697 C3868,3631 3942,3555 4009,3523 C4057,3499 4077,3496 4155,3496 C4233,3496 4253,3499 4301,3523 C4368,3555 4442,3631 4472,3697 C4489,3734 4494,3765 4494,3835 ' +
'C4494,3913 4491,3932 4467,3981 C4434,4049 4358,4123 4293,4151 C4241,4174 4124,4184 4075,4171 Z M3020,2653 C2630,2594 2256,2332 2022,1954 C1976,1879 1910,1757 1910,1745 ' +
'C1910,1742 2500,1740 3220,1740 C3941,1740 4530,1742 4530,1745 C4530,1757 4464,1879 4418,1954 C4099,2468 3562,2737 3020,2653 Z',
'M2321,5109 C1835,5066 1332,4860 945,4545 C831,4453 651,4271 561,4158 C332,3871 144,3483 66,3135 C17,2917 6,2810 6,2560 C6,2310 17,2203 66,1985 C145,1630 338,1236 ' +
'575,945 C667,831 849,651 962,561 C1249,331 1638,144 1985,66 C2587,-69 3190,8 3735,289 C4119,487 4449,783 4694,1150 C4780,1278 4910,1534 4964,1681 C5015,1820 5067,2024 '+
'5092,2185 C5121,2372 5123,2736 5097,2910 C5007,3489 4762,3979 4364,4372 C4151,4582 3956,4722 3699,4849 C3266,5064 2803,5152 2321,5109 Z M2909,4855 C3838,4709 4589,4022 ' +
'4811,3115 C4862,2908 4874,2796 4874,2560 C4874,2317 4860,2199 4805,1984 C4740,1730 4636,1495 4494,1283 C4391,1129 4311,1034 4173,900 C4035,765 3989,728 3838,627 C3561,442 ' +
'3236,317 2890,264 C2730,239 2390,239 2230,264 C1884,317 1559,442 1282,627 C1131,728 1085,765 947,900 C809,1034 729,1129 626,1283 C442,1559 317,1885 264,2230 C239,2390 '+
'239,2730 264,2890 C317,3235 442,3561 626,3837 C729,3991 809,4086 947,4220 C1075,4345 1123,4385 1250,4472 C1566,4689 1951,4831 2330,4869 C2463,4882 2784,4875 2909,4855 '+
'Z M2174,3363 C2157,3353 1975,3175 1769,2967 L1395,2588 L1485,2504 L1575,2420 L1906,2756 L2236,3092 L2885,2436 L3534,1779 L3620,1865 L3705,1950 L3005,2651 C2601,3055 '+
'2291,3358 2273,3366 C2231,3384 2211,3384 2174,3363 Z',
'M2321,5109 C1835,5066 1332,4860 945,4545 C831,4453 651,4271 561,4158 C332,3871 144,3483 66,3135 C17,2917 6,2810 6,2560 C6,2310 17,2203 66,1985 C145,1630 338,1236 ' +
'575,945 C667,831 849,651 962,561 C1249,331 1638,144 1985,66 C2391,-25 2792,-20 3190,80 C3535,166 3908,354 4175,575 C4682,994 4995,1548 5097,2210 C5123,2384 5121,2748 '+
'5092,2935 C5049,3213 4978,3435 4850,3695 C4384,4641 3380,5203 2321,5109 Z M2900,4855 C3234,4803 3564,4676 3838,4493 C3989,4392 4035,4355 4173,4220 C4311,4086 4391,3991 '+
'4494,3837 C4678,3561 4803,3235 4856,2890 C4881,2733 4881,2389 4857,2235 C4783,1757 4589,1346 4273,999 C3915,604 3437,348 2898,263 C2742,238 2392,239 2230,264 C1885,317 '+
'1559,442 1282,627 C1131,728 1085,765 947,900 C809,1034 729,1129 626,1283 C442,1559 317,1885 264,2230 C239,2390 239,2730 264,2890 C317,3235 442,3561 626,3837 C729,3991 '+
'809,4086 947,4220 C1075,4345 1123,4385 1250,4472 C1566,4689 1950,4830 2330,4869 C2459,4882 2772,4874 2900,4855 Z M1682,3437 L1600,3355 L2000,2955 L2400,2555 L1998,2153 '+
'L1595,1750 L1678,1668 L1760,1585 L2158,1983 C2376,2201 2560,2380 2565,2380 C2570,2380 2754,2201 2972,1983 L3370,1585 L3452,1668 L3535,1750 L3132,2153 L2730,2555 L3130,2955 '+
'L3530,3355 L3448,3437 L3365,3520 L2965,3120 L2565,2720 L2165,3120 L1765,3520 L1682,3437 Z'
);
cDlgMsg: array [TBotaoType] of string = (
'Sim',
'Não',
'Ok',
'Cancelar',
'Abortar',
'Repetir',
'Ignorar',
'Todos',
'Não para todos',
'Sim para todos',
'Ajuda',
'Continuar',
'Voltar',
'Tentar novamente',
'Sair'
);
cCorBranca = $FFFFFFFF;
cCorPreta = $FF000000;
cIconeFechar =
'M500,4626 C396,4521 310,4434 310,4431 C310,4428 730,4005 1242,3493 L2175,2560 L1242,1628 C730,1115 310,691 310,686 C310,675 676,310 ' +
'687,310 C691,310 1115,730 1627,1242 L2560,2175 L3493,1242 C4005,730 4429,310 4433,310 C4444,310 4810,675 4810,686 C4810,691 4390,1115 ' +
'3878,1628 L2945,2560 L3878,3493 C4390,4005 4810,4428 4810,4431 C4810,4434 4724,4521 4620,4626 L4430,4815 L3495,3880 L2560,2945 L1625,3880 ' +
'L690,4815 L500,4626 Z ';
implementation
end.