Advertisement
Guest User

Bitmaps

a guest
Jun 9th, 2019
555
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Create_Default_Bitmap(){
  2.         ;Bitmap Created Using: HB Bitmap Maker
  3.         pBitmap:=Gdip_CreateBitmap( 69 , 27 )
  4.          G := Gdip_GraphicsFromImage( pBitmap )
  5.         Gdip_SetSmoothingMode( G , 4 )
  6.         Brush := Gdip_BrushCreateSolid( "0xFFC7C7C7" )
  7.         Gdip_FillRectangle( G , Brush , -1 , -1 , 73 , 30 )
  8.         Gdip_DeleteBrush( Brush )
  9.         Brush := Gdip_CreateLineBrushFromRect( 0 , -1 , 67 , 27 , "0xFFF4F5F6" , "0xFFD5D5D5" , 1 , 1 )
  10.         Gdip_FillRoundedRectangle( G , Brush , -1 , -1 , 70 , 26 , 5 )
  11.         Gdip_DeleteBrush( Brush )
  12.         Brush := Gdip_CreateLineBrushFromRect( 5 , 2 , 59 , 21 , "0xFFE8E8E8" , "0xFFAEAEAE" , 1 , 1 )
  13.         Gdip_FillRoundedRectangle( G , Brush , 1 , 1 , 66 , 23 , 5 )
  14.         Gdip_DeleteBrush( Brush )
  15.         Brush := Gdip_CreateLineBrushFromRect( 1 , 0 , 67 , 26 , "0xFF494949" , "0xFF494949" , 1 , 1 )
  16.         Pen := Gdip_CreatePenFromBrush( Brush , 1 )
  17.         Gdip_DeleteBrush( Brush )
  18.         Gdip_DrawRoundedRectangle( G , Pen , 0 , 0 , 68 , 25 , 5 )
  19.         Gdip_DeletePen( Pen )
  20.         Brush := Gdip_BrushCreateSolid( "0xFFE8E8E8" )
  21.         Gdip_TextToGraphics( G , "Button" , "s12 Center vCenter Bold c" Brush " x11 y-9" , "Arial" , 50 , 50 )
  22.         Gdip_DeleteBrush( Brush )
  23.         Brush := Gdip_BrushCreateSolid( "0xFF111111" )
  24.         Gdip_TextToGraphics( G , "Button" , "s12 Center vCenter Bold c" Brush " x10 y-10" , "Arial" , 50 , 50 )
  25.         Gdip_DeleteBrush( Brush )
  26.         Gdip_DeleteGraphics( G )
  27.         This.Default_Bitmap:=Gdip_CreateHBITMAPFromBitmap(pBitmap)
  28.         Gdip_DisposeImage(pBitmap)
  29.     }
  30.     Create_Hover_Bitmap(){
  31.         ;Bitmap Created Using: HB Bitmap Maker
  32.         pBitmap:=Gdip_CreateBitmap( 69 , 27 )
  33.          G := Gdip_GraphicsFromImage( pBitmap )
  34.         Gdip_SetSmoothingMode( G , 4 )
  35.         Brush := Gdip_BrushCreateSolid( "0xFFC7C7C7" )
  36.         Gdip_FillRectangle( G , Brush , -1 , -1 , 73 , 30 )
  37.         Gdip_DeleteBrush( Brush )
  38.         Brush := Gdip_CreateLineBrushFromRect( 0 , -1 , 67 , 27 , "0xFFF4F5F6" , "0xFFD4E0E5" , 1 , 1 )
  39.         Gdip_FillRoundedRectangle( G , Brush , -1 , -1 , 70 , 26 , 5 )
  40.         Gdip_DeleteBrush( Brush )
  41.         Brush := Gdip_CreateLineBrushFromRect( 1 , 0 , 67 , 24 , "0xFFE7EEF1" , "0xFFADC3CD" , 1 , 1 )
  42.         Gdip_FillRoundedRectangle( G , Brush , 1 , 1 , 66 , 23 , 5 )
  43.         Gdip_DeleteBrush( Brush )
  44.         Brush := Gdip_CreateLineBrushFromRect( 1 , 0 , 67 , 26 , "0xFF494949" , "0xFF494949" , 1 , 1 )
  45.         Pen := Gdip_CreatePenFromBrush( Brush , 1 )
  46.         Gdip_DeleteBrush( Brush )
  47.         Gdip_DrawRoundedRectangle( G , Pen , 0 , 0 , 68 , 25 , 5 )
  48.         Gdip_DeletePen( Pen )
  49.         Brush := Gdip_BrushCreateSolid( "0xFFE8E8E8" )
  50.         Gdip_TextToGraphics( G , "Button" , "s12 Center vCenter Bold c" Brush " x11 y-9" , "Arial" , 50 , 50 )
  51.         Gdip_DeleteBrush( Brush )
  52.         Brush := Gdip_BrushCreateSolid( "0xFF111111" )
  53.         Gdip_TextToGraphics( G , "Button" , "s12 Center vCenter Bold c" Brush " x10 y-10" , "Arial" , 50 , 50 )
  54.         Gdip_DeleteBrush( Brush )
  55.         Gdip_DeleteGraphics( G )
  56.         This.Hover_Bitmap:=Gdip_CreateHBITMAPFromBitmap(pBitmap)
  57.         Gdip_DisposeImage(pBitmap)
  58.     }
  59.     Create_Pressed_Bitmap(){
  60.         ;Bitmap Created Using: HB Bitmap Maker
  61.         pBitmap:=Gdip_CreateBitmap( 69 , 27 )
  62.          G := Gdip_GraphicsFromImage( pBitmap )
  63.         Gdip_SetSmoothingMode( G , 4 )
  64.         Brush := Gdip_BrushCreateSolid( "0xFFC7C7C7" )
  65.         Gdip_FillRectangle( G , Brush , -1 , -1 , 73 , 30 )
  66.         Gdip_DeleteBrush( Brush )
  67.         Brush := Gdip_CreateLineBrushFromRect( 0 , -1 , 67 , 27 , "0xFFF4F5F6" , "0xFFD5D5D5" , 1 , 1 )
  68.         Gdip_FillRoundedRectangle( G , Brush , -1 , -1 , 70 , 27 , 5 )
  69.         Gdip_DeleteBrush( Brush )
  70.         Brush := Gdip_CreateLineBrushFromRect( 0 , -1 , 67 , 27 , "0xFF727575" , "0xFFA9B8C0" , 1 , 1 )
  71.         Gdip_FillRoundedRectangle( G , Brush , -1 , -1 , 70 , 26 , 5 )
  72.         Gdip_DeleteBrush( Brush )
  73.         Brush := Gdip_CreateLineBrushFromRect( 5 , 2 , 59 , 21 , "0xFF85898B" , "0xFF9EB2BC" , 1 , 1 )
  74.         Gdip_FillRoundedRectangle( G , Brush , 3 , 2 , 62 , 21 , 5 )
  75.         Gdip_DeleteBrush( Brush )
  76.         Brush := Gdip_CreateLineBrushFromRect( 5 , 2 , 59 , 21 , "0xFF9BA1A4" , "0xFF9EB2BC" , 1 , 1 )
  77.         Gdip_FillRoundedRectangle( G , Brush , 4 , 4 , 60 , 21 , 5 )
  78.         Gdip_DeleteBrush( Brush )
  79.         Brush := Gdip_CreateLineBrushFromRect( 1 , 0 , 67 , 26 , "0xFF495459" , "0xFF495459" , 1 , 1 )
  80.         Pen := Gdip_CreatePenFromBrush( Brush , 1 )
  81.         Gdip_DeleteBrush( Brush )
  82.         Gdip_DrawRoundedRectangle( G , Pen , 0 , 0 , 68 , 25 , 5 )
  83.         Gdip_DeletePen( Pen )
  84.         Brush := Gdip_BrushCreateSolid( "0xFFE8E8E8" )
  85.         Gdip_TextToGraphics( G , "Button" , "s12 Center vCenter Bold c" Brush " x11 y-9" , "Arial" , 50 , 50 )
  86.         Gdip_DeleteBrush( Brush )
  87.         Brush := Gdip_BrushCreateSolid( "0xFF111111" )
  88.         Gdip_TextToGraphics( G , "Button" , "s12 Center vCenter Bold c" Brush " x10 y-10" , "Arial" , 50 , 50 )
  89.         Gdip_DeleteBrush( Brush )
  90.         Gdip_DeleteGraphics( G )
  91.         This.Pressed_Bitmap:=Gdip_CreateHBITMAPFromBitmap(pBitmap)
  92.         Gdip_DisposeImage(pBitmap)
  93.     }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement