Jump to content

Label problems...


Marius
 Share

Recommended Posts

:)

Hi!

I have problem with damn labels. What I did was a GUI with background.

Then I added few labels with white color text on them.

(everything was written in Scite)

Checked with CTRL+F5. Everything went fine. Then compiled and tried newly created exe... Everything worked, except labels were with white background color (I haven't used GUICTRLSetBkColor!)

What happened?

Here's copy of script:

;; Prijungti
#include <GUIConstants.au3>
#include <Date.au3>
;; /Prijungti

;; Kintamieji
$ver = "0.1"
$firma = '"RipStar"'
$address = "http://www.ripstar.lt"
$mail ="ripstar@ripstar.lt"
$tel = "865141743"
$ftp = ""
$data = _NowCalcDate()
;; /Kintamieji


;; GUI
$gui = GUICreate("Usakovas v" & $ver & " by " & $firma & " (iandien yra: " & $data & ")", 600, 600)

$back = GUICtrlCreatePic ("newmark1.bmp", 0, 0, 600, 600)

GUISetState (@SW_SHOW)
GUISetFont(-1, -1, -1, "Arial")

$menu1 = GUICtrlCreateMenu ( "Programa", -1)
$exit = GUICtrlCreateMenuitem ( "Ieiti", $menu1)


$menu2 = GUICtrlCreateMenu ( "Pagalba", -1)
$about = GUICtrlCreateMenuitem ( "Apie", $menu2)

GUICtrlCreateGroup("Kontaktinė informacija:", 60, 60, 480, 300)

$z1 = GUICtrlCreateLabel("Vardas:", 80, 90, 70, 25)

$vardas = GUICtrlCreateInput("", 160, 90, 200, 20)

GUICtrlSetFont($z1, 12 , -1, 2, "Arial")
GUICtrlSetColor($z1, 0xFFFFFF)
GUICtrlSetBkColor($z1, -1)

$z2 = GUICtrlCreateLabel("Pavardė:", 80, 125, 70, 25)

$pavarde = GUICtrlCreateInput("", 160, 125, 200, 20)

GUICtrlSetFont($z2, 12 , -1, 2, "Arial")
GUICtrlSetColor($z2, 0xFFFFFF)
GUICtrlSetBkColor($z2, -1)

$label = GUICtrlCreateLabel("created by Dirty_Bastard, 2005", 360, 545, 200, 25)
GUICtrlSetFont($label, 10, -1, -1, "Comic Sans MS")
GUICtrlSetColor($label, 0xFFFFFF)
GuiCtrlSetState($back, $GUI_DISABLE)
;; /GUI


;; Veiksmai
While 1
    $msg = GUIGetMsg()
    
    If $msg = $about Then
        MsgBox(32, "Apie", "Usakovas v" & $ver & @CRLF & @CRLF & "i programa padės usakyti norimą paslaugą i firmos " & $firma & "." & @CRLF & "(Detalesnė informacija adresu: " & $address & ")" & @CRLF & @CRLF & "Telefonas: " & $tel & @CRLF & "WWW: " & $address & @CRLF & "@mail: " & $mail)
    EndIf
    
    If $msg = $GUI_EVENT_CLOSE Or $msg = $exit Then ExitLoop
Wend
;; /Veiksmai

:evil:

I've searched for such problem whole forum. But... haven't found exact answer.

Edited by Marius
Marius back in da hood! :)
Link to comment
Share on other sites

The label's in the beta have a transparent background, the stable release of AutoIt doesn't. So it appear's to me that when you compile using CTRL + F5 it is compiling using the stable version, not the beta.

Sorry don't know how to change the compiler dir, should ask JdeB or someone who is involved with SciTe, but atleast you know the problem :).

qq

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...