FiveTech Software tech support forums

... 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 " Notes: "
@ nRow - 64, oDlg:nRight - 450 GROUP TO ...

... but the border is allways black...why ?

hBrush := CreateSolidBrush(RGB(255, 28, 36))

SelectObject(hDC, hBrush)


FW_Box( hDC, { nX, nY, nX + nSize, nY + nSize }, hBrush, hBrush, , 2 )

I tried also with
FW_Box( hDC, { nX, nY, nX + nSize, nY + nSize }, RGB(243, 101, 108), RGB(243, 101, 108 ...

Maybe this helps:



#include <Windows.h>
#include <hbapi.h>

HB_FUNC( GETCLASSNAMEA ) // ( hWnd, cClassName, nSize ) --> nLength
{
HWND hwnd = (HWND) hb_parnl( 1 );
char *cClassName = hb_parc( 2 );
int nSize = hb_parni( 3 );
int nLen = GetClassNameA( hwnd, cClassName, nSize );
hb_retnl( nLen ...

... does not use any font. Nothing to do with fonts.


2) En el SIZE <nWidth>, si pongo un valor menor que 4, queda igual. No se achica. El BARSIZE <nSize> no funciona. Me da error de compilación.

We need to provide both width and height in the SIZE clause
.. SIZE nWidth, nHeight UNITS INCHES/CM/MM ...

... se cuál toma y no se como definirle uno determinado.
2) En el SIZE <nWidth>, si pongo un valor menor que 4, queda igual. No se achica. El BARSIZE <nSize> no funciona. Me da error de compilación.

Pero a pesar de todo, con la respuesta que amablemente me pasó, se pudo solucionar el problema ...

... A5 11 // A5 148 x 210 mm
#define DMPAPER_B4 12 // B4 250 x 354
#define DMPAPER_B5 13 // B5 182 x 257 mm


If paper size you want matches one of these, please use the suitable constant and use SetPage( nSize )

If you want a totally different size, please let us know the size you want (milli-metres)

... dbf archive it could be the State field

IF I modify this command at pdreport.prg
oColumn := TRColumn():New(aTitle ,;
nCol ,;
aData ,;
nSize ,;
aPicture ,;
uFont ,;
lTotal ,;
bTotalExpr ,;
cColFmt ,;
.t. ,; <----------------------------------(lShadow)
lGrid ,;
nPen ,;
Atail ...

... t.,oBrw:refresh(),oBrw:setfocus() )

DEFINE BUTTON OF oBar PROMPT "Mainbar.Exit" RESOURCE "exit" ;
ACTION Dlg:End() // This need to be oDlg

For nSize and oBtnindexes and for almost all others, I don't use any of the settings (Local, Public , ...)

I see why the warning, nSize is not set as local ...

... Meaningless use of expression 'Logical'
test1.prg(1744) Warning W0001 Ambiguous reference 'DLG'
test1.prg(1757) Warning W0001 Ambiguous reference 'NSIZE'
test1.prg(1758) Warning W0001 Ambiguous reference 'NSIZE'
test1.prg(1823) Warning W0001 Ambiguous reference 'OBTNINDEXES'

Can I see the related ...

... prg(1716) Warning W0027 Meaningless use of expression 'Logical'
test1.prg(1744) Warning W0001 Ambiguous reference 'DLG'
test1.prg(1757) Warning W0001 Ambiguous reference 'NSIZE'
test1.prg(1758) Warning W0001 Ambiguous reference 'NSIZE'
test1.prg(1823) Warning W0001 Ambiguous reference 'OBTNINDEXES'

... Y la linea del prg es un simple say:

oExcel:Say(3,1 ,'Matrícula','Arial',09 ,.F. , , , 7 , , , ,1)
//METHOD Say( nRow, nCol, xValue , cFont , nSize , lBold , lItalic ,lUnderLine, nAlign, nColor, nFondo , nOrien , nStyle , cFormat ) CLASS TExcelScript

Como que "explota" el ole y el error sale ...

... local cServer := "ftp.servidor.com"
local cUser := "user@servidor.com"
local cpassword:= "clave"
local rRuta := "/public_ftp/ruta"
local CantFiles,nSize:= 0
local oDlg,oSay,oBtnCancel,oMeter,lEnd:=.F.,nAmount,lOk:= .F.,lValRet:= .F.
local lReturn := .F.


MsgRun( "Connecting to Internet...", "Please ...

... oFont)

He intentado esto :
Imprimir el codigo :

oPrn:cmSay( linea,3.6,alltrim((cpptod)->codigo),oFontnegrita)

Averiguar el ancho con

nsize:=oPrn:GetTextWidth(alltrim((cpptod)->codigo),oFontnegrita)

pero me lo da en pixeles y lo paso a cm así :

nancho:=oPrn:Cmtr2Pix(nsize, 0)

y ...

... sólo
imágenes de mapas de bits.

* Nueva función FW_RecSetHeaders( oRs ) --> aHeaders. (adofuncs.prg)

* Nueva función FW_DrawShadow( hDC, aRect, nSize ) --> Dibuja una sombra a lo largo del borde
derecho e inferior del rectángulo. (imgtxtio.prg)

* Mejora en la clase TXImage (ximage.prg):
Nueva ...

... any image source, not only
bmps.

* New function FW_RecSetHeaders( oRs ) --> aHeaders. (adofuncs.prg)

* New function FW_DrawShadow( hDC, aRect, nSize ) --> Draw shadow along the right
and bottom edge of the rectangle. (imgtxtio.prg)

* Enhancement: TXImage class (ximage.prg):
New DATA ...