Menu
▾
▴
hwgui-developers — Discussing of HwGUI development
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
(64) |
Apr
(70) |
May
(54) |
Jun
(57) |
Jul
(34) |
Aug
(19) |
Sep
(28) |
Oct
(48) |
Nov
(42) |
Dec
(43) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(50) |
Feb
(19) |
Mar
(10) |
Apr
(5) |
May
(1) |
Jun
(14) |
Jul
(23) |
Aug
(6) |
Sep
(118) |
Oct
(110) |
Nov
(36) |
Dec
(6) |
| 2006 |
Jan
(19) |
Feb
(7) |
Mar
(4) |
Apr
(32) |
May
(6) |
Jun
(14) |
Jul
(42) |
Aug
(38) |
Sep
(88) |
Oct
(21) |
Nov
(40) |
Dec
(37) |
| 2007 |
Jan
(31) |
Feb
(20) |
Mar
(26) |
Apr
(38) |
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(8) |
Sep
(2) |
Oct
(3) |
Nov
(25) |
Dec
(9) |
| 2008 |
Jan
(7) |
Feb
(10) |
Mar
(16) |
Apr
(10) |
May
(25) |
Jun
(16) |
Jul
(27) |
Aug
(8) |
Sep
(20) |
Oct
(54) |
Nov
(11) |
Dec
(14) |
| 2009 |
Jan
(28) |
Feb
(22) |
Mar
(13) |
Apr
(70) |
May
(25) |
Jun
(23) |
Jul
(12) |
Aug
(18) |
Sep
(7) |
Oct
(4) |
Nov
(8) |
Dec
(36) |
| 2010 |
Jan
(58) |
Feb
(66) |
Mar
(3) |
Apr
(16) |
May
(9) |
Jun
(10) |
Jul
(6) |
Aug
(8) |
Sep
(17) |
Oct
(15) |
Nov
(12) |
Dec
(27) |
| 2011 |
Jan
(3) |
Feb
(17) |
Mar
(5) |
Apr
(12) |
May
(1) |
Jun
|
Jul
(1) |
Aug
(5) |
Sep
(56) |
Oct
(24) |
Nov
(8) |
Dec
(32) |
| 2012 |
Jan
(20) |
Feb
(3) |
Mar
|
Apr
|
May
|
Jun
(9) |
Jul
(29) |
Aug
(3) |
Sep
(17) |
Oct
(60) |
Nov
(17) |
Dec
(52) |
| 2013 |
Jan
(22) |
Feb
(35) |
Mar
(31) |
Apr
(5) |
May
(16) |
Jun
(108) |
Jul
(57) |
Aug
(2) |
Sep
(11) |
Oct
|
Nov
(3) |
Dec
(13) |
| 2014 |
Jan
(39) |
Feb
(15) |
Mar
|
Apr
(31) |
May
|
Jun
(9) |
Jul
(16) |
Aug
(1) |
Sep
(8) |
Oct
(51) |
Nov
(5) |
Dec
(119) |
| 2015 |
Jan
(78) |
Feb
(47) |
Mar
(25) |
Apr
(32) |
May
(34) |
Jun
(42) |
Jul
(62) |
Aug
(10) |
Sep
(11) |
Oct
(5) |
Nov
(13) |
Dec
(24) |
| 2016 |
Jan
(12) |
Feb
(1) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(12) |
Jul
(5) |
Aug
(32) |
Sep
(36) |
Oct
(34) |
Nov
(3) |
Dec
(1) |
| 2017 |
Jan
(2) |
Feb
(3) |
Mar
(2) |
Apr
|
May
(3) |
Jun
(5) |
Jul
(6) |
Aug
(5) |
Sep
|
Oct
|
Nov
|
Dec
(1) |
| 2018 |
Jan
(1) |
Feb
(1) |
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
(26) |
Sep
(24) |
Oct
(2) |
Nov
(6) |
Dec
(26) |
| 2019 |
Jan
(10) |
Feb
(5) |
Mar
|
Apr
(1) |
May
|
Jun
(1) |
Jul
(3) |
Aug
|
Sep
(2) |
Oct
(1) |
Nov
(1) |
Dec
(2) |
| 2020 |
Jan
(2) |
Feb
|
Mar
|
Apr
|
May
(5) |
Jun
(5) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2021 |
Jan
(1) |
Feb
|
Mar
|
Apr
(1) |
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
(4) |
Sep
|
Oct
(1) |
Nov
(1) |
Dec
(1) |
|
From: Sandro R. R. F. <san...@ya...> - 2005-01-05 16:04:23
|
2004-01-05 14-00 UTC-0300 Sandro R. R. Freire <san...@ya...>
* source/xml/xmlparce.c
#Adapted for use in xHarbour because replace function in xHarbour
+ added hb_stackReturnItem()
- removed hb_stackReturn()
Regards
Sandro Freire
http://geocities.yahoo.com.br/sandrorrfreire/
|
|
From: Sandro R. R. F. <san...@ya...> - 2005-01-05 15:48:06
|
2004-01-05 13-50 UTC-0300 Sandro R. R. Freire <san...@ya...>
* source/misc.c
! New functions IsCapsLockActive, IsNumLockActive and
IsScrollLockActive
* doc/funclist.txt
!Update
Regards
Sandro Freire
http://geocities.yahoo.com.br/sandrorrfreire/
|
|
From: Sandro R. R. F. <san...@ya...> - 2005-01-05 10:35:11
|
Using command @ x, y BITMAP ... FROM RESOURCE not present the image in screen. Regards Sandro Freire http://geocities.yahoo.com.br/sandrorrfreire/ ----- Original Message ----- From: "Alexander S.Kresin" <al...@be...> To: <hwg...@li...> Sent: Wednesday, January 05, 2005 7:44 AM Subject: [Hwgui-developers] Re: Bug ïîíåäåëüíèê, 3 ÿíâàðÿ 2005 ã. Sandro san...@ya... wrote: SRRF> Hi Alexander SRRF> Exist the bug in comand BITMAP SRRF> please verify What a bug does you see there ? It works normally here ... Regards, Alexander http://kresin.belgorod.su ------------------------------------------------------- The SF.Net email is sponsored by: Beat the post-holiday blues Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek. It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt _______________________________________________ Hwgui-developers mailing list Hwg...@li... https://lists.sourceforge.net/lists/listinfo/hwgui-developers |
|
From: Alexander S.K. <al...@be...> - 2005-01-05 09:45:23
|
=EF=EE=ED=E5=E4=E5=EB=FC=ED=E8=EA, 3 =FF=ED=E2=E0=F0=FF 2005 =E3. Sandro = san...@ya... wrote: SRRF> Hi Alexander SRRF> Exist the bug in comand BITMAP SRRF> please verify What a bug does you see there ? It works normally here ... =20 Regards, Alexander http://kresin.belgorod.su |
|
From: Sandro F. <san...@ya...> - 2005-01-04 19:18:28
|
Hi Alexander, in samples, the browse play intermitent sound (beep).
Regards
.
@ 004,004 BROWSE oBrowse ARRAY OF Dlg_Acha SIZE 633,150 STYLE
WS_VSCROLL + WS_HSCROLL ;
ON CLICK {|| Browse1Click()} ;
ON KEYDOWN {|o,key| Browse1Key(o, key) }
...
Static Function Browse1Key( oBrowse, key )
IF key == VK_RETURN
Browse1Click()
ELSEIF (key >= 65 .AND. key <= 90) .OR. key = 32
a_campo += UPPER(CHR(key))
o_campo:SetText(a_campo) // Mosta as letras digitadas
FOR i = 1 TO LEN(vSelec) // Procura a sequencia no vetor
IF vSelec[i,2] = ALLTRIM(a_campo)
oBrowse:tekzp:=i // posiciona o browse
oBrowse:Refresh()
Exit
Endif
NEXT
ELSEIF key == 8
a_campo := STUFF(a_campo,LEN(a_campo),1,"") // remove a ultima letra
o_campo:SetText(a_campo)
FOR i = 1 TO LEN(vSelec)
IF vSelec[i,2] = ALLTRIM(a_campo)
oBrowse:tekzp:=i
oBrowse:Refresh()
Exit
Endif
NEXT
END
Return .T.
|
|
From: Sandro R. R. F. <san...@ya...> - 2005-01-03 11:18:53
|
Hi Alexander Exist the bug in comand BITMAP please verify Regards Sandro Freire |
|
From: Sandro F. <san...@ya...> - 2004-12-25 15:19:53
|
Hi Alexander What use the instruction Ctrl+c and Ctrl+v in get Regards Sandro |
|
From: Kurt K. N. <kur...@oy...> - 2004-12-22 21:07:32
|
some faults in designer when building .prg files
1. when i give form1 a name, in prg file i get two private statements in
the same line
PRIVATE NamePRIVATE oGroup1, oEditbox1,...
2. Groupbox calculates coordinates relative to the form instead relative
to the
Groupbox
3. Button on click puts the event in the line before
@ 5,314 BROWSE oBrowse1 SIZE 703,139 ;
ON CLICK {||save()}
@ 11,462 BUTTON oButton1 CAPTION "Save" SIZE 80,26 ;
ON CLICK {||oDlg:close()}
@ 113,463 BUTTON oButton2 CAPTION "Don't save" SIZE 64,26
ACTIVATE DIALOG oDlg
kur...@oy...
|
|
From: Sandro R. R. F. <san...@ya...> - 2004-12-17 10:54:42
|
Hi Alexander as it turn off the beep in the Browse in ON KEYDOWN. Regards Sandro Freire http://www.lumainformatica.com.br |
|
From: atzct <at...@ob...> - 2004-12-16 15:45:24
|
Next code allow adjust to right and bottom controls in designer.
In Designer.prg
replace
MENUITEM "Adjust to left" ACTION AdjustCtrl(
GetCtrlSelected(HFormGen():oDlgSelected),.T.,.F. )
MENUITEM "Adjust to top" ACTION AdjustCtrl(
GetCtrlSelected(HFormGen():oDlgSelected),.F.,.T. )
to
MENUITEM "Adjust to left" ACTION AdjustCtrl(
GetCtrlSelected(HFormGen():oDlgSelected),.T.,.F.,.F.,.F. )
MENUITEM "Adjust to top" ACTION AdjustCtrl(
GetCtrlSelected(HFormGen():oDlgSelected),.F.,.T.,.F.,.F. )
MENUITEM "Adjust to right" ACTION AdjustCtrl(
GetCtrlSelected(HFormGen():oDlgSelected),.F.,.F.,.T.,.F. )
MENUITEM "Adjust to bottom" ACTION AdjustCtrl(
GetCtrlSelected(HFormGen():oDlgSelected),.F.,.F.,.F.,.T. )
In hctrl.prg replace Function AdjustCtrl with modified function below
Function AdjustCtrl( oCtrl, lLeft, lTop, lRight, lBottom )
Local i, aControls := Iif( oCtrl:oContainer != Nil,
oCtrl:oContainer:aControls, oCtrl:oParent:aControls )
Local lRes := .F., xPos, yPos, delta := 15
IF lLeft == Nil .AND. lTop == Nil .AND. lRight == Nil .AND. lBottom
== Nil
lLeft := lTop := lRight := lBottom := .T.
ELSE
delta := 30
ENDIF
FOR i := Len( aControls ) To 1 STEP -1
IF !aControls[i]:lHide
IF lLeft .AND. aControls[i]:nLeft+aControls[i]:nWidth <
oCtrl:nLeft .AND. ;
aControls[i]:nLeft+aControls[i]:nWidth + delta > oCtrl:nLeft
.AND. ;
aControls[i]:nTop <= oCtrl:nTop .AND. aControls[i]:nTop +
aControls[i]:nHeight > oCtrl:nTop
lRes := .T.
xPos := aControls[i]:nLeft+aControls[i]:nWidth + 1
yPos := aControls[i]:nTop
EXIT
ELSEIF lTop .AND. Abs( aControls[i]:nLeft-oCtrl:nLeft ) < delta
.AND. ;
aControls[i]:nTop + aControls[i]:nHeight < oCtrl:nTop
.AND. ;
aControls[i]:nTop + aControls[i]:nHeight + delta >
oCtrl:nTop
lRes := .T.
xPos := aControls[i]:nLeft
yPos := aControls[i]:nTop + aControls[i]:nHeight + 1
EXIT
ELSEIF lRight .AND. oCtrl:nLeft+oCtrl:nWidth <
aControls[i]:nLeft .AND. ;
oCtrl:nLeft+oCtrl:nWidth >= aControls[i]:nLeft - delta .AND. ;
oCtrl:nTop >= aControls[i]:nTop .AND. aControls[i]:nTop +
aControls[i]:nHeight > oCtrl:nTop
lRes := .T.
xPos := aControls[i]:nLeft-oCtrl:nWidth - 1
yPos := aControls[i]:nTop
EXIT
ELSEIF lBottom .AND. Abs( aControls[i]:nLeft-oCtrl:nLeft ) <=
delta .AND. ;
aControls[i]:nTop > oCtrl:nTop + oCtrl:nHeight .AND. ;
aControls[i]:nTop - delta <= oCtrl:nTop + oCtrl:nHeight
lRes := .T.
xPos := aControls[i]:nLeft
yPos := aControls[i]:nTop - oCtrl:nHeight - 1
EXIT
ENDIF
ENDIF
NEXT
IF lRes
CtrlMove( oCtrl,xPos-oCtrl:nLeft,yPos-oCtrl:nTop,.F.,.T. )
Container( oCtrl:oParent,oCtrl,oCtrl:nLeft,oCtrl:nTop )
InspUpdBrowse()
ENDIF
Return Nil
Best regards,
Alexey Myronenko
|
|
From: Alexander S.K. <al...@be...> - 2004-12-16 14:04:01
|
On 16.12.2004 16:30, Sandro R. R. Freire <san...@ya...> wrote:
SRRF> Alexander
SRRF> Is possible to return in Columns OemToAnsi()
SRRF> Regards
Why not ?
You can use any function there:
oBrw:AddColumn( HColumn():New(
cTitle,{||OemToAnsi(SOME_FIELD)},"C",nFieldLen,0 ) )
Regards,
Alexander
http://kresin.belgorod.su
|
|
From: Sandro R. R. F. <san...@ya...> - 2004-12-16 13:30:26
|
Alexander Is possible to return in Columns OemToAnsi() Regards Sandro Freire http://www.lumainformatica.com.br |
|
From: atzct <at...@ob...> - 2004-12-15 12:01:22
|
In command get with array or class data where var is Numeric all work,
but in xml form don't work. See sample below in two files test1.prg and
test1.xml
test1.prg
#include "windows.ch"
#include "guilib.ch"
#include "hbclass.ch"
func main()
local w0
Local fnt1 := HFont():Add( "Verdana", 0, -12, , 1 )
Local fnt2 := HFont():Add( "lucida console", 0, -10, , 1 )
local e1 := {10,"str10"}
init window w0 Main title "test editbox from hformtmpl" at 0,0 size 500,300
@20,100 OwnerButton text "edit array and :data from xml" size 200,40 On
click {||hformtmpl():read("test1.xml"):show()} font fnt1 flat
@20,150 OwnerButton text "exit from test" size 100,40 On click
{||w0:close()} font fnt2 flat
@200,20 say "e1[1]" size 40,24
@250,20 get e1[1] size 50,24
@200,50 say "e1[2]" size 40,24
@250,50 get e1[2] size 50,24
w0:activate()
return nil
class test_class
data data1 init 10
data data2 init "string 10"
method new()
endclass
method new() class test_class
return self
end of test1.prg
test1.xml
<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
<style>
<property name="Geometry">{326,108,398,316}</property>
<property name="Caption">[test editbox]</property>
<property name="FormType">[dlgModal]</property>
<property name="lClipper">.F.</property>
<property name="lExitOnEnter">.F.</property>
<property name="Variables">{q1,cl1}</property>
</style>
<method name="onFormInit">
<![CDATA[q1:={12,"str12"}
cl1 := test_class():new()]]>
</method>
<part class="label">
<style>
<property name="Geometry">{22,18,341,44}</property>
<property name="Name">[oLabel3]</property>
</style>
<method name="onInit">
<![CDATA[Parameters oCtrl
octrl:setvalue("valtype q1 is "+valtype(q1)+", valtype(q1[1]) is
"+valtype(q1[1])+", q1[1] ="+str(q1[1])+", oeditbox1:ctype is
"+oeditbox1:ctype)]]>
</method>
</part>
<part class="label">
<style>
<property name="Geometry">{22,63,37,22}</property>
<property name="Name">[oLabel1]</property>
<property name="Caption">[q1[1]]</property>
</style>
</part>
<part class="editbox">
<style>
<property name="Geometry">{60,63,80,24}</property>
<property name="Name">[oEditbox1]</property>
<property name="varName">[q1[1]]</property>
<property name="ctoolt">[]</property>
</style>
<method name="onInit">
<![CDATA[Parameters oCtrl
ct1 := oCtrl:tooltip := "type of edit is - " + oCtrl:ctype]]>
</method>
</part>
<part class="label">
<style>
<property name="Geometry">{22,86,37,22}</property>
<property name="Name">[oLabel2]</property>
<property name="Caption">[q1[2]]</property>
</style>
</part>
<part class="editbox">
<style>
<property name="Geometry">{60,86,80,24}</property>
<property name="Name">[oEditbox2]</property>
<property name="varName">[q1[2]]</property>
</style>
</part>
<part class="label">
<style>
<property name="Geometry">{19,126,358,44}</property>
<property name="Name">[oLabel4]</property>
</style>
<method name="onInit">
<![CDATA[Parameters oCtrl
octrl:setvalue("valtype cl1 is "+valtype(cl1)+", valtype :data1 is
"+valtype(cl1:data1)+", cl1:data1="+str(cl1:data1)+", oeditbox4:ctype is
"+oeditbox4:ctype)]]>
</method>
</part>
<part class="label">
<style>
<property name="Geometry">{19,171,80,22}</property>
<property name="Name">[oLabel5]</property>
<property name="Caption">[:data1]</property>
</style>
</part>
<part class="editbox">
<style>
<property name="Geometry">{100,171,80,24}</property>
<property name="Name">[oEditbox4]</property>
<property name="varName">[cl1:data1]</property>
</style>
</part>
<part class="label">
<style>
<property name="Geometry">{19,194,80,22}</property>
<property name="Name">[oLabel6]</property>
<property name="Caption">[:data2]</property>
</style>
</part>
<part class="editbox">
<style>
<property name="Geometry">{100,196,80,24}</property>
<property name="Name">[oEditbox3]</property>
<property name="varName">[cl1:data2]</property>
</style>
</part>
<part class="ownerbutton">
<style>
<property name="Geometry">{34,249,82,59}</property>
<property name="Name">[oOwnerbutton1]</property>
<property name="Caption">[close()]</property>
</style>
<method name="onClick">
<![CDATA[odlg:close()]]>
</method>
</part>
</part>
end of test1.xml
|
|
From: Marcos A. G. <mar...@uo...> - 2004-12-14 15:21:34
|
Alexander,
Thanks.
Using xHarbour, i can create structures at PRG level.
Example:
#include "wintypes.ch"
#Include "cstruct.ch"
typedef struct { ;
UINT style;
WNDPROC lpfnWndProc;
int cbClsExtra;
int cbWndExtra;
HANDLE hInstance;
HICON hIcon;
HCURSOR hCursor;
HBRUSH hbrBackground;
LPCTSTR lpszMenuName;
LPCTSTR lpszClassName;
} WNDCLASS
But Harbour don't have this recurse.
To mantain HWGUI compatible with Harbour, i can't use this recurse. The
solution is to use a recurse that are common to both: Harbour and xHarbour.
Regards,
Marcos Gambeta
http://geocities.yahoo.com.br/marcosgambeta/
----- Original Message -----
From: "Alexander S.Kresin" <al...@be...>
To: <hwg...@li...>
Sent: Tuesday, December 14, 2004 9:03 AM
Subject: [Hwgui-developers] Re: Harbour and structures
On 13.12.2004 20:08, Marcos Antonio Gambeta <mar...@uo...>
wrote:
MAG> Alexander,
MAG> There are functions of the WINAPI that use structures.
MAG> Do you have any example about how to pass a structure from C to PRG and
from
MAG> PRG to C (using Harbour, not xHarbour) ?
From PRG to C I usually pass all structure items as parameters:
HB_FUNC( INVALIDATERECT )
{
RECT rc;
if( hb_pcount() > 2 )
{
rc.left = hb_parni( 3 );
rc.top = hb_parni( 4 );
rc.right = hb_parni( 5 );
rc.bottom = hb_parni( 6 );
}
InvalidateRect(
(HWND) hb_parnl( 1 ), // handle of window with changed update
region
( hb_pcount() > 2 )? &rc:NULL, // address of rectangle coordinates
hb_parni( 2 ) // erase-background flag
);
}
From C to PRG - as array:
HB_FUNC( GETBITMAPSIZE )
{
BITMAP bitmap;
PHB_ITEM aMetr = _itemArrayNew( 2 );
PHB_ITEM temp;
GetObject( (HBITMAP) hb_parnl( 1 ), sizeof( BITMAP ), ( LPVOID )
&bitmap );
temp = _itemPutNL( NULL, bitmap.bmWidth );
_itemArrayPut( aMetr, 1, temp );
_itemRelease( temp );
temp = _itemPutNL( NULL, bitmap.bmHeight );
_itemArrayPut( aMetr, 2, temp );
_itemRelease( temp );
_itemReturn( aMetr );
_itemRelease( aMetr );
}
Regards,
Alexander
http://kresin.belgorod.su
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.809 / Virus Database: 551 - Release Date: 9/12/2004
|
|
From: Sandro R. R. F. <san...@ya...> - 2004-12-14 13:30:26
|
2004-12-14 11-30 UTC-0300 Sandro R. R. Freire <san...@ya...>
* source/hbrowse.prg
new variables ::acolAlias and ::aRelation
If hbrowse use set relation, the variables determine the alias to usein
function FldStr, see line 1546
Regards
Sandro Freire
http://www.lumainformatica.com.br
|
|
From: Sandro R. R. F. <san...@ya...> - 2004-12-14 11:22:05
|
Hi Alexander Please compile the samples browse, in Windows XP using resource Manifest. Exist the problem in exibition the bar of navigation. Other problem I use two DBF in Set Relation but, present the error in line 1544, what the solution for this problem. Regards Sandro Freire http://www.lumainformatica.com.br |
|
From: Alexander S.K. <al...@be...> - 2004-12-14 11:20:47
|
On 14.12.2004 14:10, Sandro R. R. Freire <san...@ya...> wrote: SRRF> Hi Alexander SRRF> The link for download is 2.13 Sure, that's an old page from the cache of your browser - just reload it. Regards, Alexander http://kresin.belgorod.su |
|
From: Sandro R. R. F. <san...@ya...> - 2004-12-14 11:08:37
|
Hi Alexander The link for download is 2.13 Rega4rds Sandro Freire http://www.lumainformatica.com.br ----- Original Message ----- From: "Alexander S.Kresin" <al...@be...> To: <hwg...@li...> Sent: Tuesday, December 14, 2004 8:58 AM Subject: [Hwgui-developers] HwGUI 2.14 > The new release 2.14 has been uploaded to my site. > I'll make binaries for Bcc 5.5.1 a bit later. > > > Regards, > Alexander > http://kresin.belgorod.su > > > > > ------------------------------------------------------- > SF email is sponsored by - The IT Product Guide > Read honest & candid reviews on hundreds of IT Products from real users. > Discover which products truly live up to the hype. Start reading now. > http://productguide.itmanagersjournal.com/ > _______________________________________________ > Hwgui-developers mailing list > Hwg...@li... > https://lists.sourceforge.net/lists/listinfo/hwgui-developers |
|
From: Alexander S.K. <al...@be...> - 2004-12-14 11:00:57
|
On 13.12.2004 20:08, Marcos Antonio Gambeta <mar...@uo...> wrote:
MAG> Alexander,
MAG> There are functions of the WINAPI that use structures.
MAG> Do you have any example about how to pass a structure from C to PRG and from
MAG> PRG to C (using Harbour, not xHarbour) ?
From PRG to C I usually pass all structure items as parameters:
HB_FUNC( INVALIDATERECT )
{
RECT rc;
if( hb_pcount() > 2 )
{
rc.left = hb_parni( 3 );
rc.top = hb_parni( 4 );
rc.right = hb_parni( 5 );
rc.bottom = hb_parni( 6 );
}
InvalidateRect(
(HWND) hb_parnl( 1 ), // handle of window with changed update region
( hb_pcount() > 2 )? &rc:NULL, // address of rectangle coordinates
hb_parni( 2 ) // erase-background flag
);
}
From C to PRG - as array:
HB_FUNC( GETBITMAPSIZE )
{
BITMAP bitmap;
PHB_ITEM aMetr = _itemArrayNew( 2 );
PHB_ITEM temp;
GetObject( (HBITMAP) hb_parnl( 1 ), sizeof( BITMAP ), ( LPVOID ) &bitmap );
temp = _itemPutNL( NULL, bitmap.bmWidth );
_itemArrayPut( aMetr, 1, temp );
_itemRelease( temp );
temp = _itemPutNL( NULL, bitmap.bmHeight );
_itemArrayPut( aMetr, 2, temp );
_itemRelease( temp );
_itemReturn( aMetr );
_itemRelease( aMetr );
}
Regards,
Alexander
http://kresin.belgorod.su
|
|
From: Alexander S.K. <al...@be...> - 2004-12-14 11:00:56
|
The new release 2.14 has been uploaded to my site. I'll make binaries for Bcc 5.5.1 a bit later. Regards, Alexander http://kresin.belgorod.su |
|
From: Marcos A. G. <mar...@uo...> - 2004-12-13 17:03:34
|
Alexander, There are functions of the WINAPI that use structures. Do you have any example about how to pass a structure from C to PRG and from PRG to C (using Harbour, not xHarbour) ? Regards, Marcos Gambeta --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.809 / Virus Database: 551 - Release Date: 9/12/2004 |
|
From: Sandro R. R. F. <san...@ya...> - 2004-12-13 16:28:25
|
2004-12-13 14-15 UTC-0300 Sandro R. R. Freire <san...@ya...>
+ source/hrect.prg
new class
* include/guilib.ch
new command @ <X>, <Y>, <X2>, <Y2> RECT ....
* samples/a.prg
added new sample class hrect
* makefile.bc
* makefile.pc
* makefile.gcc
update new dependencies
Contribution by 2004 Ricardo de Moura Marques
<ric...@ca...>
Regards
Sandro Freire
http://www.lumainformatica.com.br
|
|
From: Alexander S.K. <al...@be...> - 2004-12-11 18:26:49
|
=F1=F3=E1=E1=EE=F2=E0, 11 =E4=E5=EA=E0=E1=F0=FF 2004 =E3. Kurt kurt.klipp= el...@oy... wrote: KKN> when I try tio build the new version of Designer I get the following= Error KKN> message >>>Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved. >>Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland >>Error: Unresolved external '_HB_FUN_HFRM_ARR2STR' referenced from >>C:\HWGUI\DESIG >>NER\HFORMGEN.OBJ >>Error: Unresolved external '_HB_FUN_GETKEYSTATE' referenced from >>C:\HWGUI\DESIGN >>ER\HFORMGEN.OBJ >>Error: Unresolved external '_HB_FUN_HREPTMPL' referenced from >>C:\HWGUI\DESIGNER\ >>HFORMGEN.OBJ KKN> version of harbour is 0.44 KKN> version of hwgui is 2.13 ( 2 month old ) You need to build it with a new HwGUI version - those unresolved externals are to the recently added HwGUI functions and class ( HRepTmpl ). Regards, Alexander http://kresin.belgorod.su |
|
From: Kurt K. N. <kur...@oy...> - 2004-12-11 16:25:46
|
when I try tio build the new version of Designer I get the following Error message >>Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved. >Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland >Error: Unresolved external '_HB_FUN_HFRM_ARR2STR' referenced from >C:\HWGUI\DESIG >NER\HFORMGEN.OBJ >Error: Unresolved external '_HB_FUN_GETKEYSTATE' referenced from >C:\HWGUI\DESIGN >ER\HFORMGEN.OBJ >Error: Unresolved external '_HB_FUN_HREPTMPL' referenced from >C:\HWGUI\DESIGNER\ >HFORMGEN.OBJ version of harbour is 0.44 version of hwgui is 2.13 ( 2 month old ) kur...@oy... |
|
From: Alexander S.K. <al...@be...> - 2004-12-09 10:31:11
|
On 09.12.2004 0:31, atzct <at...@ob...> wrote:
a> Take small sample.
a> [ ... ]
Fixed:
2004-12-08 13:30 UTC+0300 Alexander Kresin <al...@be...>
* utils/designer/editor.prg
! Small fix
* doc/hwgdoc.htm
* information about the designer has been added
- utils/designer/readme.txt
- file removed, because the info is in hwgdoc.htm now
+ utils/designer/files.txt
Regards,
Alexander
http://kresin.belgorod.su
|
101 messages has been excluded from this view by a project administrator.
