fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-04-15 01:01 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* harbour/contrib/gtqtc/gtqtc.cpp
  * harbour/contrib/gtqtc/gtqtc.h
  * harbour/contrib/gtqtc/moc_gtqtc.cpp
  * harbour/contrib/gtqtc/tests/demoqtc.prg
    . 
    ! GTQTC has reached an acceptable level.
    .
    /* 
      IMPLEMENTED : Screen Rendering.
                    Keyboard Input ( Please report missing defines )
                    Mouse Input ( 90% )
                    Most HB_GTI_* methods.

      TO_BE_DONE  : Resizing.
                    Icons.                                                  
                    SysMenu.
                    Window States.
                    Console Copy Operations.
                    Close [X] functionality.

      SUNUP       : A pure Clipper Applctn should run without problems.
    */
This commit is contained in:
Pritpal Bedi
2009-04-15 08:10:10 +00:00
parent 3117b701ca
commit b3b09f6110
5 changed files with 396 additions and 682 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
harbour/ChangeLog
View File

@@ -8,6 +8,30 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-04-15 01:01 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtqtc/gtqtc.cpp
* harbour/contrib/gtqtc/gtqtc.h
* harbour/contrib/gtqtc/moc_gtqtc.cpp
* harbour/contrib/gtqtc/tests/demoqtc.prg
.
! GTQTC has reached an acceptable level.
.
/*
IMPLEMENTED : Screen Rendering.
Keyboard Input ( Please report missing defines )
Mouse Input ( 90% )
Most HB_GTI_* methods.
TO_BE_DONE : Resizing.
Icons.
SysMenu.
Window States.
Console Copy Operations.
Close [X] functionality.
SUNUP : A pure Clipper Applctn should run without problems.
*/
2009-04-15 08:24 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* ChangeLog
* utils/hbmk2/hbmk2.prg

1038
harbour/contrib/gtqtc/gtqtc.cpp
View File

File diff suppressed because it is too large Load Diff

3
harbour/contrib/gtqtc/gtqtc.h
View File

@@ -191,7 +191,7 @@ public:
PHB_GT pGT;
QRgb COLORS[ 16 ];
void sizeByFont(void);
void resetWindowSize(void);
int fontHeight;
int fontWidth;
@@ -209,6 +209,7 @@ protected:
void mousePressEvent(QMouseEvent *event);
void mouseMoveEvent(QMouseEvent *event);
void mouseReleaseEvent(QMouseEvent *event);
void mouseDoubleClickEvent(QMouseEvent * event);
void paintEvent(QPaintEvent *event);
void resizeEvent(QResizeEvent *event);

2
harbour/contrib/gtqtc/moc_gtqtc.cpp
View File

@@ -1,7 +1,7 @@
/****************************************************************************
** Meta object code from reading C++ file 'gtqtc.h'
**
** Created: Mon Apr 13 22:15:05 2009
** Created: Wed Apr 15 00:42:41 2009
** by: The Qt Meta Object Compiler version 61 (Qt 4.5.0)
**
** WARNING! All changes made in this file will be lost!

11
harbour/contrib/gtqtc/tests/demoqtc.prg
View File

@@ -41,18 +41,20 @@ FUNCTION Main()
Local nn := 0
Local cc := 'abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmn'
#if 0
Hb_GtInfo( HB_GTI_FONTNAME , cFont )
Hb_GtInfo( HB_GTI_FONTWIDTH, nWidth )
Hb_GtInfo( HB_GTI_FONTSIZE , nHeight )
#endif
Hb_GtInfo( HB_GTI_CODEPAGE, 255 )
SetCursor( 0 )
SetColor( "n/w" )
DispScreen()
DO WHILE .T.
nKey := Inkey(0.1)
nKey := Inkey(0.1, INKEY_ALL )
if nKey == K_ESC
exit
endif
@@ -67,8 +69,7 @@ ENDIF
DO CASE
CASE nKey == K_ENTER
//Alert( "<Enter> Pressed" )
@ 10,20 SAY 'Pressed Enter' COLOR 'W+/R'
Alert( "<Enter> Pressed" )
CASE nKey == K_F2
lMark := Hb_GtInfo( HB_GTI_SELECTCOPY )
@@ -92,7 +93,7 @@ ENDIF
SetPaletteIndex()
CASE nKey == K_F8
Alert( "Menu text changed. Was: " + hb_GtInfo( HB_GTI_SELECTCOPY, DToS(Date()) + " " + Time() ) )
Alert( "Menu title is " + hb_GtInfo( HB_GTI_WINTITLE ) )
CASE nKey == K_F12
EXIT