mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
22 lines
409 B
ObjectPascal
22 lines
409 B
ObjectPascal
{ %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.
|