FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Scroll Window Problem
Eroni
Posts: 114
Joined: Fri Jul 21, 2006 07:15 PM
Scroll Window Problem
Posted: Tue Jul 24, 2007 01:21 PM

Dears

I thinked that this problem was fixed in fwh 7.5, but no, any suggestions?

Eroni

Code:

include "FiveWin.ch"

define D_WIDTH 4

define D_HEIGHT 13

FUNCTION Main()

LOCAL oWnd,oScrWnd, oBar
define window oWnd from 0, 0 TO 25, 70 ;
title "Scroll Window" ;
vscroll hscroll ;
MENU BuildMenu()

@ 001,001 BUTTONBAR oBar 3D SIZE oWnd:nRight-oWnd:nLeft,50 BUTTONSIZE 48 ,48 OF oWnd // here button bar

ACTIVATE WINDOW oWnd ;
ON INIT ( TScrWnd():New(oWnd,1,40,1,70) ) ;

RETURN( NIL )

function BuildMenu()
LOCAL oMenu

MENU oMenu
MENUITEM "&File"
MENU
MENUITEM "&Open"
MENUITEM "&Close"
MENUITEM "&Save"
MENUITEM "&End"
ENDMENU
ENDMENU

return oMenu

//----------------------------------------------------------------------------//

//============================================================================
// FileName : SCROLL.PRG
// Purpose : Windows Scroll Class
// Author : Eric Yang
// Update History :
// Date Contents
// ---------- ---------------------------------------------------------------
// 1997.02.01
//
//============================================================================

include "FiveWin.ch"

ifndef TRUE

#define TRUE .T.
#define FALSE .F.

endif

CLASS TScrWnd

DATA oWnd
DATA nVPos,nHPos

METHOD New( oWnd,nV1,nV2,nH1,nH2 ) CONSTRUCTOR
METHOD SetScroll( nV1,nV2,nH1,nH2 )
//-------------------------------------------------------------
METHOD VScroll()
METHOD VScrollThumb()
METHOD VScrollTrack()
METHOD VScrollPgDown()
METHOD VScrollPgUp()
//------------------------------
METHOD HScroll()
METHOD HScrollThumb()
METHOD HScrollTrack()
METHOD HScrollPgDown()
METHOD HScrollPgUp()

ENDCLASS

METHOD New( oWnd,nV1,nV2,nH1,nH2 ) CLASS TScrWnd
::nVPos := 0
::nHPos := 0
::oWnd := oWnd
::SetScroll( nV1,nV2,nH1,nH2 )
RETURN Self

METHOD SetScroll( nV1,nV2,nH1,nH2 ) CLASS TScrWnd
LOCAL aCoors1:={},aCoors2:={}
//--------------------------------------------------
//- Vertical Scroll Bar
// ? ::oWnd:oVSCroll=NIL
if ::oWnd:oVScroll != NIL
// ? nV1,nV2
::oWnd:oVScroll:SetRange( nV1,nV2 )
::nVPos := ::oWnd:oVScroll:GetPos()
::oWnd:oVScroll:bGoDown := {|| ::VScroll() }
::oWnd:oVScroll:bGoUp := {|| ::VScroll() }
::oWnd:oVScroll:bPageUp := {|| ::VScrollPgUp() }
::oWnd:oVScroll:bPageDown := {|| ::VScrollPgDown() }
::oWnd:oVScroll:bGoTop := {|| ::VScroll() }
::oWnd:oVScroll:bGoBottom := {|| ::VScroll() }
::oWnd:oVScroll:nPgStep := 10
//::oWnd:oVScroll:lReDraw := TRUE
::oWnd:oVScroll:bPos := {|nPos| ::VScrollThumb(nPos) }
::oWnd:oVScroll:bTrack := {|nPos| ::VScrollTrack(nPos) }
endif
//--------------------------------------------------
//- Horizontal Scroll Bar
if ::oWnd:oHScroll != NIL
::oWnd:oHScroll:SetRange( nH1,nH2 )
::nHPos := ::oWnd:oHScroll:GetPos()
::oWnd:oHScroll:bGoDown := {|| ::HScroll() }
::oWnd:oHScroll:bGoUp := {|| ::HScroll() }
::oWnd:oHScroll:bPageUp := {|| ::HScrollPgUp() }
::oWnd:oHScroll:bPageDown := {|| ::HScrollPgDown() }
::oWnd:oHScroll:bGoTop := {|| ::HScroll() }
::oWnd:oHScroll:bGoBottom := {|| ::HScroll() }
::oWnd:oHScroll:nPgStep := 10
//::oWnd:oHScroll:lReDraw := TRUE
::oWnd:oHScroll:bPos := {|nPos| ::HScrollThumb(nPos) }
::oWnd:oHScroll:bTrack := {|nPos| ::HScrollTrack(nPos) }
endif
//::oWnd:bKeyChar := {|nKey,nFlags| ScrollKey(nKey) }
//--------------------------------------------------
RETURN( NIL )

