HMGforum.com

Hi To all , Happy new year 2023

Is there anyone needing a Window Without Edge , i Will show you How.

[image][/image]

in Windows.C , Insert the Following code before CreateWindow. (Function initWindow)

if ( hb_parl (18) ) // Border
{
Style = BS_OWNERDRAW | WS_CHILD ;
ExStyle = 0;
}

IN i_Window.Ch

#xcommand DEFINE WINDOW <w> ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ AT <row>,<col> ] ;
[ ROW <row> ] ;
[ COL <col> ] ;
[ WIDTH <wi> ];
[ HEIGHT <h> ];
[ VIRTUALWIDTH <vWidth> ] ;
[ VIRTUALHEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
[ ICON <icon> ] ;
WINDOWTYPE ;
[ <main: MAIN> ] ;
[ <child: CHILD> ] ;
[ <panel: PANEL> ] ;
[ <noshow: NOSHOW> ] ;
[ TOPMOST <topmost> ] ;
[ <noborder : NOBORDER> ] ;
.
.
.
[ <noautorelease: NOAUTORELEASE> ] ;
[ <nominimize: NOMINIMIZE> ] ;
[ TITLEBAR <titlebar> ] ;
[ FONTNAME <FontName> FONTSIZE <FontSize> ] ;
=>;
DECLARE WINDOW <w> ;;
DECLARE CUSTOM COMPONENTS <w> ;;
_DefineWindow ( <"w">, <title>, <col>, <row>, <wi>, <h>, <.nominimize.>, <.nomaximize.>, <.nosize.>, <.nosysmenu.>, <.nocaption.>,.F., '',<{InitProcedure}>, <{ReleaseProcedure}> , <{MouseDragProcedure}>, <{SizeProcedure}> , <{ClickProcedure}> , <{MouseMoveProcedure}>, <backcolor> , <{PaintProcedure}> , <.noshow.> , <.topmost.> , <.main.> , <icon> , <.child.> , <FontName> , <FontSize>, <NotifyIcon> , <NotifyIconTooltip> , <{NotifyLeftClick}> , <{GotFocusProcedure}>, <{LostFocusProcedure}> , <vHeight> , <vWidth> , <{scrollleft}> , <{scrollright}> , <{scrollup}> , <{scrolldown}> , <{hScrollBox}> , <{vScrollBox}> , <.helpbutton.> , <{MaximizeProcedure}> , <{MinimizeProcedure}> , <cursor> , <.noautorelease.> , <{interactivecloseprocedure}> , <visible> , <autorelease> , <minbutton> , <maxbutton> , <sizable> , <sysmenu> , <titlebar> , <"parent"> , <.panel.> , <.noborder.> )

In h_Windows.Prg

Function _DefineWindow ( FormName, Caption, x, y, w, h ,nominimize ,....., noBorder)

//Add This
if valtype(noborder) == "U"
noborder := .f.
endif

Formhandle = InitWindow( Caption , x, y, w, h, nominimize,.....,noBorder)

In Your App:



DEFINE WINDOW &cWin1 AT nTop, nLeft+1 WIDTH ::nColTamMenu HEIGHT Iif( Len(::aOpz11) <= XMAXITEM , nHeight , 302 ) TITLE 'Men1'+cWin1 ;
NOBORDER NOMAXIMIZE NOMINIMIZE NOSIZE NOSYSMENU NOCAPTION CHILD PANEL PARENT &cParent BACKCOLOR ::aCorSub1 VIRTUAL HEIGHT Nil VISIBLE .T. // Iif( Len(::aOpz11) <= XMAXITEM , nHeight+1 , (Len(aOp1) * ::nItemSubHeight)+10 ) VISIBLE .t.
END WINDOW

Don´t forget to Rebuild The Lib Windows( Windows.C) .

Any Doubts , its jusk ask .


Greetings To all

This is great, but is possible transparent window?

Yes ,

cWin1 := 'Window1'
SET WINDOW &cWin1 TRANSPARENT TO 150.

You can adjust the level of transparency.


Greetings To all

It would be great to update IDE to all new properties.

I very much agree with mol's suggestion.
Is it possible?

Hi... I want to update it, at least include the new properties (as Marek says)
and controls like TimePicker, but I don't have free time, maybe this year I can.

Hi To Everyone ,

To Update the IDE Property , i would have to Study How to Do It. Don´t Have Much time Now , I Am Working in the Project
of a Grapich Browser for Array And DataBases For Hmg Using Bos Taurur Library And C.