panta rhei Posted February 11, 2009 Share Posted February 11, 2009 I'd need to get the colorIndex of user-created hatches, ie. the background fill colour (if any). Can't find a relevant call or even an object variable from the VS documentation. PROCEDURE BeginVectorFillN ( VAR vectorFillName :STRING; pageSpace :BOOLEAN; rotateInWall :BOOLEAN; colorIndex :INTEGER ) ; In a test file, exported as VS, the colorIndex was 1237. I thought I might be able to check every object variable (int & longint) and find this value, but that did not work. Any ideas? PROCEDURE HatchColour; CONST testValue = 1237; VAR h : HANDLE; i, j : INTEGER; iL, jL : LONGINT; msg : STRING; BEGIN h := GETOBJECT('Name of the hatch'); FOR i := 1 TO 32535 DO BEGIN j := GETOBJECTVARIABLEINT(h, i); IF (j=testValue) THEN BEGIN msg := NUM2STR(0, j); ALRTDIALOG(msg); END; END; END; RUN(HatchColour); Quote Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.