FiveTech Software tech support forums

hi Otto,

Otto wrote:Have you tried TComboMetro?

how to identify which Item is active to draw when not have itemID of DRAWITEMSTRUCT structure
https://learn.microsoft.com/en-us/windo ... itemstruct

METHOD Paint() CLASS TComboMetro does not have any itemID to identify it

... Control ID
oStruc Ownerdraw Structure
nPointer Pointer to Structure

Ownerdraw Structure have

CtlType := oStruc:CtlType
CtlID := oStruc:CtlID
itemID := oStruc:itemID
itemAction := oStruc:itemAction
itemState := oStruc:itemState
hwndItem := oStruc:hwndItem
hDC := oStruc:hDC
aRect := oStruc:aRect ...

... nCount = 4

IF(VALTYPE(oSelf) = "O","Object",oSelf) = "Object"

nIdCtl = 109

VAR2CHAR( aStruc ) = "__itemSetObj( {{CTLTYPE, 3}, {CTLID, 109}, {ITEMID, 0}, {ITEMACTION, 1}, {ITEMSTATE, 4096}, {HWNDITEM, 1770774}, {HDC, 1157698194}, {ARECT, {3, 3, 35, 70}}, {ITEMDATA, `ęƒ}}, {{TDRAWITEMSTRUCT ...

You need to use relational databases like this:

ITEMS.DBF
ITEMID <---primary key (auto incrementing)
DESCRIPTION
CATAGORYID
BRANDID

CATAGORY.DBF
CATAGORYID <--- primary key (auto incrementing)
CATAGORYNAME

BRAND.DBF
BRANDID <--- primary key (auto incrementing)
BRANDNAME

Antonio super genial como siempre

https&#58;//media1&#46;tenor&#46;com/images/6df96c461076833d1b12435f46fe7520/tenor&#46;gif?itemid=18787833

Muchas gracias lo probare

Saluditos




Aida,

Aqui tienes una primera versión funcionando. La incluiremos en FWH 21.03

tgif.prg
#include "fivewin.ch ...

... de TDrawItemStruct, con los mismos datos
correspondientes a DRAWITEMSTRUCT.
m ... itemstruct

Las DATAs de oItemStruct son:
CtlType, CtlID, itemID, itemAction, itemState, hwndItem, hDC, aRect, itemData,
nTop, nLeft, nBottom, nRight, nWidth, nHeight.
Todas las DATAs son de sólo lectura. Su uso ...

... oItemStruct is an object of TDrawItemStruct, with the same
datas corresponding to DRAWITEMSTRUCT.
m

oItemStruct DATAs are
CtlType, CtlID, itemID, itemAction, itemState, hwndItem, hDC, aRect, itemData,
nTop, nLeft, nBottom, nRight, nWidth, nHeight.
All the datas are readonly. Usage can be ...

... poder encontrar el prompt de un item a partir del valor de la estructura
typedef struct tagMEASUREITEMSTRUCT {
UINT CtlType;
UINT CtlID;
UINT itemID;
UINT itemWidth;
UINT itemHeight;
ULONG_PTR itemData;
} MEASUREITEMSTRUCT, *PMEASUREITEMSTRUCT, *LPMEASUREITEMSTRUCT;

que es pasada como ...

... local odb1,odb2

odb1:=::odb1
odb2:=::odb2

::oTree:bChanged := {|oTree,oItem|eng0303(self) }
// ...
return

FUNCTION eng0303(obl1)
local itemid1,version1
oitem:=obl1:oTree:GetSelected()

itemid1:=LEFT(oitem:cprompt,nitemidlen)
version1:=SUBSTR(oitem:cprompt,nitemidlen+3,10)
obl1:odb1 ...

Carlos y los interesados, para usar las propiedades de excel, uno se puede guiar por las mismas que se usan en VB y las macros de excel, para eso abierto excel, se presiona ALT + F11 y alli saldra, para una mejor guia de algunas propiedades que pudiesesmos necesitar, les coloco algunas link d donde ...

Hi,
Table:
itemid qty
001 1.1
002 2.1
003 3.1
004 4.1
...

FrPrn:SetUserDataSet("masterdata",'itemid;qty'},;
{|| odbprn2:GoTop()} ,;
{|| odbprn2:SKIP(1)},;
{|| odbprn2:SKIP(-1) },;
{|| odbprn2:EOF() },;
{|aField|odbprn2:FIELDGET(afield)})
end

want print result :
itemida qtya itemidb ...

... dblclick"
oCol:AddResource("checkoff")
oCol:bBmpData := { ||1}
ocol:nwidth:=40

oCol := obrow:AddCol()
oCol:bStrData := { ||odb2:itemid}
oCol:cHeader := "物料编码"
ocol:beditvalue:={||odb2:itemid}
oCol:nedittype:= {||if(ledit .and. LEN(ALLTRIM(odb1:stockid))>0.and.odb2:qty==0,EDIT ...

... The table is composed of records and each record is made up of 5 fields:

1. Customer ID - (Foreign Key into customers table)
2. SalesDate
3. ItemId
4. ItemDescrip
5. Amount

As you are xbrowsing the Customers table, at some keyboard or mouse action, imagine that all the sales records on the ...

Aqui te dejo el enlace

http://www.vailton.com.br/index.php/com ... Itemid=541

Saludos

obrow:=bseek:={|v|odb2:SEEK(v,,{oquery:itemid+oquery:id2})}

Should be
obrow:bseek:={|v|oquery:SEEK(v,,{||oquery:itemid})}

Shuming Wang