//STATIC FUNCTION ScrollKey(nKey)
//MsgInfo( "Key : "+str(nKey,10) )
//if nKey == K_ENTER
// goMainDlg:End()
// lRetVal := TRUE
//endif
//RETURN( NIL )

//=================================================================
//-* Vertical Scroll Bar
METHOD VScroll() CLASS TScrWnd
LOCAL nNewPos
if ::nVPos >= ::oWnd:oVScroll:nMin ;
.and. ::nVPos <= ::oWnd:oVScroll:nMax
nNewPos := ::oWnd:oVScroll:GetPos()
SysRefresh()

  ScrollWindow( ::oWnd:hWnd, 0,  ;
     (  ::nVPos-nNewPos )*D_HEIGHT,    ;
     0 , GetClientRect(::oWnd:hWnd) )
  ::nVPos := nNewPos

endif
RETURN( NIL )

METHOD VScrollThumb(nNewPos) CLASS TScrWnd
if ::nVPos >= ::oWnd:oVScroll:nMin ;
.and. ::nVPos <= ::oWnd:oVScroll:nMax
::oWnd:oVScroll:SetPos(nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, 0, ;
(::nVPos - nNewPos )*D_HEIGHT, ;
0 , GetClientRect(::oWnd:hWnd) )
::nVPos := nNewPos
endif
RETURN( NIL )

METHOD VScrollTrack(nNewPos) CLASS TScrWnd
if ::nVPos >= ::oWnd:oVScroll:nMin ;
.and. ::nVPos <= ::oWnd:oVScroll:nMax
::oWnd:oVScroll:SetPos(nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, 0, ;
(::nVPos - nNewPos )*D_HEIGHT, ;
0 , GetClientRect(::oWnd:hWnd) )
::nVPos := nNewPos
endif
RETURN( NIL )

METHOD VScrollPgDown() CLASS TScrWnd
LOCAL nNewPos
if ::nVPos < ::oWnd:oVScroll:nMax
nNewPos := ::nVPos + ::oWnd:oVScroll:nPgStep
nNewPos := iif(nNewPos > ::oWnd:oVScroll:nMax, ::oWnd:oVScroll:nMax, nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, 0, ;
( ::nVPos - nNewPos )*D_HEIGHT, ;
0 , GetClientRect(::oWnd:hWnd) )
::nVPos := nNewPos
endif
RETURN( NIL )

METHOD VScrollPgUp() CLASS TScrWnd
LOCAL nNewPos
if ::nVPos > ::oWnd:oVScroll:nMin
nNewPos := ::nVPos - ::oWnd:oVScroll:nPgStep
nNewPos := iif(nNewPos < ::oWnd:oVScroll:nMin,::oWnd:oVScroll:nMin,nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, 0, ;
( ::nVPos - nNewPos )*D_HEIGHT, ;
0 , GetClientRect(::oWnd:hWnd) )
::nVPos := nNewPos
endif
RETURN( NIL )

//=================================================================
//- Horizontal Scroll Bar
METHOD HScroll() CLASS TScrWnd
LOCAL nNewPos
if ::nHPos >= ::oWnd:oHScroll:nMin ;
.and. ::nHPos <= ::oWnd:oHScroll:nMax
nNewPos := ::oWnd:oHScroll:GetPos()
SysRefresh()
ScrollWindow( ::oWnd:hWnd, ;
(::nHPos - nNewPos )D_WIDTH,0, ;
0 , GetClientRect(::oWnd:hWnd) )
::nHPos := nNewPos
endif
RETURN( NIL )

METHOD HScrollThumb(nNewPos) CLASS TScrWnd
if ::nHPos >= ::oWnd:oHScroll:nMin ;
.and. ::nHPos <= ::oWnd:oHScroll:nMax
::oWnd:oHScroll:SetPos(nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, ;
(::nHPos - nNewPos )*D_WIDTH,0, ;
0 , GetClientRect(::oWnd:hWnd) )
::nHPos := nNewPos
endif
RETURN( NIL )

METHOD HScrollTrack(nNewPos) CLASS TScrWnd
if ::nHPos >= ::oWnd:oHScroll:nMin ;
.and. ::nHPos <= ::oWnd:oHScroll:nMax
::oWnd:oHScroll:SetPos(nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, ;
(::nHPos - nNewPos )*D_WIDTH,0, ;
0 , GetClientRect(::oWnd:hWnd) )
::nHPos := nNewPos
endif
RETURN( NIL )

