FiveTech Software tech support forums

::nMarqueeStyle := MARQSTYLE_HIGHLROWMS
::select(1)
::seleect(2)
...
::aseleted stores Eval( ::bBookMark) //nrow

::select(0) clear selected rows ,::aselected:={}

Shuming Wang

1.1 Download zint.exe from https://sourceforge.net/projects/zint/files/zint/
New version is 2.13
1.2
fastreport--page: image type cell -- Code page:

procedure Picture12OnBeforePrint(Sender: TfrxComponent);
begin
callhbfunc('fr3img3',[trim(<masterdata."model">)+',sub']) ;
LoadImageFromHbVar ...

1. Download zint.exe from https://sourceforge.net/projects/zint/files/zint/

WaitRun("zint.exe -d "+csourcestr+" -b 58 -o "+cdir) encode csourcestr:"abcd12345" to directory cdir+"\out.bmp", 58 is 2 demention coderbar brcode .

2.
implib -ae zint.lib zint.dll

#include <zint.h>
int load2dc(char *argv ...

1.
FUNCTION img2dbarcode()
local h2d
private hlib
hLib = LOADLIBRARY( "zint.dll" )

h2d:=ZBarcode_Create()
//// h2d should has datas: symbology,height,width,bitmap,...
?h2d:symbology
// error: method symbology does not exsist

ZBarcode_Encode_and_buffer(h2d,"abc45",5,0)
//error: will ...

I searched 2 schemes about add 2d barcode to fastreport
1. add the files into app.exe folder and input into fastreport , then you can direct designt it as a text,a imgge etc.
http://www.pudn.com/Download/item/id/2228698.html
https://download.csdn.net/download/julyxday/4475756#:~:text=FastRepo ...

if set autocommit=0;
//oserver:query("set autocommit=0")
oserver:query(" start transaction")
... update/sve/insert/delete sql

if ... error
oserver:query("rollback")

else
oserver:query("commit")

end
//
if set autocommit=1;
... single sql include commit /rollback

Some viruses or trojans can cut down connection.
Your connecting line may with serious problem, our customers use tmysql 20 years with no the problem in normal via bandwidth >0.2M bits .

Mr Otto,
Could you send me sample source to my Email 100200651@qq.com ?
Thank you!
Shuming Wang

Great!

Execiting ! Hope turn out soon!
Shuming Wang

Thanks !
Shuming Wang

Hi,
Harbour/Clipper:
? 235.1234/100
2.35 not 2.351234
Any express return 2 decimals .

Mysql : select 235.1234/100
2.35123400

Regards!
Shuming Wang

change the original Xbrowse code.

Shuming Wang

1.
data osettingbmp
method helpmenu()
2.
METHOD New( oWnd ) CLASS TXBrowse
...
::hBmpRecSel := FwRArrow()

// add the lines
::osettingbmp:=TBitmap():Define( "config",,::oWnd)
::osettingbmp:ltransparent:=.t.



3.
METHOD Paint() CLASS TXBrowse
...
PalBmpDraw( ::hDC, (::nHeaderHeight - 3-if ...