Jump to content
Developer Wiki and Function Reference Links ×

Hatch background colour


panta rhei

Recommended Posts

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);

Link to comment

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...