METHOD HScrollPgDown() CLASS TScrWnd
LOCAL nNewPos
if ::nHPos < ::oWnd:oHScroll:nMax
nNewPos := ::nHPos + ::oWnd:oHScroll:nPgStep
nNewPos := iif(nNewPos > ::oWnd:oHScroll:nMax, ::oWnd:oHScroll:nMax, nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, ;
( ::nHPos - nNewPos )*D_WIDTH,0, ;
0 , GetClientRect(::oWnd:hWnd) )
::nHPos := nNewPos
endif
RETURN( NIL )

METHOD HScrollPgUp() CLASS TScrWnd
LOCAL nNewPos
if ::nHPos > ::oWnd:oHScroll:nMin
nNewPos := ::nHPos - ::oWnd:oHScroll:nPgStep
nNewPos := iif(nNewPos < ::oWnd:oHScroll:nMin,::oWnd:oHScroll:nMin,nNewPos)
SysRefresh()
ScrollWindow( ::oWnd:hWnd, ;
( ::nHPos - nNewPos )*D_WIDTH,0, ;
0 , GetClientRect(::oWnd:hWnd) )
::nHPos := nNewPos
endif
RETURN( NIL )

//=* End of File =================================================

procedure AppSys // Xbase++ requirement

return

FWH / xHarbour / BCC / MySql

Visual Studio / Harbour / DotNet Maui / C#
Ugo
Posts: 283
Joined: Sat Oct 15, 2005 06:40 AM
Re: Scroll Window Problem
Posted: Wed Jul 25, 2007 05:12 AM
Eroni wrote:Dears

I thinked that this problem was fixed in fwh 7.5, but no, any suggestions?


Hi Eroni,

with FWHX 7.04, xHb 0.99.71 and Windows Vista Business work well.
Ciao, best regards,

Ugo
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Scroll Window Problem
Posted: Wed Jul 25, 2007 10:58 AM
With FWH 7.07 and Vista Ultimate 32 bits is working fine:
regards, saludos

Antonio Linares
www.fivetechsoft.com
Eroni
Posts: 114
Joined: Fri Jul 21, 2006 07:15 PM
Scroll Window Problem
Posted: Thu Jul 26, 2007 05:46 PM

Antonio,

Do you tested try scroll window clicking vertical scroll bar?

When I try scroll window, scroll button bar too.

Regards

Eroni

FWH / xHarbour / BCC / MySql

Visual Studio / Harbour / DotNet Maui / C#
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Scroll Window Problem
Posted: Thu Jul 26, 2007 06:18 PM

Eroni,

> When I try scroll window, scroll button bar too.

Yes, but thats a normal behavior as the button bar is a child of the main window

You may use a MDI main window where the buttonbar is and then implement the scroll window on a MDICHILD window

regards, saludos

Antonio Linares
www.fivetechsoft.com
Eroni
Posts: 114
Joined: Fri Jul 21, 2006 07:15 PM
Scroll Window Problem
Posted: Fri Jul 27, 2007 09:17 PM

Is possible post a sample how do this?

Eroni

FWH / xHarbour / BCC / MySql

Visual Studio / Harbour / DotNet Maui / C#
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Scroll Window Problem
Posted: Fri Jul 27, 2007 09:35 PM
Here you have you sample modified:
Code: Select all Collapse
#include "FiveWin.ch" 

#define D_WIDTH 4 
#define D_HEIGHT 13 

static oWndMain

function Main()

   local oBar

   DEFINE WINDOW oWndMain TITLE "MDI sample" ;
      MENU BuildMenu() MDI

   DEFINE BUTTONBAR oBar 3D BUTTONSIZE 48, 48 OF oWndMain // here button bar 
   
   ACTIVATE WINDOW oWndMain MAXIMIZED
   
return nil   

FUNCTION Child() 

LOCAL oWnd,oScrWnd
define window oWnd from 0, 0 TO 25, 70 ; 
title "Scroll Window" ; 
vscroll hscroll MDICHILD OF oWndMain

TScrWnd():New( oWnd, 1, 40, 1, 70 ) 

RETURN( NIL ) 

function BuildMenu() 
LOCAL oMenu 

MENU oMenu 
MENUITEM "&Child Window"
MENU 
MENUITEM "&Open" ACTION Child()
MENUITEM "&Close" 
MENUITEM "&Save" 
MENUITEM "&End" 
ENDMENU 
ENDMENU 

