is there a way to change font color

[andrew]

is there any way to change the font color of a label?

[owenwengerd]

Take a look at the Foreground Color property.

[andrew]

ahh nice thanks Owen

is there something else i need to do?

i changed it in the editor but it still shows black in the acad screen

[owenwengerd]

Make sure you save the change, then reload the project in AutoCAD.

[andrew]

Make sure you save the change, then reload the project in AutoCAD.

ive closed down autocad and restarted it.
still no dice.

[BazzaCAD]

Worked for me on Win7, Acad2010.
Are you sure it's not loading anther version of your project?

[andrew]

Worked for me on Win7, Acad2010.
Are you sure it's not loading anther version of your project?

im certain its not loading another version
im using win7 acad 09

[owenwengerd]

If you can attach the files, someone can take a look.

[andrew]

If you can attach the files, someone can take a look.

sure can

if you view the odcl file its the colored text is located in form3 in the modal dialogs

if you run the program and click on the button that says "release"
that will bring up the dialog that the colored text should appear on

thanks

[owenwengerd]

The label displays red as expected for me.

[BazzaCAD]

When I tested with 6.0.0.16, I didn't get Red, when I tested with 6.0.0.20 I did get Red.
What version are you on? I'm guessing a bug was fixes between these versions?
I also get "error: Automation Error. Out of range" when I hit the "Release" button...

I've also noticed your "delete_confirm" & "merge_confirmation" forms are pretty much message boxes.
Do you know about the MessageBox function?

[andrew]

hi Barry,

im using version 6.0.0.15 so maybe thats why the text isnt red.

ill have to update the files to a newer version.

yes i know about the message boxes but using the ones i made, after you press the yes or no they do a function according to the response.

thanks for checking it out.

[BazzaCAD]

The Messagebox also gives return values:

Code (autolisp) Select Expand


(setq YesNo (dcl_MessageBox "Do you want to do this?" "Warning" 5 3 nil))
(if (= YesNo 6)
  (DoYesStuff)
  (DoNoStuff)
)

OR

Code (autolisp) Select Expand


(if (= 6 (dcl_MessageBox "Do you want to do this?" "Warning" 5 3 nil))
 (DoYesStuff)
 (DoNoStuff)
)

Return Values     Button
1       [OK]
2       [Cancel]
3       [Abort]
4       [Retry]
5       [Ignore]
6       [Yes]
7       [No]

[andrew]

i didnt know that. cool
ill look into that

thanks again