FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Pocket PC Anomaly with BTNBMP
Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
Anomaly with BTNBMP
Posted: Thu May 11, 2006 09:58 AM

Hello antonio

The button turns black when I do a double click on it ,with yust one click
it works ok .

Regards Maurizio
//----------------------------------------------------------------------------//
// SAMPLE
//----------------------------------------------------------------------------//

include "FWCE.ch"

Static oBtn
Static nC
function Main()
local oDlg
Local nC := 1
DEFINE DIALOG oDlg RESOURCE "test"
REDEFINE BTNBMP oBtn ID 103 OF oDlg PROMPT "Color" ACTION Color()
oBtn:SetColor( CLR_BLUE ,CLR_HRED)
ACTIVATE DIALOG oDlg CENTERED
return nil
Function Color()
IF nC == 1
nC := 2
oBtn:SetColor( CLR_BLUE ,CLR_YELLOW)
ELSE
oBtn:SetColor( CLR_BLUE ,CLR_HRED)
nC := 1
ENDIF
Return nil
//======================================
//----------------------------------------------------------------------------//
// RC FILE
//----------------------------------------------------------------------------//

ifdef _CE

#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"

endif

test DIALOG 10, 35, 139, 89
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "DialogBox Test"
FONT 8, "system"
{
PUSHBUTTON "Test", 103, 89, 12, 37, 29
}

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Anomaly with BTNBMP
Posted: Thu May 11, 2006 06:38 PM
Maurizio,

Instead of:
PUSHBUTTON "Test", 103, 89, 12, 37, 29

You should use
   CONTROL "", 103, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 89, 12, 37, 29
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion