Icon - gbSnippets Logo

Category: Icons

Date: 03-28-2012

Return to Index


 
 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
#Include "Win32API.inc"
Global hDlg as DWord
 
Function PBMain() As Long
   Dialog New Pixels, 0, "Test Code",300,300,200,200, %WS_OverlappedWindow To hDlg
   Control Add Button, hDlg, 100,"Push", 50,10,100,20
   Control Add Graphic, hDlg, 500,"", 50,40,100,100
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   If CB.Msg = %WM_Command AND CB.Ctl = 100 AND CB.Ctlmsg = %BN_Clicked Then
      Graphic Attach hDlg, 500
      Graphic Clear
      Graphic Set Bits Bitstring
   End If
End Function
 
Function BitString() As String
   'bit string for:   aainfo    32x32
   Local bmp$, i As Long
   Data 000020, 000020, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000000, 000000, 000000, 000000, 000000, 000000, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, 000000, 000000, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000000, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000000
   Data 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF
   Data FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF
   Data FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF
   Data FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, 000000, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, 000000, 000080
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000
   Data 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000080, 000080, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF
   Data 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF
   Data FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF
   Data FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080
   Data FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080
   Data 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080
   Data 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, FFFFFF, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000000, 000000, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000080, 000000, 000000, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, 000000, 000000, 000000, 000000, 000000, 000000, 000000, 000000, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   Data ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8, ECE9D8
   For i = 1 to Datacount
      bmp$ = bmp$ + Mkl$(Val("&H"+Read$(i)))
   Next i
   Function = bmp$
End Function
 
'gbs_00480
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm