Search found 12 matches: getnewid

Return to advanced search

Re: Problem with Tplan : Cargo Error

Silvio,

Correct, oData is not a database object. It appears to be a very simple object that just contains some data and a GetNewID() method.

Also, I notice in the newest version that oData is declared as class data but not used anywhere. Perhaps you should try that version.

James
by James Bott
Tue Jul 02, 2019 10:55 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Problem with Tplan : Cargo Error
Replies: 26
Views: 2696

Re: ayuda con tactivex

... nCol := 0, nWidth := 200,; nHeight := 200 ::nTop = nRow ::nLeft = nCol ::nBottom = nRow + nHeight ::nRight = nCol + nWidth ::oWnd = oWnd ::nId = ::GetNewId() ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP ) ::cProgID = cProgID ::cString = ActXString( cProgID ) ::Register() ? 'paso1' if ! Empty( ...
by GuillermoMtz
Thu Aug 29, 2013 10:27 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: ayuda con tactivex
Replies: 4
Views: 1053

Re: Como se crea una CLASE para dibujar líneas.

... = cType ::cLabel = cLabel ::oFont = oFont ::nSAlign = nSAlign ::nStyle = nOR( WS_CHILD, WS_VISIBLE, If( lDesign, WS_TABSTOP, 0 ) ) ::nId = ::GetNewId() ::lUpdate = lUpdate ::lRounded = lRounded ::lDrag = lDesign ::nClrLite = nClrLite ::nClrDark = nClrDark ::nTextClr = nClrText ::lActive = ...
by QAZWSX2K
Tue May 25, 2010 7:16 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Como se crea una CLASE para dibujar líneas.
Replies: 8
Views: 1758

Pregunta esta clase dibuja la regla a cm

... ) //8 ::nBottom = ::nTop + nHeight ::nRight = ::nLeft + nWidth ::oWnd = oWnd ::nStyle = nOR( WS_BORDER, WS_CHILD, WS_VISIBLE ) ::nId = ::GetNewId() ::lDrag = .f. ::lCaptured = .f. ::nClrPane = nClrBack ::nZoom =1.0 ::Pix2mm =1.0 ::nMin =nMin ::nMax =nMax ::lHorizontal =lHorizontal ::nGap ...
by Vladimir Zorrilla
Fri Aug 21, 2009 5:40 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Pregunta esta clase dibuja la regla a cm
Replies: 0
Views: 1171

Re: FWH/xHarbour Menus

... METHOD DefControl( oCtrl ) CLASS TDialog DEFAULT oCtrl:nId := oCtrl:GetNewId() if AScan( ::aControls, { | o | o:nId == oCtrl:nId } ) > 0 #define DUPLICATED_CONTROLID 2 Eval( ErrorBlock(), _FWGenError( DUPLICATED_CONTROLID, ...
by E. Bartzokas
Mon May 25, 2009 3:34 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: FWH/xHarbour Menus
Replies: 20
Views: 7583

Re: Memoria no liberada en ActiveX - arreglado!

... nCol := 0, nWidth := 200,; nHeight := 200 ::nTop = nRow ::nLeft = nCol ::nBottom = nRow + nHeight ::nRight = nCol + nWidth ::oWnd = oWnd ::nId = ::GetNewId() ::nStyle = nOR( WS_CHILD, WS_VISIBLE ) ::cProgID = cProgID ::cString = ActXString( cProgID ) ::Register() if ! Empty( oWnd:hWnd ) ::Create() ...
by MGA
Wed Apr 08, 2009 1:23 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Memoria no liberada en ActiveX - arreglado!
Replies: 18
Views: 6343

... oRect:nRight,; If( cMode == "LEFT", nBtnWidth + If( l3D, 3, 0 ), oRect:nRight + 1 ) ) ::nBtnWidth = nBtnWidth ::nBtnHeight = nBtnHeight ::nId = ::GetNewId() ::lDrag = .f. ::lCaptured = .f. ::nClrPane = If( l3D, GetSysColor( COLOR_BTNFACE ), CLR_GRAY ) ::lVisible = .t. ::l3D = l3D ::nMode = AScan( ...
by FranciscoA
Wed Oct 15, 2008 12:09 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: No encuentro las mejoras hechas a xbrowse por franciscoA ??
Replies: 17
Views: 4409

... ) ::nSpeed = if( nSpeed < 50, ( 50 - nSpeed ) * 10, 100 - nSpeed ) ::lWrap = lWrap ::lBlink = lBlink ::oWnd = oWnd ::oFont = oFont ::nId = ::GetNewId() ::nStyle = nOR( WS_CHILD, WS_VISIBLE,; If( lDesign, nOr( WS_CLIPSIBLINGS, WS_TABSTOP ), 0 ),; If( lBorder, WS_BORDER, 0 ) ) ::lShaded = lShaded ...
by karinha
Tue Sep 23, 2008 7:47 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Para Karinha
Replies: 17
Views: 3564

... = 1 ::lCellBrw = lCellBrw ::lMoveCols = .F. ::lLockFreeze = .F. ::lCanAppend = .F. ::lAppendMode = .F. ::aImages = {} ::aBitmaps = {} ::nId = ::GetNewId() ::cAlias = cAlias ::bLine = bLine ::aLine = aLine ::lAutoEdit = .F. ::lAutoSkip = .F. ::lIconView = .F. ::lCellStyle = .F. ::nIconPos = 0 ...
by Natter
Mon Sep 08, 2008 11:34 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: bChange
Replies: 9
Views: 5409

... = nOr( WS_CHILD, ; //CeSoTech /// WS_VSCROLL, WS_HSCROLL,; WS_BORDER, WS_VISIBLE, WS_TABSTOP,; If( lDesign, WS_CLIPSIBLINGS, 0 ) ) ::nId = ::GetNewId() ::cAlias = cAlias ::bLine = bLine ::lAutoEdit = .f. ::lAutoSkip = .f. ::lIconView = .f. ::lCellStyle = .f. ::nIconPos = 0 ::SetFilter( cField, ...
by FWHISHOW
Wed Dec 12, 2007 4:28 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: TWBROWSE - bkeydown não aceita VK_UP?
Replies: 9
Views: 4130

Antonio, no me funciono tu sugerencia... * Modifique la clase en la linea donde me indicastes y ::GetNewId() devuelve valores relacionados con la modificación. * Modifique la clase Say para que ::New() admitiera como un ultimo parámetro el identificador y colocando por defecto ...
by gsabattino
Mon Sep 03, 2007 12:47 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Falla creacion de controles diámicos dentro de un diálogo
Replies: 8
Views: 1999

... = cLabel ::oWnd = oWnd ::nStyle = nOR( WS_CHILD, WS_VISIBLE, BS_GROUPBOX,; If( lDesign, nOr( WS_TABSTOP, WS_CLIPSIBLINGS ), 0 ) ) ::nId = ::GetNewId() ::lUpdate = .f. ::lDrag = lDesign ::SetColor( nClrText, nClrPane ) if lTransparent #ifndef __XPP__ ::SetBrush( TBrush():New( "NULL" ) ) #else ...
by karinha
Mon Mar 27, 2006 8:38 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Message not found: TSAY:LTRANSPARENT
Replies: 21
Views: 6252

Return to advanced search