topic-39993

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

xbrowse bitmap from resource
Posted: Sun Feb 14, 2021 08:36 AM

hi,
inside my .res file there are Bitmaps "RED" and "GREEN" (a little ball) and I link .res when compile.

how can I show bmp inside my XBROWSE after EMAIL column depending on EMAIL value (in EMAIL there is 1 for green or 2 for red numeric value) ?:

Code (fw): Select all Collapse

local oColB
DEFINE IMAGE oBmp RESOURCE "RED"
...
    @ 40,10 XBROWSE oBrw SIZE -10,-50 PIXEL ;
            ALIAS "CNTINS" ;
      COLUMNS "TPLET", "EMAIL"  ;
      HEADERS "Let.","Mail" ;
      PICTURE nil, nil ;             
      OF oDlg2
         oBrw:CreateFromCode()

thank you

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: xbrowse bitmap from resource
Posted: Sun Feb 14, 2021 10:15 AM

Parte del código ejemplo en testxbrw.prg

Code (fw): Select all Collapse

   oCol := oBrw:AddCol()
   oCol:AddResource("GREEN")
   oCol:AddResource("RED")
   oCol:cHeader  := "Married"
   oCol:bBmpData   := { || iif( _FIELD->Married, 1, 2) }
   oCol:bStrData   := { || iif( _FIELD->Married, "Yes", "No ")}
   oCol:bEditValue := { || _FIELD->Married }
   oCol:nDataStyle := oCol:DefStyle( AL_RIGHT, .T.)
   oCol:nEditType := EDIT_LISTBOX
   oCol:aEditListTxt   := { "Yes", "No"}
   oCol:aEditListBound := { .t., .f. }
   oCol:bOnPostEdit := {|o, v| (DBRLOCK(), _FIELD->Married := v, DBUNLOCK() ) }

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

damianodec

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

Re: xbrowse bitmap from resource
Posted: Mon Feb 15, 2021 07:15 AM

thank you Leandro

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

FiveTech Support Forums

Continue the discussion