How To Make oDlg:Say Transparent

[acwoo1]

Hi


@ 9.95, 1 BUTTON "&F" OF oDlg SIZE 5, 10 ACTION (seecustd(),;
oDlg:Say( 28, 210, space(18),,, oFont, .t.),;
oDlg:Say( 28, 210, custno1,,, oFont, .t.))

How to make it transparent

Regards

ACWoo

[Enrico Maria Giordano]

lTransparent is the eighth parameter not the seventh as in your sample.

EMG

[acwoo1]

Hi

I added the eight parameter. It is now transparent. But it does not erase the earlier entry if I click the button the second time.

@ 9.95, 1 BUTTON "&F" OF oDlg SIZE 5, 10 ACTION (seecustd(),;
oDlg:Say( 28, 210, space(18),,, oFont, .t., .t.),;
oDlg:Say( 28, 210, custno1,,, oFont, .t., .t.))

How to make it cover the earlier entry and display the latest entry so that they don't overlap.

Regards

ACWoo

[Enrico Maria Giordano]

Can you build a complete sample showing the problem, please?

EMG

[acwoo1]

Thanks For Your Help

The sample:

function main()
#include "FiveWin.ch"

local oDlg
local lSave := .f.
local oFont
local oLbx
DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD

if (!file("Comname1.dbf"))
tmpdbf:= {}
AAdd(tmpdbf, {"Company1", "C", 50, 0})
AAdd(tmpdbf, {"Direct1", "C", 40, 0})
dbcreate("Comname1.dbf", tmpdbf)
dbusearea(.T., Nil, "Comname1", Nil, Nil, .F.)
Append Blank
onerror("APPEND")
Replace Company1 With "ABC Co."
Replace Direct1 With ".\data"
Append Blank
onerror("APPEND")
Replace Company1 With "PQR Co."
Replace Direct1 With ".\data2"
EndIf

if (Select("Comname1") == 0)
use Comname1 new
If (neterr())
msginfo("File is locked by another user")
Close Databases
return
endif
else
select Select("Comname1")
endif
goto top


DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;
TITLE "Select Company" ;
GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }

@ -0.361, -0.1 to 13.945, 44.714
@ -0.361, -0.1 to 12.545, 44.714
@ -0.361, -0.1 to 10.945, 44.714


@ 0.2, 0.4 LISTBOX oLbx FIELDS Comname1->Company1,;
Comname1->Direct1, "";
HEADERS "Company Name", "Directory", "";
FIELDSIZES 305, 286, 0 ;
SIZE 307, 50 OF oDlg Font oFont;
ON CLICK testabc(;
oDlg:Say( 180, 2, space(180),,, oFont, .t., .t.),;
oDlg:Say( 180, 2, Company1,,, oFont, .t., .t.))

@ 9.95, 40 BUTTON oBtn6 PROMPT "&Exit" OF oDlg ACTION ( oDlg:End()) SIZE 40, 12

ACTIVATE DIALOG oDlg CENTERED

return nil
******************************************
function testabc()

return nil
******************************************

How to modify so that when I click, they display don't overlap.

Regards

ACWoo

[Enrico Maria Giordano]

Sorry, I need a sample that can be compiled and run here.

EMG

[acwoo1]

Thanks For Your Help

I could compile and run here with fwh1111 or later + harbour + bcc582. It is transparent. Just the display overlap.

Regards

ACWoo

[Enrico Maria Giordano]

Please use a SAY control instead of the Say() method. You can then use the SetText() method to change the caption of the SAY control. Or try oDlg:Refresh() before the Say() method.

EMG

[acwoo1]

Thanks For Your Help

oDlg:Say( x1, y1,...
and
@ x2, y2 say oSay..

is there a simple conversion factor for x1, y1 and x2, y2 ?

Thanks

Regards

ACWoo

[Enrico Maria Giordano]

Please use the PIXEL clause of @ SAY command.

EMG