FiveTech Software tech support forums

... Cristobal Navarro

#include 'fivewin.ch'
#include 'xbrowse.ch'
#include "constant.ch"

Function test()

local oDlg,oDbf,oFont
local oBar

local nBottom := 27.2
local nRight := 89
local nWd := Max( nRight * DLG_CHARPIX_W, 180 )
local nHt := nBottom * DLG_CHARPIX_H

DEFINE DIALOG oDlg SIZE nWd ...

... space(30)
local cCodEmailPec:=space(30)
local cMailName:=""

local nRow:=10,nCol:=10
local nInterlinea:= 30
local nSizeHGet:= 24

local nBottom:= 20
local nRight := 100
local nHt := nBottom * DLG_CHARPIX_H
local nWd := Max( nRight * DLG_CHARPIX_W, 180 )
local oCursorBtn :=TCursor():New ...

... PaintHDivider)

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

262. PaintVDivider( hDC, nCol, nTop, nBottom, nStyle, hColPen, hWhitePen )

Description: Accessor for PaintVDivider (same as DATA member, method version for codeblock usage).

Parameters ...

... index of the cell.

nCol: NUMERIC - Column index of the cell.

Return Value: ARRAY - Returns an array containing the coordinates: { nTop, nLeft, nBottom, nRight } in pixels.

Usage Example:

cellCoords := oBrw:aCellCoor( 5, 2 ) // Gets coordinates of the cell at row 5, column 2.
content_copy ...

... Parameters:

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

Return Value: ARRAY - Array containing cell coordinates {nTop, nLeft, nBottom, nRight}.

Usage Example: (Internal use only)

79. CellBitmap( nRow, nCol )

Description: Creates a bitmap of a cell (internal method ...

... Function CtrlMove( oDlg )

local oFontWD2
local nRow := oDlg:nBottom - 150
local nCol := oDlg:nRight - 350
local nSize := 32
local oSay

@ nRow - 64, 20 GROUP TO nRow + 54, oDlg:nRight - 460 OF oDlg PIXEL PROMPT ...

... nLeft, nWidth, nHeight, lRepaint)`**: Moves the control to a new position and size.
- **`CalcSize(nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight)`**: Calculates the size and position of the control relative to its parent window.

#### **Event Handling**
- **`Change()`**: Virtual ...

... incremented and resets after reaching 10000.

4. **`Hide()`**
Hides the event by setting `lVisible` to `.F.`.

5. **`Move( nTop, nLeft, nRight, nBottom )`**
Updates the coordinates of the event's bounding box and ensures the event is only visible if it falls within the calendar's visible area ...

... Sets the size of the tooltip.
- **Parameters:**
- `nWidth`, `nHeight`: New dimensions.

#### Static Function

1. **`Line( hDC, nTop, nLeft, nBottom, nRight, nColor, nWidth )`**
- **Description:** Draws a line on the specified device context.
- **Parameters:**
- `hDC`: Device context handle ...

Antonio Linares wrote: Thu Jan 09, 2025 1:42 pm You may use a TPanel object and paint what you need...

Resolved
although maybe I should calculate the length of the caption
oImage:bpainted:= { |hDC| MyLine(hDC,{oImage:nBottom - 50, 1,oImage:nWidth,147 },RGB(195,195,185),RGB(195,195,185)) }

... cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
local oRect:= oDlg:GetCliRect()
If nType=1
oDlg:SaveAsImage( cFileJpg1, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 } )
else
oDlg:SaveAsImage( cFileJpg2, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 } )
endif
return nil[/img]

... cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg"
local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
If nType=1
oDlg:SaveAsImage( cFileJpg1, { 0, 0, oDlg:nbottom, oDlg:nright-100 } )
else
oDlg:SaveAsImage( cFileJpg2, { 0, 0, oDlg:nbottom, oDlg:nright-100 } )
endif
return nil


Problems

when the nType ...

... código afecta a Tgroup
bloquear asi
/*
if !lPixel
if nTop >= 1.0; nTop *= GRP_CHARPIX_H; endif
if nLeft >= 1.0; nLeft *= GRP_CHARPIX_W; endif
if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif
if nRight >= 1.0; nRight *= GRP_CHARPIX_W; endif
endif
::CalcSize( @nTop, @nLeft, @nWidth, @nHeight ...

... afecta a Tgroup
bloquear asi
/*
if !lPixel
if nTop >= 1.0; nTop *= GRP_CHARPIX_H; endif
if nLeft >= 1.0; nLeft *= GRP_CHARPIX_W; endif
if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif
if nRight >= 1.0; nRight *= GRP_CHARPIX_W; endif
endif
::CalcSize( @nTop, @nLeft, @nWidth, @nHeight ...

... t.,(MsgInfo("Solo 0 a 90"),.f.)) }



Not Work

https://i.postimg.cc/gcNG9HWx/nofunciona.png

I made

@ 80, 10 XBROWSE oBrw SIZE 455,oDlg:nBottom-200 PIXEL OF oDlg ;
DATASOURCE aData AUTOCOLS CELL LINES NOBORDER FASTEDIT

SetupBrowseMatrix(oBrw)
oBrw:RecSelShowKeyNo()
oBrw:CreateFromCode ...