FiveTech Software tech support forums

... I want it to behave like when using the "Export to pdf" dialog (FrPrn:SetProperty("PDFExport", "ShowDialog", .t.)): https://www.smartprint.co.rs/puno.png This is code: Function PdfAndMail(mSubject,mTo,mCc)mFileName=cOsnDir+"\Pdf\" ...

... char* FromString(String^ src);// spawns a harbor error starting from a .NET onestatic void HandleError(Exception^ e);HB_FUNC(SHOWDIALOG) {    try { //I did not check if the calls are successful, everything is taken from the catch and brought to harbor.        ...

... // SetProperty("PDFExport", "FileName", "My file.pdf") // SetProperty("PDFExport", "ShowDialog", .f.) // // For Delphi enumerated types and set type use its // string representation, for example: // SetProperty("Designer.DefaultFont", ...

... memo, etc), como analizarlo y como generar un diálogo de forma equivalente a DEFINE DIALOG ... RESOURCE ... Revisa el código fuente de la función ShowDialog() en samples/re.prg Aunque la opción más poderosa es usar un script que compila y ejecuta un PRG desde el propio EXE. Tienes un ejemplo en ...

... = { | oItem | oItem := oTree:GetSelected(),;                       If( oItem != nil, oMemo:SetText( oItem:Cargo ),) }    oTree:bLDblClick = { || ShowDialog( oTree:GetSelected() ) }    oTree:SetImageList( oImageList )    @ 0, 25.7 GET oMemo VAR cItemText MEMO OF oWndRC SIZE 300, 100    @ 0, 200 ...

... or into a MAPI compatible client. you can make this adding this code at the end of the report .. .. FrPrn:SetProperty("MailExport","ShowDialog",.f.) FrPrn:SetEventHandler("MailExport","OnSendMail",{|ParamsArray|MySendMail(FrPrn,cPdfFile)}) .. and with these ...

Hello Marco,

would you be so kind to show how to setup the attachment type
if you use

oFr:SetProperty("MAILExport", "ShowDialog",.f.)

Thanks in advance
Otto

Thanks to Marco. This is the solution: oFr:SetProperty("PDFExport", "ShowDialog",.f.) oFr:SetProperty("PDFExport", "FileName", "\Myfile.pdf")oFr:SetProperty("PDFExport", "OpenAfterExport", ...

Hi Otto,
I'm not sure this can help you but I had the same problem to send a report via email
and I solved using FrPrn:SetProperty("MailExport","ShowDialog",.f.) to hide the dialog.

Perhaps it runs also with the exports.

Andrej,

Please make these changes in your code:

@ 5, 0 BUTTON "Test Button" ;
SIZE 204, 26 ;
FONT oFontS;
ACTION ShowDialog( oWnd )

...

STATIC FUNCTION ShowDialog( oWnd )

...

DEFINE DIALOG oDlg TITLE "Test" SIZE 200, 200 OF oWnd

... NAME 'Arial' SIZE 0, -10 DEFINE WINDOW oWnd TITLE "RFID_OMME" @ 5, 0 BUTTON "Test Button" ; SIZE 204, 26 ; FONT oFontS; ACTION ShowDialog() ACTIVATE WINDOW oWnd oFontS:End() oDld:End() oWnd:End() return nil //-------------------------------------------------------------------------// ...

... I need to translate: ChargeNow chg = new ChargeNow(); chg.init(); chg.PM = ChargeNow.PAYMENTMODE.PayNow; chg.CM = ChargeNow.CHARGEMODE.Sale; chg.ShowDialog(); Can anyone help with this? I have tried: oChg := CreateObject("ChargeNow") And I get this error: Error description: Error TOleAuto/-1 ...

... from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(0) Called from: => TDIALOG:ACTIVATE(0) Called from: C:\FiveWin.20\samples\re.prg => SHOWDIALOG(445) Called from: C:\FiveWin.20\samples\re.prg => (b)OPENRCFILE(305) Called from: => TTREEVIEW:LDBLCLICK(0) Called from: => TWINDOW:HANDLEEVENT(0) ...

... from another dialog (for eaxample have a record displayed and click edit to edit it) Secondly I typically have code a bit like this DO WHILE .T. ShowDialog() IF ::ExitCode = "X" RETURN nil ENDIF IF ::ExitCode = "E" ::lEdit := .T. ELSE ::lEdit := .F. ENDIF ENDDO But the dialog returns before the ...

... % stack calls: TCONTROL:PAINT(0) __EVAL(0) TCONTROL:DISPLAY(0) TCONTROL:HANDLEEVENT(0) TCONTROL:HANDLEEVENT(0) DIALOGBOX(0) TDIALOG:ACTIVATE(0) SHOWDIALOG(156) ... I found in the BITMAP CLASS - Paint method this line SetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 ) Any idea? Regards ...