mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 13:29:27 +02:00
63f80f3472
referring to an array field, but instead simply convert the index
to the array range type (mantis #8810)
git-svn-id: trunk@7260 -
39 lines
754 B
ObjectPascal
39 lines
754 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
{$r+}
|
|
|
|
CONST MaxBitmaps=129;
|
|
|
|
TYPE tbitmap = longint;
|
|
TBack =CLASS
|
|
constructor create;
|
|
PRIVATE
|
|
FBitmaps :ARRAY [0..MaxBitmaps] OF TBitmap;
|
|
|
|
PUBLIC
|
|
PROPERTY Bitmap :TBitmap READ FBitmaps[0];
|
|
PROPERTY LightBitmap :TBitmap READ FBitmaps[1];
|
|
PROPERTY ShadowBitmap:TBitmap READ FBitmaps[2];
|
|
end;
|
|
|
|
constructor tback.create;
|
|
var
|
|
i: longint;
|
|
begin
|
|
for i := low(fbitmaps) to high(fbitmaps) do
|
|
fbitmaps[i] := i;
|
|
end;
|
|
|
|
var
|
|
b: tback;
|
|
begin
|
|
b:=tback.create;
|
|
if (b.Bitmap <> 0) or
|
|
(b.LightBitmap <> 1) or
|
|
(b.ShadowBitmap <> 2) then
|
|
halt(1);
|
|
b.free;
|
|
end.
|