return oMenu 

//----------------------------------------------------------------------------// 


//============================================================================ 
// FileName : SCROLL.PRG 
// Purpose : Windows Scroll Class 
// Author : Eric Yang 
// Update History : 
// Date Contents 
// ---------- --------------------------------------------------------------- 
// 1997.02.01 
// 
//============================================================================ 
#include "FiveWin.ch" 

#ifndef TRUE 
#define TRUE .T. 
#define FALSE .F. 
#endif 

CLASS TScrWnd 

DATA oWnd 
DATA nVPos,nHPos 

METHOD New( oWnd,nV1,nV2,nH1,nH2 ) CONSTRUCTOR 
METHOD SetScroll( nV1,nV2,nH1,nH2 ) 
//-*------------------------------------------------------------ 
METHOD VScroll() 
METHOD VScrollThumb() 
METHOD VScrollTrack() 
METHOD VScrollPgDown() 
METHOD VScrollPgUp() 
//-*----------------------------- 
METHOD HScroll() 
METHOD HScrollThumb() 
METHOD HScrollTrack() 
METHOD HScrollPgDown() 
METHOD HScrollPgUp() 

ENDCLASS 

METHOD New( oWnd,nV1,nV2,nH1,nH2 ) CLASS TScrWnd 
::nVPos := 0 
::nHPos := 0 
::oWnd := oWnd 
::SetScroll( nV1,nV2,nH1,nH2 ) 
RETURN Self 


METHOD SetScroll( nV1,nV2,nH1,nH2 ) CLASS TScrWnd 
LOCAL aCoors1:={},aCoors2:={} 
//-------------------------------------------------- 
//-* Vertical Scroll Bar 
// ? ::oWnd:oVSCroll=NIL 
if ::oWnd:oVScroll != NIL 
// ? nV1,nV2 
::oWnd:oVScroll:SetRange( nV1,nV2 ) 
::nVPos := ::oWnd:oVScroll:GetPos() 
::oWnd:oVScroll:bGoDown := {|| ::VScroll() } 
::oWnd:oVScroll:bGoUp := {|| ::VScroll() } 
::oWnd:oVScroll:bPageUp := {|| ::VScrollPgUp() } 
::oWnd:oVScroll:bPageDown := {|| ::VScrollPgDown() } 
::oWnd:oVScroll:bGoTop := {|| ::VScroll() } 
::oWnd:oVScroll:bGoBottom := {|| ::VScroll() } 
::oWnd:oVScroll:nPgStep := 10 
//::oWnd:oVScroll:lReDraw := TRUE 
::oWnd:oVScroll:bPos := {|nPos| ::VScrollThumb(nPos) } 
::oWnd:oVScroll:bTrack := {|nPos| ::VScrollTrack(nPos) } 
endif 
//-------------------------------------------------- 
//-* Horizontal Scroll Bar 
if ::oWnd:oHScroll != NIL 
::oWnd:oHScroll:SetRange( nH1,nH2 ) 
::nHPos := ::oWnd:oHScroll:GetPos() 
::oWnd:oHScroll:bGoDown := {|| ::HScroll() } 
::oWnd:oHScroll:bGoUp := {|| ::HScroll() } 
::oWnd:oHScroll:bPageUp := {|| ::HScrollPgUp() } 
::oWnd:oHScroll:bPageDown := {|| ::HScrollPgDown() } 
::oWnd:oHScroll:bGoTop := {|| ::HScroll() } 
::oWnd:oHScroll:bGoBottom := {|| ::HScroll() } 
::oWnd:oHScroll:nPgStep := 10 
//::oWnd:oHScroll:lReDraw := TRUE 
::oWnd:oHScroll:bPos := {|nPos| ::HScrollThumb(nPos) } 
::oWnd:oHScroll:bTrack := {|nPos| ::HScrollTrack(nPos) } 
endif 
//::oWnd:bKeyChar := {|nKey,nFlags| ScrollKey(nKey) } 
//-------------------------------------------------- 
RETURN( NIL ) 

//STATIC FUNCTION ScrollKey(nKey) 
//MsgInfo( "Key : "+str(nKey,10) ) 
//if nKey == K_ENTER 
// goMainDlg:End() 
// lRetVal := TRUE 
//endif 
//RETURN( NIL ) 

//================================================================= 
//-* Vertical Scroll Bar 
METHOD VScroll() CLASS TScrWnd 
LOCAL nNewPos 
if ::nVPos >= ::oWnd:oVScroll:nMin ; 
.and. ::nVPos <= ::oWnd:oVScroll:nMax 
nNewPos := ::oWnd:oVScroll:GetPos() 
SysRefresh() 

