Jump to content
tbwalker

GUI Button Text Alignment & Text Color question

Recommended Posts

I'm trying to change the text color of a button without changing the text alignment, but I must be missing something.

Here is my sample script:

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
Local $Form1 = GUICreate("button text color test", 250, 250)
;BUTTON 1 WITH NO TEXT COLOR CHANGE
Local $button1 = GUICtrlCreateButton("Line 1 of text" & @CRLF & "Line 2 of text" _
        & @CRLF & "Line 3 of text", 50, 10, 150, 70, BitOR($BS_MULTILINE,$BS_LEFT))

;BUTTON 2 WITH TEXT COLOR CHANGE
Local $button2 = GUICtrlCreateButton("Line 1 of text" & @CRLF & "Line 2 of text" _
        & @CRLF & "Line 3 of text", 50, 100, 150, 70, BitOR($BS_MULTILINE,$BS_LEFT))
GUICtrlSetColor ( $button2, 0xCC0066 )

GUISetState()
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            MsgBox(0, "ControlID = " & $Button1, "Button 1 was Pressed!")
        Case $Button2
            MsgBox(0, "ControlID = " & $Button1, "Button 2 was Pressed!")
    EndSwitch
WEnd

 

The top button is formatted the way I want with the text aligned to the left and vertically centered top to bottom in the button, and it contains the shaded button background.

The only change made to $button2 is the extra GUICtrlSetColor ( $button2, 0xCC0066 ) below the button.  It does change the text color to the desired color, but the vertical formatting and background shading are screwed up.

Am I doing something wrong in my code, or is this just what will happen if I try and color text in a button?  Any help or advice would be greatly appreciated.

 

Thanks,

tbwalker

Button GUI screenshot.JPG

Share this post


Link to post
Share on other sites

Thanks for the link... I was afraid it was going to be something like that.  I guess I'll have to keep digging for another solution to the problem.

Share this post


Link to post
Share on other sites

Hi,

Alas, I can only offer the advice not to colour buttons!

M23


Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Labels will do the job.

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
Local $Form1 = GUICreate("button text color test", 250, 250)
;BUTTON 1 WITH NO TEXT COLOR CHANGE
Local $button1 = GUICtrlCreateLabel("Line 1 of text" & @CRLF & "Line 2 of text" _
        & @CRLF & "Line 3 of text", 50, 10, 150, 70) ; , BitOR($BS_MULTILINE,$BS_LEFT))

;BUTTON 2 WITH TEXT COLOR CHANGE
Local $button2 = GUICtrlCreateLabel("Line 1 of text" & @CRLF & "Line 2 of text" _
        & @CRLF & "Line 3 of text", 50, 100, 150, 70) ; , BitOR($BS_MULTILINE,$BS_LEFT))
GUICtrlSetColor ( $button2, 0xCC0066 )

GUISetState()
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            MsgBox(0, "ControlID = " & $Button1, "Button 1 was Pressed!")
        Case $Button2
            MsgBox(0, "ControlID = " & $Button1, "Button 2 was Pressed!")
    EndSwitch
WEnd

 


MEASURE TWICE - CUT ONCE

Share this post


Link to post
Share on other sites

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...