mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
32 lines
542 B
ObjectPascal
32 lines
542 B
ObjectPascal
{ %opt=-O-}
|
|
type
|
|
TIpHtmlElemMarginStyle = (
|
|
hemsAuto, // use default
|
|
hemsPx // pixel
|
|
);
|
|
TIpHtmlElemMargin = record
|
|
Style: TIpHtmlElemMarginStyle;
|
|
Size: single;
|
|
end;
|
|
|
|
var
|
|
tmp2 :TIpHtmlElemMargin;
|
|
|
|
function test_fn:TIpHtmlElemMargin;
|
|
var
|
|
tmp1 :TIpHtmlElemMargin;
|
|
begin
|
|
tmp1.Size := 3.123;
|
|
tmp1.Style := hemsPx;
|
|
test_fn := tmp1;
|
|
end;
|
|
|
|
begin
|
|
tmp2 := test_fn();
|
|
if(tmp2.Style <> hemsPx)then
|
|
halt(1);
|
|
if(Abs(tmp2.Size - 3.123) > 0.01)then
|
|
halt(2);
|
|
writeln('ok ');
|
|
end.
|