On Sun, 10 Dec 2023 20:10:38 +0300, Mehmet Erol Sanliturk via lazarus
<lazarus@lists.lazarus-ide.org> wrote:
>There is a statement
>
> 90 {$ENDIF}
>
>Its outside of {$IFDEF } is not listed .
>It is very likely that
>
>mrNone..mrLast
>
>values are defined outside of ( IFDEF , ENDIF ) pairs .
>
Below is the full text of that file and the only define used is on line 2 where
the fpc compiler is checked to be 3.2.0 or above in which case the reading of
the file should be lines 3..56 and then continue on line 91.
So since the compiler is fpc ver 3.2.2 this should NOT bring us down to line
58..89, but it seems like it jumps there anyway...
Where is the identifier FPC_FULLVERSION defined??
Anyway, I gave up and disabled my own compiler and installed fpc 3.2.2 via apt
and then the issue does not appear anymore.
But now I have the fpc compiler *outside* of my $HOME file hierarchy...
See also my notes at the bottom of the file (lines 89 and 105).
File body:/home/bosse/devtools/lazarus/2.2.6/components/lazutils/uitypes.pas
----------------------------------------------------------------------------
1 unit UITypes
2 {$IF FPC_FULLVERSION >= 30200}
3 deprecated 'Use System.UITypes instead (available since FPC 3.2.0)';
4
5 {$mode objfpc}{$H+}
6
7 interface
8
9 uses
10 System.UITypes;
11
12 const
13 mtWarning = System.UITypes.TMsgDlgType.mtWarning;
14 mtError = System.UITypes.TMsgDlgType.mtError;
15 mtInformation = System.UITypes.TMsgDlgType.mtInformation;
16 mtConfirmation = System.UITypes.TMsgDlgType.mtConfirmation;
17 mtCustom = System.UITypes.TMsgDlgType.mtCustom;
18
19 mbYes = System.UITypes.TMsgDlgBtn.mbYes;
20 mbNo = System.UITypes.TMsgDlgBtn.mbNo;
21 mbOK = System.UITypes.TMsgDlgBtn.mbOK;
22 mbCancel = System.UITypes.TMsgDlgBtn.mbCancel;
23 mbAbort = System.UITypes.TMsgDlgBtn.mbAbort;
24 mbRetry = System.UITypes.TMsgDlgBtn.mbRetry;
25 mbIgnore = System.UITypes.TMsgDlgBtn.mbIgnore;
26 mbAll = System.UITypes.TMsgDlgBtn.mbAll;
27 mbNoToAll = System.UITypes.TMsgDlgBtn.mbNoToAll;
28 mbYesToAll = System.UITypes.TMsgDlgBtn.mbYesToAll;
29 mbHelp = System.UITypes.TMsgDlgBtn.mbHelp;
30 mbClose = System.UITypes.TMsgDlgBtn.mbClose;
31
32 type
33 // Message dialog related
34 TMsgDlgType = System.UITypes.TMsgDlgType;
35 TMsgDlgBtn = System.UITypes.TMsgDlgBtn;
36 TMsgDlgButtons = set of System.UITypes.TMsgDlgBtn;
37
38 // ModalResult
39 TModalResult = System.UITypes.TModalResult;
40 PModalResult = System.UITypes.PModalResult;
41
42 const
43 // Used for ModalResult
44 mrNone = System.UITypes.mrNone;
45 mrOK = System.UITypes.mrOK;
46 mrCancel = System.UITypes.mrCancel;
47 mrAbort = System.UITypes.mrAbort;
48 mrRetry = System.UITypes.mrRetry;
49 mrIgnore = System.UITypes.mrIgnore;
50 mrYes = System.UITypes.mrYes;
51 mrNo = System.UITypes.mrNo;
52 mrAll = System.UITypes.mrAll;
53 mrNoToAll = System.UITypes.mrNoToAll;
54 mrYesToAll = System.UITypes.mrYesToAll;
55 mrClose = System.UITypes.mrClose;
56 mrLast = System.UITypes.mrLast;
57 {$ELSE}
58 ;
59
60 {$mode objfpc}{$H+}
61
62 interface
63
64 type
65 // Message dialog related
66 TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation,
mtCustom);
67 TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
68 mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
69 TMsgDlgButtons = set of TMsgDlgBtn;
70
71 // ModalResult
72 TModalResult = low(Integer)..high(Integer);
73 PModalResult = ^TModalResult;
74
75 const
76 // Used for ModalResult
77 mrNone = 0;
78 mrOK = mrNone + 1;
79 mrCancel = mrNone + 2;
80 mrAbort = mrNone + 3;
81 mrRetry = mrNone + 4;
82 mrIgnore = mrNone + 5;
83 mrYes = mrNone + 6;
84 mrNo = mrNone + 7;
85 mrAll = mrNone + 8;
86 mrNoToAll = mrNone + 9;
87 mrYesToAll = mrNone + 10;
88 mrClose = mrNone + 11;
89 mrLast = mrClose; //Should this be: mrLast = mrNone + 12 maybe???
90 {$ENDIF}
91
92 // String representation of ModalResult values
93 ModalResultStr: array[mrNone..mrLast] of shortstring = (
94 'mrNone',
95 'mrOk',
96 'mrCancel',
97 'mrAbort',
98 'mrRetry',
99 'mrIgnore',
100 'mrYes',
101 'mrNo',
102 'mrAll',
103 'mrNoToAll',
104 'mrYesToAll',
105 'mrClose'); //Should there be another line for mrLast maybe???
106
107
108 implementation
109
110 end.
------------------------------------------
--
Bo Berglund
Developer in Sweden
--
_______________________________________________
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
