D4D: Programmers Wishlist. Contribute ideas for modifications, new features and limitations in the DataCad / macro interface.
Joe
User since V2.4
User since V2.4
TXClipPointsRec = packed record
case byte of
1 : (sz : Byte;
npnts : Byte;
Pnts : array [1..15] of point2d);
0 : (str : str255);
End;
procedure ShowXClipsPoints(ent : entity);
var
idx : integer;
atr : attrib;
prec : TXClipPointsRec ;
PntCnt : integer;
begin
idx := 0;
PntCnt := 0;
While true do
begin
atr.name := Format('DC-XCLIP%.3d',[Idx]);
inc(idx);
if atr_find(ent.frstatr, atr.name, atr) then
begin
PRec.str := atr.shstr; //not available in old DCAL
For i := 1 to PRec.npnts do
begin
inc(PntCnt);
Showmessage(Format('Point_%.3d x=%f, y=%f',[PntCnt,PRec.pnts[i].x,PRec.pnts[i].y]));
end;
end else
break;
end;
end;
atr_str255: (shstr: str255);
Users browsing this forum: No registered users and 2 guests