bb.donnay-software.com

Donnay Software Web Forums
It is currently Wed Aug 12, 2020 2:33 am

All times are UTC - 7 hours




Post new topic Reply to topic  [ 4 posts ] 
Author Message
PostPosted: Sat May 09, 2020 10:12 am 
Offline
User avatar

Joined: Thu Jan 28, 2010 1:33 pm
Posts: 392
Location: Republica Dominicana
hello Roger
how can I add an object using DCADDCELLITEM to change the Browse data

I want to change the Data that is in Red and Blue of the Browse


Attachments:
eXpress.PNG
eXpress.PNG [ 40.35 KiB | Viewed 1682 times ]

_________________
Nolberto Paulino
Regards
Top
 Profile  
 
PostPosted: Thu May 14, 2020 8:17 am 
Offline
Site Admin
User avatar

Joined: Wed Jan 27, 2010 6:58 pm
Posts: 4149
Location: Boise, Idaho USA
Show me what your code looks like now.

_________________
The eXpress train is coming - and it has more cars.


Top
 Profile  
 
PostPosted: Wed Jun 10, 2020 10:21 am 
Offline
User avatar

Joined: Thu Jan 28, 2010 1:33 pm
Posts: 392
Location: Republica Dominicana
@ 0.00,00.00 DCBROWSE oBrowse DATA aBrowse ;
PRESENTATION DC_BrowPres(30.0,"12.Arial") ;
SIZE 117.5,27.4 ;
SCROLLBARHEIGHT 30 ;
NOHSCROLL ;
CURSORMODE XBPBRW_CURSOR_ROW ;
USEVISUALSTYLE ;
SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()'

DCBROWSECOL DATA {|a,o| CellArray( aBrowse, oBrowse ) } WIDTH 70 PARENT oBrowse OWNERDRAW



FUNCTION CellArray( axBrowse, oxBrowse )
local aData[0], cFont := '09.Arial'
local cTable := DC_GetColArray(02,oxBrowse)
local cIndex := LEFT(DC_GetColArray(02,oxBrowse),AT(".",DC_GetColArray(02,oxBrowse)))+"CDX"
local cRutaTable := DC_GetColArray(01,oxBrowse)

@ 002.0,002.0 DCADDCELLITEM cRutaTable+cTable WIDTH 600 HEIGHT 50 FONT "12.Arial Bold" FGCOLOR GRA_CLR_BLACK ALIGN XBPALIGN_LEFT TO aData

@ 020.0,002.0 DCADDCELLITEM "Leyenda..." WIDTH 600 HEIGHT 72 FONT "12.Arial Bold" FGCOLOR GRA_CLR_BLUE ALIGN XBPALIGN_LEFT TO aData

@ 002.0,690.0 DCADDCELLITEM "100.0 %" WIDTH 100 HEIGHT 72 FONT "20.Arial Bold" FGCOLOR GRA_CLR_RED ALIGN XBPALIGN_LEFT TO aData

dbcloseall()

return aData





rdonnay wrote:
Show me what your code looks like now.

_________________
Nolberto Paulino
Regards


Top
 Profile  
 
PostPosted: Sun Jun 21, 2020 7:49 am 
Offline
User avatar

Joined: Thu Jan 28, 2010 1:33 pm
Posts: 392
Location: Republica Dominicana
Hello Roger Add this code in line 5061
ELSEIF Valtype (cCaption) == 'O' && Nolberto Paulino
oBitmap: = cCaption
IF oBitmap: isDerivedFrom ('XbpBitmap')
:: oBitmap: = oBitmap
Bitmap: = .t.
END

to solve the problem if the Title is a BitMap Object
in _dcxbrow.prg



digitsoft wrote:
@ 0.00,00.00 DCBROWSE oBrowse DATA aBrowse ;
PRESENTATION DC_BrowPres(30.0,"12.Arial") ;
SIZE 117.5,27.4 ;
SCROLLBARHEIGHT 30 ;
NOHSCROLL ;
CURSORMODE XBPBRW_CURSOR_ROW ;
USEVISUALSTYLE ;
SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()'

DCBROWSECOL DATA {|a,o| CellArray( aBrowse, oBrowse ) } WIDTH 70 PARENT oBrowse OWNERDRAW



FUNCTION CellArray( axBrowse, oxBrowse )
local aData[0], cFont := '09.Arial'
local cTable := DC_GetColArray(02,oxBrowse)
local cIndex := LEFT(DC_GetColArray(02,oxBrowse),AT(".",DC_GetColArray(02,oxBrowse)))+"CDX"
local cRutaTable := DC_GetColArray(01,oxBrowse)

@ 002.0,002.0 DCADDCELLITEM cRutaTable+cTable WIDTH 600 HEIGHT 50 FONT "12.Arial Bold" FGCOLOR GRA_CLR_BLACK ALIGN XBPALIGN_LEFT TO aData

@ 020.0,002.0 DCADDCELLITEM "Leyenda..." WIDTH 600 HEIGHT 72 FONT "12.Arial Bold" FGCOLOR GRA_CLR_BLUE ALIGN XBPALIGN_LEFT TO aData

@ 002.0,690.0 DCADDCELLITEM "100.0 %" WIDTH 100 HEIGHT 72 FONT "20.Arial Bold" FGCOLOR GRA_CLR_RED ALIGN XBPALIGN_LEFT TO aData

dbcloseall()

return aData





rdonnay wrote:
Show me what your code looks like now.

_________________
Nolberto Paulino
Regards


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 4 posts ] 

All times are UTC - 7 hours


Who is online

Users browsing this forum: No registered users and 0 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group