In this example i will try build permanent hdc child window
as a simple canvas for DC drawing
$ Filename "GUIstaticTest.exe" ' o2
include "RTL32.inc"
include "awinh037.inc"
#lookahead
'init windows/controls.................................................
INT win,wx=100,wy=200,ww=800,wh=608,wstyle = WS_MINMAXSIZE
INT win2,wx2=140,wy2=54,ww2=640,wh2=512,wstyle2 = WS_CHILD | WS_VISIBLE | WS_DLGFRAME
INT button0,b0ID=100, lvControl,lvID=1000
'##### GLOBALS HDC ###############################################
INT hdc, hdcMem, hbmMem, oldBmp, oldBrush, oldPen, oldFont
INT textX,textY,hBrush
RECT rc
SYS frontColor,backColor
'open main window -----------------------------------------------------
win = SetWindow("GUI- HDC Child Window",wx, wy, ww, wh, 0, wstyle)
'open child window on main window(win)---------------------------------
win2 = SetWindow("", wx2, wy2, ww2, wh2, win, wstyle2)
'init HDC drawings
InitDrawing()
SetWindowColor(win2,100,100,200)
TextColor(win2,RGB(220,200,0),RGB(0, 0, 0)) 'fronColor,backColor
TextOn(win2,280,36,"<--- HDC Window --->")
'----------------------------------------------------------------------
'message loop
WHILE GetMessage (wm,0,0,0)
TranslateMessage wm
DispatchMessage wm
WEND
'----------------------------------------------------------------------
'window procedure
Function WndProc (sys hwnd,wmsg,wparam,lparam) as int callback
SELECT hwnd
CASE win
Select wmsg
CASE WM_CLOSE
CloseWindow(win)
CloseWindow(win2)
CleanUp()
EndProgram()
End Select
CASE win2
Select wmsg
CASE WM_SIZE
'get current size of window
GetSize(win2,0,0,ww2,wh2)
CASE WM_PAINT
' blit the memory DC buffer back to the window DC
BitBlt(hDC, 0, 0, ww2, wh2, hdcMem, 0, 0, SRCCOPY)
End Select
END SELECT
Return DefWindowProc(hwnd,wMsg,wParam,lParam)
END FUNCTION
'////////////////////////////////////////////////
'##########################################################################
'## SET OF GDI DRAWING FUNCTIONS ####
'##########################################################################
SUB TextColor (wnd as INT,byval fColor as sys,byval bColor as sys )
hdc = GetDC(wnd)
SetTextColor( hDC, fColor)
SetBkColor( hDC, bColor)
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY)
ReleaseDC( wnd, hdc)
END SUB
'#########################################################################
SUB FrontPen (wID as INT, penR as INT, penG as INT, penB as INT)
'set global frontpen color
frontColor = RGB (penR,penG,penB)
End SUB
'########################################################
SUB TextOn(wnd as INT,tx as INT,ty as INT,txt as string)
hdc = GetDC(wnd)
'draw text to screen DC
TextOut hdc,tx,ty,txt,Len(txt)
'blit screen DC to memDC
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY)
ReleaseDC( wnd, hdc)
END SUB
'#######################################################
Sub Pset(int wnd, sys x, y)
hdc = GetDC(wnd)
'pcolor = frontColor
SetPixel(hdc, x, y, frontColor)
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY)
ReleaseDC(wnd,Hdc)
End Sub
'######################################################
Sub ELIPSE(wnd as INT,x as int,y as int, r1 as int,r2 as int, fcolor as int)
hdc=GetDc(wnd)
SelectObject(hdc, CreateSolidBrush( fcolor ))
Ellipse Hdc,x,y,r1+x,r2+y
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY)
ReleaseDC( wnd, hdc)
End Sub
'#########################################################################################
' set window color
Sub FillSolidRect(wnd as INT, x As Long, Y As Long, cx As Long, cy As Long, bbColor as sys)
INT hBr,oBr ' rc As RECT
hDC=GetDC(wnd)
rc.Left = x
rc.Top = Y
rc.right = x + cx
rc.bottom = Y + cy
hBr = CreateSolidBrush(bbColor)
'oBr = SelectObject hdc,hBr
FillRect hDC, rc, hBr
DeleteObject hBr
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY)
'DeleteObject(SelectObject(hdc, oBr))
ReleaseDC( wnd, hdc)
End Sub
'-------------------------------------------------------------------------------------
SUB SetWindowColor(wnd as INT,wr as INT,wg as INT,wb as INT)
GetSize(wnd,0,0,ww2,wh2)
backColor = RGB (wr,wg,wb)
FillSolidRect(wnd,0,0,ww2,wh2,backColor)
End SUB
'########################################################################################
SUB Circle (wnd as INT,cix as INT,ciy as INT,cra as INT)
hdc = GetDC(wnd)
'backColor=rgb(200,200,0) ' for test predefined color / yellow
SetBkMode( hDC, 1) 'transparent
SetBkColor(hDC, backColor)
INT np = CreatePen(PS_SOLID,1,frontColor) 'new pen with predefined color / red
INT op = SelectObject(hdc, np)
INT nB = CreateSolidBrush(backColor) 'new Brush
INT oB = SelectObject(hdc, nB)
Ellipse hdc,cix-cra,ciy-cra,cra+cix,cra+ciy
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY) '- not used yet
DeleteObject(SelectObject(hdc, op))
DeleteObject(SelectObject(hdc, oB))
ReleaseDC( wnd, hdc)
End SUB
'#######################################################################################
SUB LineXY (wnd as INT,Lx as INT,Ly as INT,Lx1 as INT,Ly1 as INT)
hdc = GetDC(wnd)
GetSize(wnd,0,0,ww2,wh2)
INT op = SelectObject(hdc, CreatePen(PS_SOLID,1,frontColor))
MoveToEx hdc,Lx,Ly,Byval 0
LineTo hdc,Lx1,Ly1
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY)
DeleteObject(SelectObject(hdc, op))
ReleaseDC( wnd, hdc)
End SUB
'#####################################################################################
SUB DrawRect(wnd as INT,rx1 as INT, ry1 as INT, rx2 as INT, ry2 as INT)
hdc = GetDC(wnd)
'GetSize(wID,0,0,ww,hh)
'SetBkMode( hDC, 1) 'transparent
SetBkColor(hDC, backColor)
int np = CreatePen(PS_SOLID,1,frontColor) 'new pen
int op = SelectObject(hdc, np)
int nB = CreateSolidBrush( backColor) 'new Brush
int oB = SelectObject(hdc, nB)
'Rectangle bHdc,x,y,w+x,h+y ...hmmm
Rectangle (hdc,rx1,ry1,rx2+rx1,ry2+ry1)
BitBlt(hDCmem, 0, 0, ww2, wh2 , hdc, 0, 0, SRCCOPY)
DeleteObject(SelectObject(hdc, op))
DeleteObject(SelectObject(hdc, oB))
ReleaseDC( wnd, hdc)
End SUB
'###################################################################################
SUB InitDrawing
''get current size of window2
GetSize(win2,0,0,ww2,wh2)
'get window DC
hdc=GetDC(win2)
hdcMem = CreateCompatibleDC(0)
hbmMem = CreateCompatibleBitmap(hdc, ww2, wh2)
oldBmp = SelectObject( hdcMem, hbmMem )
oldBrush = SelectObject(hdcMem, CreateSolidBrush( RGB(231,223,231)) )
oldPen = SelectObject(hdcMem, CreatePen(PS_SOLID,1,RGB(231,223,231)))
'fill rectangle memDC with brush color
FillRect ( hdcMem,rc, oldBrush)
SetTextColor( hDC,RGB(0,0,0))
SetBkColor( hDC, RGB(231,223,231))
'blit to memDC
BitBlt(hDCmem, 0, 0, ww2, wh2, hdc, 0, 0, SRCCOPY)
ReleaseDC( win2, hdc)
End SUB
'###################################################################################
SUB CleanUp
DeleteDC(hdcMem)
DeleteObject(SelectObject(hdcMem, oldBrush))
DeleteObject(SelectObject(hdcMem, oldPen))
DeleteObject(SelectObject(hdcMem, oldBmp))
END SUB
