The Hamma Posted November 8, 2010 Share Posted November 8, 2010 This is not working and I have no idea why, any help would be appreciated. Procedure linecolor; Var cw: longint; r,g,b: LONGINT; h: handle; BEGIN GetFillFore(h, r,g,b); if r,g,b =(0,0,255) then SetFillFore(h :255,255,255); End; Run (linecolor); Quote Link to comment
The Hamma Posted November 8, 2010 Author Share Posted November 8, 2010 Thank you and yes I know about the handle this is just part of the whole. Quote Link to comment
MullinRJ Posted November 8, 2010 Share Posted November 8, 2010 Another thing to note, the color space for RGB is not 0..255, but rather 0..65535. You can convert easily by multiplying each 0..255 value by 257. As TBE points out, you need to get a handle to your object. The easiest one is FSActLayer. It can get much more complicated if you want your script to work off the active layer, but for most uses H := FSActLayer; will work. Raymond 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.