blob: d71451ddea61fa9bf4b22b8b2d4cad0bcec13c7a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %norun }
program rangeerror;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
{$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}
sysutils;
type
colorty = type longword;
const
cl_mapped = colorty($90000000);
type
ttestclass = class
private
fcolor: colorty;
published
property color: colorty read fcolor write fcolor default cl_mapped; //<<--
end;
begin
end.
|
