PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

PB Dark Mode [Windows]

https://www.purebasic.fr/english/viewtopic.php?t=76630

Page 1 of 1

PB Dark Mode [Windows]

Posted: Sun Jan 24, 2021 3:45 am
by RASHAD
Hi
With Real Icon the ToolBar will be much better
Use DropMenu to change the size of ToolBar

Code: Select all

UsePNGImageDecoder()


#MIM_STYLE            = $00000010
#MIM_MAXHEIGHT        = $00000001
#MIM_BACKGROUND       = $00000002
#MIM_APPLYTOSUBMENUS  = $80000000

#MNS_AUTODISMISS      = $10000000
#MNS_MODELESS         = $40000000
#MNS_NOCHECK          = $80000000

Structure MENUINFO Align #PB_Structure_AlignC
  cbSize.l
  fMask.l
  dwStyle.l
  cyMax.l
  hbrBack.i
  dwContextHelpId.l
  *dwMenuData
EndStructure

Global m.MENUINFO,hhkLLMouse,flag,gad,styleflag,Quit,icount,ix,isize,hBrush,header
hBrush = CreateSolidBrush_($AAAAAB)

Prototype SplashMessageSetup(hWnd,lpText$,lpCaption$,uType,wLanguageID.w,dwMilliseconds)
Procedure SplashMessage(title$,text$,ms=1000,icon=#MB_ICONINFORMATION)
  lib=OpenLibrary(#PB_Any,"user32.dll")
  If lib
    SplashMessageSetup.SplashMessageSetup=GetFunction(lib,"MessageBoxTimeoutW")
    SplashMessageSetup(GetForegroundWindow_(),text$,title$,#MB_SETFOREGROUND|#MB_TOPMOST|#MB_TASKMODAL|icon,0,ms)
    CloseLibrary(lib)
  EndIf
EndProcedure

Import "Uxtheme.lib"
  SetWindowTheme(Window.l, Body.p-unicode, Title.p-unicode)                                                  
EndImport

Procedure IsMouseOver(hWnd) 
  GetWindowRect_(hWnd,r.RECT) 
  GetCursorPos_(p.POINT) 
  Result = PtInRect_(r,p\y << 32 + p\x) 
  ProcedureReturn Result 
EndProcedure 

Procedure BlackStyle(styleflag)
  If styleflag = 0
    SetWindowColor(0,0)
    For gad = 20 To 29
      SetGadgetColor(gad,#PB_Gadget_BackColor,0)
      SetGadgetColor(gad,#PB_Gadget_FrontColor,$FFFFFF)
    Next
    SetGadgetColor(20,#PB_Gadget_LineColor,$393939)
    SetGadgetColor(50,#PB_Gadget_BackColor,0)
    SetWindowTheme_(header, "","WINDOW")
    SetWindowTheme(GadgetID(25),"",  "")
    SetGadgetColor(25,#PB_Gadget_FrontColor,$FEC356)
    SetWindowTheme(GadgetID(30),"",  "STARTPANEL")
    SetWindowTheme(GadgetID(65),"",  "STARTPANEL")
  Else
    SetWindowColor(0,#PB_Default)
    For gad = 20 To 29
      SetGadgetColor(gad,#PB_Gadget_BackColor,#PB_Default)
      SetGadgetColor(gad,#PB_Gadget_FrontColor,#PB_Default)
    Next
    SetGadgetColor(20,#PB_Gadget_LineColor,#PB_Default)
    SetGadgetColor(50,#PB_Gadget_BackColor,#PB_Default)
    SetWindowTheme_(header, "", 0)
    SetWindowTheme_(GadgetID(25), "", 0)
    SetWindowTheme(GadgetID(30),"",  "BUTTON")   
    SetWindowTheme(GadgetID(65),"",  "BUTTON")
  EndIf
EndProcedure

Procedure AddTBI(gad,x,img,text$)
  ImageGadget(gad,x,0,isize,isize,0)
  GadgetToolTip(gad,text$)
EndProcedure

Procedure cusTB()
  If IsImage(50)
    FreeImage(50)
  EndIf
  ContainerGadget(50,0,0,800,isize );,#PB_Container_Flat)
  If styleflag = 0
    SetGadgetColor(50,#PB_Gadget_BackColor,0)
  Else
    SetGadgetColor(50,#PB_Gadget_BackColor,#PB_Default)
  EndIf
  AddTBI(1,ix,1,"New Page"):ix+isize+2
  AddTBI(2,ix,2,"Load"):ix+isize+2
  AddTBI(3,ix,3,"Copy"):ix+isize+2
  AddTBI(4,ix,4,"Paste"):ix+isize+2
  AddTBI(5,ix,5,"Print"):ix+isize+2
  AddTBI(6,ix,6,"Save"):ix+isize+2
  AddTBI(7,ix,7,"Dark Mode"):ix+isize+2
  AddTBI(8,WindowWidth(0)-isize-2,8,"Info")
  AddTBI(9,ix,9,"Quit"):ix+isize+2
  ;AddTBI(10,ix,10,"Icon Size"):ix+isize+2
  CloseGadgetList()  
  For i = 1 To icount
    h = CopyImage_(ImageID(i),#IMAGE_BITMAP	,isize,isize,#LR_COPYRETURNORG)
    SetGadgetState(i,h)
  Next
EndProcedure

Procedure MouseHook(nCode, wParam, lParam)
  Select wParam
    Case #WM_LBUTTONDOWN
      GetCursorPos_ (@p.POINT)
      If IsMouseOver(GadgetID(50))
        ScreenToClient_ (GadgetID(50), @p)
        ww = ChildWindowFromPoint_(GadgetID(50),p\y<< 32| p\x)
        gad = GetDlgCtrlID_(ww)
        Select gad
          Case 1 To icount
            flag = 1   
            ResizeGadget(gad,GadgetX(gad)+2,GadgetY(gad)+2,#PB_Ignore,#PB_Ignore) 
        EndSelect
      ElseIf IsMouseOver(WindowID(0))      
        ScreenToClient_ (WindowID(0), @p)
        ww = ChildWindowFromPoint_(WindowID(0),p\y<< 32| p\x)
        gad = GetDlgCtrlID_(ww)
        If gad = 30
          flag = 1   
          ResizeGadget(30,GadgetX(30)+2,GadgetY(30)+2,#PB_Ignore,#PB_Ignore)
        EndIf
      EndIf 
      
    Case #WM_LBUTTONUP
      If flag = 1
        flag = 0
        ResizeGadget(gad,GadgetX(gad)-2,GadgetY(gad)-2,#PB_Ignore,#PB_Ignore)
      EndIf      
      Select gad
        Case 7
          styleflag ! 1
          BlackStyle(styleflag)
        Case 8
          SplashMessage("Info","    RASHAD Sotware "+Chr(169)+#CRLF$+"    M.M.RASHAD"+#CRLF$+"    email:mmrashad2100@hotmail.com"+#CRLF$+"    Mobile : 0505279242",5000)
        Case 9
          UnhookWindowsHookEx_(hhkLLMouse)
          Quit = 1
      EndSelect
      gad = 0
      
  EndSelect
  ProcedureReturn result
EndProcedure

Procedure winCB(hWnd,uMsg,wParam,lParam)
  Result = #PB_ProcessPureBasicEvents
  Select uMsg      
    Case #WM_NCPAINT
      SendMessage_(hWnd, #WM_NCACTIVATE, 1, 0)
      
    Case #WM_NCACTIVATE
      If wParam = 0
        ProcedureReturn 1
      EndIf
      
    Case #WM_SIZE
      ResizeGadget(50,0,0,WindowWidth(0),33)
      ResizeGadget(8,WindowWidth(0)-isize-2,0,isize,isize)
      ;ResizeGadget(60,10,43,WindowWidth(0)-20,WindowHeight(0)-55) ;10,43,780,545
      ;ResizeGadget(65,-3,-3,GadgetWidth(60)+6,GadgetHeight(60)+6) ;-3,-3,788,550,0
      
  EndSelect
  ProcedureReturn Result
EndProcedure

CatchImage(1,?new)
CatchImage(2,?load)
CatchImage(3,?copy)
CatchImage(4,?paste)
CatchImage(5,?print)
CatchImage(6,?save)
CatchImage(7,?dark)
CatchImage(8,?info)
CatchImage(9,?quit)
;CatchImage(10,?image_file)

LoadImage(10,  #PB_Compiler_Home + "/Examples/Sources/Data/PureBasicLogo.bmp")

pattern$ = "All supported formats|*.bmp;*.gif; *.jpg; *.jpeg; *.wmf; *.emf; *.png; *.tif;*.tiff;*.tga;*.ppm;*.pgm ;*ico;*.cur;*ani|"+
           "TGA image (*.tga)|*.tga|TIF image (*.tif)|*.tif|TIFF image (*.tiff)|*.tiff|PNG image (*.png)|*.png|"+
           "BMP image (*.bmp)|*.bmp|JPEG image (*.jpg;*.jpeg)|*.jpg;*.jpeg|GIF image (*.gif)|*.gif|"+
           "Windows Metafile (*.wmf)|*.wmf|Enhanced Metafile (*.emf)|*.emf|Portable PixMap (*.ppm)|*.ppm|Portable GrayMap (*.pgm)|*.pgm"+
           "|Icon (*.ico)|*.ico|Cursor (*.cur)|*.cur|Animated Cursor (*.ani)|*.ani"
winflag = #PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget | #PB_Window_ScreenCentered

OpenWindow(0,0,0,800,600,"",winflag)
WindowBounds(0,800,600,#PB_Default,#PB_Default)

icount = 9
ix =2
isize = 28
cusTB()
liflag = #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection |#PB_ListIcon_GridLines
ListIconGadget(20,10,152,400,160,"Name",100,liflag)
GadgetToolTip(20,"ListIcon Gadget")
AddGadgetColumn(20, 1, "Address", 250)
AddGadgetItem(20, -1, "Harry Rannit"+Chr(10)+"12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(20, -1, "Ginger Brokeit"+Chr(10)+"130 PureBasic Road, BigTown, CodeCity")

SetGadgetColor(20,#PB_Gadget_BackColor,0)
SetGadgetColor(20,#PB_Gadget_FrontColor,$FFFFFF)
header = SendMessage_(GadgetID(20),#LVM_GETHEADER,0,0)
SetWindowTheme(header,"", "WINDOW")

TextGadget(21,420,43,150,24," Text Test",#SS_NOTIFY | #WS_BORDER|#SS_CENTER|#SS_CENTERIMAGE)
GadgetToolTip(21,"Text Gadget")
SetGadgetColor(21,#PB_Gadget_BackColor,0)
SetGadgetColor(21,#PB_Gadget_FrontColor,$FFFFFF)

StringGadget(22,580,43,210,24," Text Test")
GadgetToolTip(22,"String Gadget")
SetGadgetColor(22,#PB_Gadget_BackColor,0)
SetGadgetColor(22,#PB_Gadget_FrontColor,$FFFFFF)

ListViewGadget(23,420,75,370,155)
GadgetToolTip(23,"ListView Gadget")
For a = 1 To 12
  AddGadgetItem (23, -1, " Item " + Str(a) + " of the Listview") ; define listview content  Next
Next
SetGadgetColor(23,#PB_Gadget_BackColor,0)
SetGadgetColor(23,#PB_Gadget_FrontColor,$FFFFFF)

ComboBoxGadget(24,420,242,150,30)
GadgetToolTip(24,"ComboBox Gadget")
For a = 1 To 5
  AddGadgetItem(24, -1,"ComboBox item " + Str(a))
Next
;SetWindowTheme(GadgetID(5),"",  "STARTPANEL")
SetGadgetState(24,2)

ProgressBarGadget(25,580,242,210,30,0,100,#WS_BORDER)
GadgetToolTip(25,"ProgressBar Gadget")
SetGadgetState(25,50)
SetWindowTheme(GadgetID(25),"",  "")
SetGadgetColor(25,#PB_Gadget_BackColor,0)
SetGadgetColor(25,#PB_Gadget_FrontColor,$FEC356)

ContainerGadget(26, 10,325,400,120, #PB_Container_Flat)
CloseGadgetList()
GadgetToolTip(26,"Container Gadget")
SetGadgetColor(26,#PB_Gadget_BackColor,0)

ScrollBarGadget(27, 420, 285, 370, 25 ,0, 300,10)
GadgetToolTip(27,"ScrollBar Gadget")
SetWindowTheme(GadgetID(27),"", "SPIN")

EditorGadget(28,420,325 ,370,120)
GadgetToolTip(28,"Editor Gadget")
SetGadgetColor(28,#PB_Gadget_BackColor,0)
SetGadgetColor(28,#PB_Gadget_FrontColor,$FFFFFF)

ScrollAreaGadget(29, 10,460,400,130, 575, 555, 30)
CloseGadgetList()
GadgetToolTip(29,"ScrollArea Gadget")
SetGadgetColor(29,#PB_Gadget_BackColor,0)

ButtonGadget(30,420,460,60,24,"RUN")
GadgetToolTip(30,"Button Gadget")

ButtonImageGadget(65,10,43,400,100,ImageID(10))
GadgetToolTip(65,"ButtonImage Gadget")

hMenu = CreatePopupMenu(1)
MenuItem(20, "  New Page")
MenuItem(21, "  Load Image")
MenuBar()
MenuItem(22, "  Copy")
MenuItem(23, "  Paste")
MenuBar()
MenuItem(24, "  Print")
MenuItem(25, "  Save")
MenuBar()
OpenSubMenu(" ToolBar Icon Size")
MenuItem(26, "  16 pix")
MenuItem(27, "  20 pix")
MenuItem(28, "  24 pix")
MenuItem(29, "  28 pix")
MenuItem(30, "  32 pix")
CloseSubMenu()
MenuBar()  
MenuItem(32, "  Quit")

m\cbSize  = SizeOf(m)
m\fMask   = #MIM_STYLE|#MIM_BACKGROUND|#MIM_MAXHEIGHT|#MIM_APPLYTOSUBMENUS
m\dwStyle =  #MNS_NOCHECK |#MNS_MODELESS
m\cyMax   = 0
m\hbrBack = hBrush
SetMenuInfo_(hMenu,m)

SetWindowCallback(@winCB())

lpdwProcessId = GetWindowThreadProcessId_(WindowID(0), 0)
hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE, @MouseHook(), GetModuleHandle_(0), lpdwProcessId)
BlackStyle(styleflag)
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      UnhookWindowsHookEx_(hhkLLMouse)
      Quit = 1        
      
    Case #WM_RBUTTONDOWN
      DisplayPopupMenu(1, WindowID(0))
      
    Case #PB_Event_Menu
      Select EventMenu()
        Case 22
          ClearClipboard()
          If IsImage(1)
            SetClipboardImage(1)              
          EndIf
          
        Case 23
          Result = GetClipboardImage(10,32)
          If Result
            SetGadgetAttribute(65,#PB_Button_Image,ImageID(1))
          EndIf
          
        Case 24
          Beep_(800,100)
          If IsImage(1)   
            If PrintRequester()
              ResizeImage(10, PrinterPageWidth()-400, (PrinterPageWidth()-400)*ImageHeight(1)/ImageWidth(1),#PB_Image_Smooth)
              If StartPrinting("PureBasic Test")                
                If StartDrawing(PrinterOutput())
                  DrawAlphaImage(ImageID(1), 200, (PrinterPageHeight()-ImageHeight(1))/2)                 
                  StopDrawing()
                EndIf              
                StopPrinting()
              EndIf
            EndIf
          Else
            MessageRequester("Attention","No Image ?",#PB_MessageRequester_Ok| #MB_ICONQUESTION)
          EndIf
          
        Case 25
          
        Case 26 To 30
          ix =2
          isize$ = Trim(GetMenuItemText(1, EventMenu()))
          isize = Val(Left(isize$,2))
          cusTB()
      EndSelect 
      
    Case #PB_Event_Gadget
      Select EventGadget()          
        Case 9
          Select EventType()
            Case #PB_EventType_LeftClick
              Quit = 1
          EndSelect          
      EndSelect      
  EndSelect
Until Quit = 1 

UnhookWindowsHookEx_(hhkLLMouse)
End


DataSection
  copy:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $43E49432E3943545,$DFA55EE6A04AE39B,$C388EBB472E8AC64,$ADF4CA93F4CA94F1,$FEFCEDFBEDD4F4D7
  Data.q $FFFAFBFEFAF8FDFD,$000000E7402158FD,$FFFFFF534E527410,$FFFFFFFFFFFFFFFF,$55FED90000000000
  Data.q $41444998010000FB,$DB4ECF912DCF2854,$26CCF508B7C61040,$C85E4672A9C4E72A,$AE7F3256F731AAB9
  Data.q $00FBACB41DCA2828,$E6A009F7B5CF5071,$3ED13D413CC52A01,$AEDEF52A05E51900,$9BE69FC77C2ECCB5
  Data.q $106B6EDA21866F99,$635B10C875238FF0,$A66CC00D81D6B5C1,$71000AB7B8D4A4C7,$C605C1DFA7C74628
  Data.q $9ECF9D28C489DDA0,$F31FE437A88025BC,$1BD604B6EB8CDF5F,$09819ABE69FB8A31,$75D7324710893700
  Data.q $EA50A2E3004B04DE,$C444DB8658CE76AE,$5BE3CD155A9FABEF,$9BCAB42D5FB860C5,$FDE73136EB1D6347
  Data.q $730BA869B2D5AD5B,$6A94A955FBC61936,$BF780C9B1985D456,$7C57C1AEBACB5AD0,$7AB5296040FBBC1E
  Data.q $57341498845BCE80,$4326DB6C74DEEA96,$200AA4D270BFABBE,$55D947A62C99D83D,$5F58DEC54306D336
  Data.q $EB60096F2F3A5967,$0055CDEF395F90F7,$56341FE89BDE13FF,$A72E346C5A03DAAA,$31620AF579D1122C
  Data.q $9D2C582CE91197D6,$FD900EEBDA9644F8,$77BE713F2AB000B5,$9BEB7E093ABF4AA1,$FF88871801553B2C
  Data.q $AF302BA90B94A596,$2DE14556E3E179E0,$94F8A3C503F5079D,$5D2DB53D63A00025,$E7039068E876C68C
  Data.q $DDACC00E8FBE1DBF,$3CA2A802F7EF9D1A,$0000008AF551DCDC,$6042AE444E454900,$82
  copyend:
  
  dark:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $46D09E22DE8CAE45,$D1A52FA7A04AD99D,$BCF97AAC82DEA762,$DE15BFF508BBF903,$D2D4E721C7F646BE
  Data.q $FAFAE8F8F8EFE4EA,$000000E4E38DEAF6,$FFFFFF534E527410,$FFFFFFFFFFFFFFFF,$949FCD000000FFFF
  Data.q $4144498601000086,$C34EB1922DCF2854,$8B2158E96F861030,$2A4650CCC0206474,$785888C8A827E294
  Data.q $96900F01504F2707,$C2C955ECA4484C2C,$6ABD94630BAA955C,$B2D4CFF8FA801E1D,$4CEEFFA7DF97DF14
  Data.q $0DB2FD967663BCCC,$BE2D92CD870E3731,$BEFE62CDB97E48EC,$BCECE07B6BB75A58,$4106C1E43FB4B590
  Data.q $1A99B517C51FE659,$E2CA664D2CA4F5E6,$63334B24EDB11913,$6A7CC056074EFA4C,$B72D0BE986499192
  Data.q $56A6798C0FF73B4C,$3230F3431B8472AF,$64CDB1861D370419,$0A96A47B266790F8,$220CF9C72F37266A
  Data.q $7225E405ABBA9408,$4F6628B9D4A44322,$0395F402AFE49333,$9C1AD4149343A698,$3025916FD1CF7EEA
  Data.q $0ACBFD17861C5055,$50E38A67A3A4CDE0,$F75E08531C93D52B,$000F02B8D7D608E0,$F632605290A00A91
  Data.q $40C0055128095D40,$C20C10C64F5B1880,$2FD24D75875234F0,$683AA475AD33E96A,$0510004DD468B390
  Data.q $44FA6217663A4F51,$5F5328560F6A7561,$2AF7DA980F620E23,$EE45602C575F1108,$8656F0F8FA87EA3B
  Data.q $BB749F7F5D5A0D49,$5566996AAC031F5D,$D80BFD8A0FDB4FFD,$812B6EC3421E481F,$509931A2290FFF8C
  Data.q $4900000000482580,$826042AE444E45
  darkend:
  
  info:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $22E7942AE3942E45,$DD963BF59519ED94,$990DDA9742F89611,$B9F2CC8EE0AB61FC,$FCFCF0FEF7D7F9E8
  Data.q $FDFEFEFEF5F1FBFF,$000000C8FAFB5BF7,$FFFFFF534E527410,$FFFFFFFFFFFFFFFF,$929A1300000000FF
  Data.q $414449EF01000077,$1A6B4F9225CF2854,$1455CC55C7C61061,$49E8536B7597A14A,$2C7B6CBA2AE6E9BB
  Data.q $F4DA2F2BB6AF762D,$5898A16BD32C9A10,$22A10F4390D1167B,$B836B98AEA097A14,$766EA73C6EC0BE7F
  Data.q $618726BEDF74403F,$66033CC0F03CDF86,$AD729BD74A0B5AE8,$BE07ED9EBA9B04C8,$B5821F5167BED81D
  Data.q $9B0C3432630DF0B9,$6683191595D0018D,$A050EBA119EF59BD,$26AF8E49AB8E5D2E,$A4D116B0516A33FB
  Data.q $B861C90B1109119A,$AAA08C6ECBA2C176,$F82605D466B54923,$43FC952B1054AF1A,$9F889F973CC70126
  Data.q $99EC49BE2A7DBC5F,$8D4A904C4EF3A02B,$D585198D52134E4E,$09A006F41209AABC,$986825D581D4CADB
  Data.q $C2704A18D506F64A,$D6EAD2BCAA32DFC0,$5CEAE070FFCF5D38,$BE238E4D4ACBCC43,$7C7CACF4077374FB
  Data.q $CE8842F69455A72C,$4198ABFEF890A6D8,$71F30CFB01D1FD7C,$E67D5D62DEBD3FDC,$727FB8CBE753FD83
  Data.q $B47F9806DC3B85B9,$A1625FAF4F0F065C,$6B6F4A3560B23D24,$DB21F4BA711EDF2A,$A262C7E50C76E076
  Data.q $C05FE805CF8A2E3F,$E0DEABC2892B5E72,$BF6C0CE994E6209B,$C69F3DE0F72CC713,$F2ACA8C12E66C37C
  Data.q $F03B4EFA7080F764,$B316D80E8EFFA421,$DDE8411A6FCBF531,$2EB4221220850576,$3994526AFD5D88BC
  Data.q $8626D63786565E44,$FA4243DD9098F9AB,$6695341B82C07BD3,$0A22F580DBA2CFBD,$4590820D3864F982
  Data.q $B4D37D4174D65CCE,$02FD8F3C036886EF,$EF22F90D7FD1EFBD,$00000000AC1C295C,$826042AE444E4549
  infoend:
  
  load:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $8595877A91817445,$CCB7A4ADA18DA596,$D8C4E6CEBCDDC8B3,$D0FAE2CFF0D9C3F0,$FCEFE8FCE6D7FBE3
  Data.q $FDFDFCFCFDFBFAFA,$00000046A95BFCFD,$FFFFFF534E527410,$FFFFFFFFFFFFFFFF,$929A1300000000FF
  Data.q $414449DF01000077,$D36FBF923DCF2854,$8AA982DB9FC71440,$429020A51F8854E5,$0C10AA0DA0743154
  Data.q $891442411BA1A494,$64B4D0C4CAADA915,$17C48074B25DEA62,$E98E36D281B363B3,$7FBE76C6CA20815A
  Data.q $A738F2F88C12DB00,$7EFDF47D2749DDC0,$01E4B90883BDEF75,$A58872092622384F,$F92940B9C2639C90
  Data.q $67A5A00EFFD90140,$5EACF223104601E4,$823CB364D5B464DD,$6129D7D259FFD81F,$2EFC4884A262B36E
  Data.q $93E4B96928B7A6F4,$EA1D2EBFC4100729,$4342A18942328C3B,$D812963BD3D87F39,$D68B76808CB4319E
  Data.q $0880389B6BAD565A,$6D087533EB1DD1CF,$57BAB9BD48108029,$6F4707FF6B9A9CF1,$7605E1103FC8765F
  Data.q $C4B63DDF516F9AEF,$FBE9B7AEF6E564E2,$FE7F94C50821DDEF,$96BFBDF359DAFB03,$F92BDB06B9878D53
  Data.q $F6C376BA2F2158EC,$214A10CCBB974716,$3973339BDC90E675,$E527DA710D2FA587,$0C6EBCBB216CDDEC
  Data.q $C85A30AC7B49C633,$13E2208886A59E2F,$F98BE7E7CE54B97E,$3D8D9EA70050330D,$270520E64BB50252
  Data.q $CDC029EA8C99686E,$58EF5EA0F750A814,$33052095E9FF6D64,$22D93FABD4BA8E5F,$AAEE789F2021818E
  Data.q $11C9B1EC9A0FB742,$FEFB45E97D7D3C84,$1CA01495EBD5F142,$EE29995ED8FC53BF,$1B0B91204C4C97B6
  Data.q $AEDBBFEEAEAD57B6,$2666AEE7108A565C,$7C0A8651C3320D35,$8AF492F45C964353,$0A09E7D5A8518A21
  Data.q $3B2C326B3FC21DF5,$00000000087742D2,$826042AE444E4549
  loadend:
  
  new:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $DF243BB220379F45,$344BBF32438C2741,$789A5D649B4659AC,$EBC8D0D39BA8B66B,$FDFAF8F6FAFAE1ED
  Data.q $FCF9FDFCF8F4FCF5,$0000000724584FFD,$FFFFFF534E527410,$00FFFFFFFFFFFFFF,$FE3A3D0000000000
  Data.q $414449F301000037,$D36F3F912DCF2854,$C02FDA404F871060,$3F9C6948E65CB027,$196DFB08E61C4913
  Data.q $A950A416149C4C91,$4C4A94A1148484A9,$290852C1D450C819,$091193739216074E,$585EBD63521B34BF
  Data.q $00E0E363D9BF6450,$0FDDCB7479EE1BA7,$DB6849C516DB5C4C,$BD36270C066BA2D4,$1674A745B1EB86B6
  Data.q $4E73016138518381,$AEFA8F04521E0B57,$EF37C7B7F668FE6F,$0606CE2348421A03,$40D6B45BD4B56B49
  Data.q $C2E42F53566E68ED,$68B8D8216FC4DEBE,$CCE41420828A249F,$FC2A9683AE81C469,$D79CC661C57B392B
  Data.q $D81E679DC624370F,$C4145CA0DC5D28FE,$F70B2494FD16377D,$5B1FA3B889E95EC8,$926487DF26926530
  Data.q $C5E9827FCF595DC0,$4D93A0FC8C56A2A1,$A5439C882B67F557,$F5664B949A071BA3,$EB41F684AFD108A7
  Data.q $31932E51ECB53334,$D07194832893F161,$A06369237C7D1D6D,$349FA8C37EA5BB37,$CC4C39A3C975DEF6
  Data.q $E5521B65E8C752DD,$94B7CE984CD49B73,$4D2D2A36EF57AE4E,$BD5690497E81CE55,$CE648077AB9FB5A5
  Data.q $513A49A022BF1AC0,$5FB008463E50B965,$672AD7C72CB1678D,$D313B0B222356C08,$FFD35F5AE0970C46
  Data.q $883705D7249421DF,$0CE439CA28BFC55A,$2C5F78C4B717CA5C,$CEFA25A838ABE7EB,$F22915154407ADE3
  Data.q $250D8D9F6D082BEC,$5058D1E7B9349B75,$CC9EDBD897A33AEE,$F73E335E281112F8,$3BF4968CB4419D2F
  Data.q $EA1D47B90F94E05C,$25CD8C406FC1BA23,$01FFE05911CA3DB5,$778AD629D818E165,$444E454900000000
  Data.q $826042AE
  newend:
  
  paste:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $8A85768581737E45,$9D91AB8C82958577,$B6C6C7B3D2AD9FBC,$E7E5DFDEF0D7C7C9,$EFF2FAE2EBF6EBE8
  Data.q $F9FDF9F7FCFDF8FE,$0000001290262CFD,$FFFFFF534E527410,$FFFFFFFFFFFFFFFF,$55FED90000000000
  Data.q $414449E0010000FB,$134C4F9135CF2854,$FEBB9E8827871051,$D307A477AB216FB9,$C4A45D0C481255A3
  Data.q $8390518BC1EA14A3,$0188C486E242961E,$2D2C4C1E25696313,$A131363411EDCA8D,$2FA652307835BAFB
  Data.q $B10384C6B7DBB51E,$BF2FC77EBA5B9F6F,$64D76F340324DF99,$E64F4A53657632AB,$1BA9ED645DC3B0F3
  Data.q $D00BF948426A86CF,$6991958903D7DCBB,$9ABC0509320F4F50,$56EC4945DE658B9A,$FC7A6D45503A3AEA
  Data.q $F4258FBF6E426BD2,$1B5381C96A200683,$C0E0DE88FEE59084,$C46A0420C7374D3D,$6A32256814BBA0BC
  Data.q $281C6BD49E64B31E,$09657783019BA73D,$257BA3C5FFE2D738,$6A8BC5CD376A5209,$714043142156129F
  Data.q $3494BBEA9634D27E,$0C8D11D817D4F85B,$76410F7E6CB59921,$C3F3EB6A68A3E912,$173711D9D8CBF76B
  Data.q $B9D107B7F2A9232A,$E3BF369462DBB2B7,$32DBBB0FDCCBDA93,$31FD8845B65886FF,$5163BBFB26F34DA8
  Data.q $5504958615DDA9FE,$86C6120F5B5DE99B,$D25A09FE5B2D4883,$AE857BF6A13A1922,$AAC0B11417F9CDD0
  Data.q $28B113F8103577F2,$AABD8615D657FED8,$79E063D8B0C1099E,$A5D83B4FB0B9A4DA,$0B7146E7D189C757
  Data.q $57302597B65C737A,$6E6D9D77D4CF0A9B,$7C6D7187FB287D1D,$70F752EDB9B14EE2,$388989232605C7A0
  Data.q $8FEC3B3AB8E73866,$78A1CE7A952BFE38,$C8149680B1F665F0,$0C121F59F44DB256,$28A2830D50E2FB90
  Data.q $3A10A501FE28B367,$0000001A57A23EE9,$6042AE444E454900,$82
  pasteend:
  
  print:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $534D48414A443C45,$71695E5D5B575556,$AB70B69063967E5E,$B6F2C893E7BD88DD,$FCFCF9F3E5D1E7D1
  Data.q $FDFCFDFEFCFDFDF9,$0000002B94D9BBFE,$FFFFFF534E527410,$FFFFFFFFFFFFFFFF,$929A1300000000FF
  Data.q $4144497501000077,$C24F31914DCF2854,$A984C1891FC71440,$B431601C6A993238,$621070718BADA393
  Data.q $E6E36C09F2C1D174,$0171026380DF0C62,$F0DC1C48C5D13061,$791E20FD2EE1DB9A,$EEE5DC97F04B6BBE
  Data.q $089503BC97BCFF77,$A1207235020DCD44,$272A6E82A45E4353,$CBC6518B889007A6,$29F3961FC1412134
  Data.q $5AF42A71895B3133,$7505AC5C0937144C,$AF7BBDD987163849,$D37588DEF96D4D12,$D76379C8224A6736
  Data.q $B6EF504A9A3C39CF,$6EEFBEB8E39EFBE3,$1DF5CF1CDF884A5D,$93C41883B3DCF5C2,$18B5FBABC2698F47
  Data.q $0555EF8E4E78E070,$639DDC255BDB67E8,$AEDB7538E7607201,$9816CA1942FD902A,$40007A4828AE5DB5
  Data.q $0A8FF0FB00A4A32E,$4615B0AD1B5BED15,$283D12255BEC1451,$C08D4E0C28822406,$6BDD0C8C7B26C2D7
  Data.q $6C2C8A177C4026AB,$41382BBBCD379A34,$9D3BB4EB39C3D89A,$78F3410217B76336,$09A6C6220820A2C1
  Data.q $62D1242CE71A1AA7,$D28D9F204252099D,$C0A41A8E63BB0E09,$63A85F5A0FBE335F,$90237392BEAF9A12
  Data.q $631CCA97C17152E3,$50D9B4DA44BE7533,$A2A6CF25409001FD,$4549000000003529,$826042AE444E
  printend:
  
  Quit:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $F3493DF53C3AF845,$3646E84340F23940,$67EC5055DE3746E6,$FCABB7FA7F88EB63,$F6F7FADEE6FDC3CF
  Data.q $FDF2F9FCF4F4FCF4,$000000794C90BFFD,$FFFFFF534E527410,$FFFFFFFFFFFFFFFF,$929A1300000000FF
  Data.q $4144495E01000077,$C26AC19265CF2854,$50D5E0D4C7861040,$B9ED22F7A60957B0,$B65A73D7758BBC58
  Data.q $9839BDE96A0F63C6,$6205F62205F10573,$3E0D007923340BE2,$169537776EA02F82,$33FCCCC1F2CEC3DD
  Data.q $3BE7098E722202FF,$87E47298E1211119,$6BF6483BE452B8AD,$CD58246C2A8897C1,$306980085B33DFC3
  Data.q $260E5F6388BD29B8,$AD6DC026A3C60229,$DC7D8423756008F2,$FE426956AB07BEBB,$9884CFC7806D1DA9
  Data.q $6A805C45DC849812,$AAADA109D0D2119D,$9F680E58DF4E8602,$78F6B43630010C34,$B2446CAF719D1464
  Data.q $0C34BB5327B5AD8B,$74999AC90092E57A,$0772C78BE84EBA18,$6FBC0B33A4EACD7C,$FAB15D1452E8B497
  Data.q $A2DF35FF230BC143,$59D14269B8870E0B,$8156D15A66A2A3C4,$320291A2568DD19C,$2AEB6061C5E571A5
  Data.q $CCFC2F7CBE751545,$669B33AEE76D668A,$3E0F785DBE61336D,$2533A52BBA4CB094,$4CFB417060370D5D
  Data.q $64FF1BFB5F1C770D,$2E5D64BFFC2B6741,$3691D0DA3FD0D859,$A7D9A9E56E75199C,$78AB193D8107E1DF
  Data.q $4900000000B1F7AF,$826042AE444E45
  Quitend:
  
  save:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$6754810000000304,$544C5030000000C7
  Data.q $AB564E6C504C5E45,$7554DD60528E654E,$84EA865FF1805FE3,$FBE2DBECB6AAD3A0,$FDFCF9F8F7F8FAF3
  Data.q $FDF5FEFDF9FCFBF7,$000000D780EF05FD,$FFFFFF534E527410,$00FFFFFFFFFFFFFF,$FE3A3D0000000000
  Data.q $4144499D01000037,$D36ECDD135CF2854,$A403CC49E0001040,$8B4E8E2048440BCA,$E90C80E573168178
  Data.q $A552AAC735233911,$FF41BED02FA9CADC,$C599F14072BDC646,$773D6CE33D01BCDD,$2BB568C46B30EC3B
  Data.q $544B60668ECD1A7D,$35A26A5EE9EC4B48,$E20C44707FEDCA78,$0158D316007C4A9A,$AF9F1E890B0C9EE9
  Data.q $60D1E34518B9054A,$E9E6011330C69834,$BC8FD97C7DE757EB,$F2EB1A5164D3C307,$E119FA027B1B3AEE
  Data.q $77F18D7F0AEB6B82,$DB5BEEE951E11B05,$117B0583FDC4E25D,$587A51CE410D190E,$C8D037B1E6AEE806
  Data.q $CFE9FEC5FC7C3C33,$56CE111F68D2C615,$458D0850B9B4D454,$9BE00F3971F511E9,$0D2704E3ED3BBE21
  Data.q $31CE98249886AB83,$134C370D695270CB,$03DC0E6DE2495415,$AA82BEC619078662,$FB44B3CE45093089
  Data.q $C7771FEA5DBC3DB0,$BCB80AE430BDF12F,$F682BD8853B5F8FD,$C6807D2DDDBCB071,$4C6432DD9BCB80F6
  Data.q $1FCF3716C850D68C,$E3508321F80A1EDB,$DECE32140ACFDB94,$AAF61F19AC434BA4,$853E2F3B6FAB1435
  Data.q $E5605EC7F6F74F19,$CF7A460760C019CC,$B9B78345BF476A14,$DB8B15D479D3A4AB,$B5B774E254B9B708
  Data.q $283CC4E00EB43115,$361BBEAC88EF52E8,$314438403B3B5FF9,$4549000000008E38,$826042AE444E
  saveend:
EndDataSection

Re: PB Dark Mode [Windows]

Posted: Sun Jan 24, 2021 4:22 am
by BarryG
Wow, looks cool! Thanks! BTW, is that your real email and phone number in there?

Re: PB Dark Mode [Windows]

Posted: Sun Jan 24, 2021 4:42 am
by RASHAD
Yeeeees
You see most of the time I don't lie and I have nothing to hide :mrgreen:

Re: PB Dark Mode [Windows]

Posted: Tue Jan 26, 2021 12:29 pm
by Kwai chang caine
Mastshad wrote:and I have nothing to hide
You never finish to impressive me !!! :wink:
It's not just the pyramids that are big :shock:

Thanks for sharing this new great job 8)
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited