FiveTech Software tech support forums

Suggested way to link xbrowse and ximage:

#include "fivewin.ch"

REQUEST DBFCDX

//----------------------------------------------------------------------------//

function Main()

local oDlg, oFont, oBrw, oImage

if !File( "IMAGES.DBF" )
CreateImagesDBF()
endif

USE IMAGES NEW SHARED VIA ...

Hi,

Eu tenho um campo memo em um dbf que armazenar uma imagem com o memoread()

oArqImg:IMAGEM := MemoRead(Alltrim(VetGars[x][10]))

Qual a melhor maneira de mostrar essa imagem posteriormente em uma dialog? Or other way to save and recover image with dbf/cdx.

I try:

@40,40 XIMAGE oImage SIZE ...

Look, mira:

https://fivewin.com.br/index.php?/topic/17145-xbrowse-com-pelles-c-video-resolvido/

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=31551&start=0

Regards, saludos.

Karinha worked with 0x50210000, the bar disappeared and did not change the external lines of the xbrowser ...

Hello,

I have a question about the horizontal bar in xbrowse, if I put the style 0x50D00000 in the xbrowse object, the horizontal bar disappears but the external line in xbrowse change, they look deep, if I don't change the style the bar doesn't disappear with oBrw:lHScroll: = .F.

What to do to ...

Antonio Linares wrote:It seems as you are creating a dialog from resources. If so, then create it from:

ACTIVATE DIALOG oDlg ON INIT BuildYourCombobox( oDlg )

then

function BuildYourCombobox( oDlg )

@ ..., ... COMBOBOX ... OF oDlg:oBar

return .T. // to give focus to default first control

Thank You Antonio!

Hi,

I have this code:

REDEFINE BUTTONBAR oBar ID 100 OF oDlg 2007
DEFINE BUTTON OF oBar PROMPT "Gerar" FILE "B_SAVE" ACTION PreBol()
DEFINE BUTTON OF oBar PROMPT "Sair" FILE "B_EXIT" GROUP ACTION oDlg:End()

How I can put a combobox next of last button in this oBar?

I tried @x,y and DEFINE ...

Antonio Linares wrote:If you are using it from a dialog then you can resize it from the ACTIVATE DIALOG oDlg ON INIT ...

Could you please provide a small PRG to show how you are doing it ?

many thanks

Hi Antonio,

I solved it with ON INIT (oBar2:SetSize(107.5, 25),oBar2:Refresh())

Thank You!

Hi,

How can I change the height and width of a buttonbar created in resource?

Thanks in advance.

Congratulations, you have won the free course spot.
A heartfelt thank you to Massimo as well for maintaining the Harbour project on Facebook for us.

Best regards,
Otto


https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44679&p=272600&sid=7363ec046ed5a621b9a5ab9d323358be#p272600

I'm very ...

driessen wrote:Hello,

I need two files:

- gdiplus.ch
- gdiplus.lib

I want to use to use GdiPlus in my FWH-application to enlarge pictures.

Thanks.

gdiplus.lib It's in the BCC PSDK folder.

I am the 1000th!

// C:\FWH\SAMPLES\CNPJ.PRG - 09/08/2024 - By Joao Santos.

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

LOCAL oDlg, oFont, aGet := ARRAY(3)
LOCAL cCnpj1 := SPACE(18), cCnpj2 := SPACE(14)

cCnpj1 := "02.220.045/0002-04" // only test

DEFINE FONT oFont NAME "FIXEDSYS" SIZE 10, -14 BOLD ...

i use .res and when pasting it shows fewer characters, just 74167222000 any idea
res or source code, the issue is the same.
This works well if the length of your variable is 20 chars or more.

Please let me know the FWH version you are using. I can suggest a modification to TGet.prg to use my 2nd ...

Please try:
function TestGetPic

local oDlg, oGet
local cGet := Space( 20 )

DEFINE DIALOG oDlg SIZE 200,200 PIXEL TRUEPIXEL
@ 30,30 GET oGet VAR cGet PICTURE REPLICATE( "9", Len( cGet ) ) ;
SIZE 150,20 PIXEL OF oDlg
oGet:bChange := { |k,f,o| MyGetChange( k,f,o ) }
@ 80,30 BUTTON "OK" SIZE ...

Hi,

Is there any way to remove some characters from the copied text before it is pasted into a field? Let me explain: the copied text is 02.220.045/0002-04 and I need to paste it into a specific get to paste 02220045000204.

Tia.