ScrollWindow( ::oWnd:hWnd, 0, ; 
( ::nVPos-nNewPos )*D_HEIGHT, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nVPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD VScrollThumb(nNewPos) CLASS TScrWnd 
if ::nVPos >= ::oWnd:oVScroll:nMin ; 
.and. ::nVPos <= ::oWnd:oVScroll:nMax 
::oWnd:oVScroll:SetPos(nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, 0, ; 
(::nVPos - nNewPos )*D_HEIGHT, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nVPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD VScrollTrack(nNewPos) CLASS TScrWnd 
if ::nVPos >= ::oWnd:oVScroll:nMin ; 
.and. ::nVPos <= ::oWnd:oVScroll:nMax 
::oWnd:oVScroll:SetPos(nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, 0, ; 
(::nVPos - nNewPos )*D_HEIGHT, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nVPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD VScrollPgDown() CLASS TScrWnd 
LOCAL nNewPos 
if ::nVPos < ::oWnd:oVScroll:nMax 
nNewPos := ::nVPos + ::oWnd:oVScroll:nPgStep 
nNewPos := iif(nNewPos > ::oWnd:oVScroll:nMax, ::oWnd:oVScroll:nMax, nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, 0, ; 
( ::nVPos - nNewPos )*D_HEIGHT, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nVPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD VScrollPgUp() CLASS TScrWnd 
LOCAL nNewPos 
if ::nVPos > ::oWnd:oVScroll:nMin 
nNewPos := ::nVPos - ::oWnd:oVScroll:nPgStep 
nNewPos := iif(nNewPos < ::oWnd:oVScroll:nMin,::oWnd:oVScroll:nMin,nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, 0, ; 
( ::nVPos - nNewPos )*D_HEIGHT, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nVPos := nNewPos 
endif 
RETURN( NIL ) 

//================================================================= 
//-* Horizontal Scroll Bar 
METHOD HScroll() CLASS TScrWnd 
LOCAL nNewPos 
if ::nHPos >= ::oWnd:oHScroll:nMin ; 
.and. ::nHPos <= ::oWnd:oHScroll:nMax 
nNewPos := ::oWnd:oHScroll:GetPos() 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, ; 
(::nHPos - nNewPos )*D_WIDTH,0, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nHPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD HScrollThumb(nNewPos) CLASS TScrWnd 
if ::nHPos >= ::oWnd:oHScroll:nMin ; 
.and. ::nHPos <= ::oWnd:oHScroll:nMax 
::oWnd:oHScroll:SetPos(nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, ; 
(::nHPos - nNewPos )*D_WIDTH,0, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nHPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD HScrollTrack(nNewPos) CLASS TScrWnd 
if ::nHPos >= ::oWnd:oHScroll:nMin ; 
.and. ::nHPos <= ::oWnd:oHScroll:nMax 
::oWnd:oHScroll:SetPos(nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, ; 
(::nHPos - nNewPos )*D_WIDTH,0, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nHPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD HScrollPgDown() CLASS TScrWnd 
LOCAL nNewPos 
if ::nHPos < ::oWnd:oHScroll:nMax 
nNewPos := ::nHPos + ::oWnd:oHScroll:nPgStep 
nNewPos := iif(nNewPos > ::oWnd:oHScroll:nMax, ::oWnd:oHScroll:nMax, nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, ; 
( ::nHPos - nNewPos )*D_WIDTH,0, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nHPos := nNewPos 
endif 
RETURN( NIL ) 

METHOD HScrollPgUp() CLASS TScrWnd 
LOCAL nNewPos 
if ::nHPos > ::oWnd:oHScroll:nMin 
nNewPos := ::nHPos - ::oWnd:oHScroll:nPgStep 
nNewPos := iif(nNewPos < ::oWnd:oHScroll:nMin,::oWnd:oHScroll:nMin,nNewPos) 
SysRefresh() 
ScrollWindow( ::oWnd:hWnd, ; 
( ::nHPos - nNewPos )*D_WIDTH,0, ; 
0 , GetClientRect(::oWnd:hWnd) ) 
::nHPos := nNewPos 
endif 
RETURN( NIL )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Eroni
Posts: 114
Joined: Fri Jul 21, 2006 07:15 PM
Scroll Window Problem
Posted: Sat Jul 28, 2007 12:38 PM

Antonio, thank you so much !

Regards,
Eroni

FWH / xHarbour / BCC / MySql

Visual Studio / Harbour / DotNet Maui / C#

Continue the discussion

Static archive · New replies & topics via GitHub Discussions