#include 'fivewin.ch'
#define DT_CENTER 0x0001
#define DT_VCENTER 0x0004
Function Main()
Local oDlg
Local nRowPos
Local nColPos
Local oCrsHand
Local lDrag := .f.
Local lInit := .t.
Define Dialog oDlg From 100, 100 To 500, 700 Pixel Style nOr( WS_POPUP ) Color 0, CLR_WHITE Transparent
oDlg : bLClicked := { | nRow, nCol | SetCapture( oDlg : hWnd ), nRowPos := nRow, nColPos := nCol, lDrag := .T., oDlg : oCursor := oCrsHand }
oDlg : bMMoved := { | nRow, nCol | If( lDrag, oDlg : Move( oDlg : nTop + nRow - nRowPos,;
oDlg : nLeft + nCol - nColPos,,, .T. ),) }
oDlg : bLButtonUp := { || lDrag := .f., oDlg : oCursor := nil, ReleaseCapture() }
Activate Dialog oDlg Centered On Paint CabeceraDialogo( oDlg, "Altas alumnos" ) Valid ( .t. )
Return 0
//----------------------------------------------------------------------------//
Function CabeceraDialogo( oDlg, cTitulo )
Local oSay
Local oBmp
Local oFont1
Local hBitmap
Local hDc := oDlg : GetDC()
Local hPen := CreatePen( PS_SOLID, 1, RGB( 43, 87, 154 ) )
Local aRect := GetClientRect( oDlg : hWnd )
Local hBrush := CreateSolidBrush( RGB( 43, 87, 154 ) )
Local hOldPen := SelectObject( hDc, hPen )
Local hOldBrush := SelectObject( hDc, hBrush )
Default cTitulo := ''
Define Font oFont1 Name "Segoe UI" Size 0, -20 Bold
Rectangle( hDC, aRect[ 1 ],;
aRect[ 2 ],;
35,;
aRect[ 4 ] )
Rectangle( hDC, aRect[ 1 ],;
0,;
aRect[ 3 ],;
5 )
Rectangle( hDC, aRect[ 1 ],;
aRect[ 4 ] - 5,;
aRect[ 3 ],;
aRect[ 4 ] )
Rectangle( hDC, aRect[ 4 ] - 5,;
aRect[ 2 ],;
aRect[ 3 ] - 5,;
aRect[ 4 ] )
hBitmap := LoadBitmap( GetResources(), 'cerrar' )
DrawBitmap( hDc, hBitmap, 8, aRect[ 4 ] - 45, 37, 20 )
oFont1 : Activate( hDc )
SetTextColor( hDC, CLR_WHITE )
SetBkColor( hDC, RGB( 43, 87, 154 ) )
DrawTextEx( hDC, cTitulo, { 02, 15, 45, aRect[ 4 ] - 50 }, DT_CENTER + DT_VCENTER )
SelectObject( hDc, hOldPen )
SelectObject( hDc, hOldBrush )
DeleteObject( hPen )
DeleteObject( hBrush )
oFont1 : Deactivate( hDC )
oDlg : ReleaseDc()
oFont1 : End()
Return 0