Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.0.0 ▾
|
type
TDragHandleStyle = (dhDouble, dhNone, dhSingle);
var b : boolean;
fdraghandlestyle : TDraghandlestyle;
i : longint;
begin
i:=0;
FDraghandlestyle:=dhDouble;
for B := False to (FDragHandleStyle = dhDouble) do
inc(i);
if (i<>2) then
halt(1);
end.