FiveTech Software tech support forums

... Return nil

// Função para interpretar o JSON da resposta
Function ParseJSONResponse( cJSON )
local hResponse := hb_jsonDecode( cJSON )
local cMessage := ""

IF ! Empty( hResponse ) .AND. HB_HHasKey( hResponse, "choices" )
cMessage := hResponse[ "choices" ][1][ "message" ][ "content" ]
ELSE ...

... ELSE
RETURN .F.
ENDIF

// Method to send an email via Office 365 (Microsoft Graph)
METHOD SendEmail( cSubject, cBody, cRecipient )
LOCAL cUrl, cMessage, cRaw, cResponse

// Prepara il messaggio in formato MIME
cRaw := '{"message": {' + ;
'"subject": "' + cSubject + '",' + ;
'"body ...

... token" ]
RETURN .T.
ELSE
RETURN .F.
ENDIF

// Method to send an email via GMail
METHOD SendEmail( cSubject, cBody, cRecipient )
LOCAL cUrl, cMessage, cRaw, cResponse

// Prepare the message in MIME format
cRaw := "From: 'me'\r\n" + ;
"To: " + cRecipient + "\r\n" + ;
"Subject: " + cSubject ...

... FiveWin.ch"

FUNCTION SendEmail()
LOCAL cUrl, cData, cResponse
LOCAL cAccessToken := "YOUR_ACCESS_TOKEN" // Get token via OAuth2
LOCAL cMessage := '{"message": {"subject": "Test Email", "body": {"contentType": "Text", "content": "Hello, this is a test email!"}, "toRecipients ...

corrected
cNewMessage:= DivideTestoInRighe(cMessage, 80)

https://i.postimg.cc/NMtg33TL/rrr.png

FUNCTION DivideTestoInRighe(cTesto, lunghezzaRiga)
LOCAL nLunghezzaTesto, nRighe, nInizio, cRiga, cRisultato

// Calcola la lunghezza totale del testo
nLunghezzaTesto := LEN(cTesto)

// Inizializza ...

... https://i.postimg.cc/76y91hkb/tt.png

Perhaps we need a function to divide the text inserted into rows ?
cNewMessage:= DivideTestoInRighe(cMessage, 150)

FRom ChatGpt but not run

FUNCTION DivideTestoInRighe(cTesto, lunghezzaRiga)
LOCAL nLunghezzaTesto, nRighe, nResto, cRisultato, i, j ...

... PANEL Layout :?:

---

in my modify CODE all Lines are displayed and Position of Panel3 will change
aDim = GetLabelDim( oPanel2:hWnd, alltrim(cMessage), oFonttext:hFont )
GetLabelDim() will give you "right" Size and
oFonttext:nHeight() +2
is hight of each Line.

while Source use oPanelShadow ...

... PANEL Layout :?:

---

in my modify CODE all Lines are displayed and Position of Panel3 will change
aDim = GetLabelDim( oPanel2:hWnd, alltrim(cMessage), oFonttext:hFont )
GetLabelDim() will give you "right" Size and
oFonttext:nHeight() +2
is hight of each Line.

while Source use oPanelShadow ...

If I made

IF oDlgBacheca:nresult == IDOK
aDim = GetLabelDim( oPanel2:hWnd, cMessage , oFont:hFont )
oPanel:setsize(aDim[ 1 ] + 60, aDim[ 2 ] + 50)
oPanel:SetColor( "N/W*" )
oPanel:bPainted = { | hDC | DrawTextTransparent( hDC, cMessage , { 10, 10, aDim[ 1 ] + 100, aDim[ 2 ] + 100 }, 1 ) }
ENDIF ...

... in the rect structure.

Please look for DT_CALCRECT in FWH *.prg source code for code examples

yes,

I allredy found

DrawTextEx( ::hDC, cMessage , {nTop,nLeft,nBottom,nRight} )


but when I have the new cMessage ( edited) I must modify 3 controls on line

1. the TaskPanel
2. the first ...

... memo has.



DEFINE BRUSH oBrushshadow GRADIENT aGrad //shadow
DEFINE BRUSH oBrushtext GRADIENT aGradtext //text


nTotRows:= MLCount(Alltrim(cmessage),250)

oPanel1 is a ttaskpanel

//the shadow
oItem1:=Tpanel():New( oPanel1:nTitleHeight +10, 10,;
oPanel1:nBottom-30,oPanel1:nWidth-40, oPanel1 ...

... STATIC FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort, lNotification, lSSL )

LOCAL lOk := .F.

LOCAL oCfg, oMsg

LOCAL cCc := ""

LOCAL i ...

... Less Secure Apps - is ON
2-step verification - DISABLED

I am passing all parameters to sendmail()

SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort,lNotification , lSSL )

This is the return message : "Unsent message check windows live ...

... sendpk.com/api/sms.php?api_key=923289536375-280edb13-b5f6-43e6-8b3c-
45420519ce9c&sender=BrandName&mobile="+LTRIM(STR(nMobile_No))+"&message="+cMessage

This is how the cUrl must be prepared and supplied to my "wfReadUrl(cUrl)" Function.

You can even try the cUrl from the web browser directly ...

Mister Nages,
Did not work.

Aadd (aHilite, {Upper (SubStr (cMessage, start), (endFinal - start) + 1)),;
oFonte_Botao, nil, nil})

http://am2tecnologia.com.br/sample/exemplo4.jpg
Att.,

Oliveiros Junior
Try putting
SetBkMode( hDC, 1 ) 
before calling FW ...