![]() ![]() ![]() Bottom )), dmSet ) end procedure DrawEclipse begin bmp2 := TBGRABitmap. logoPaint ( Sender : TObject ) var bmp, bmp2, bmp3, bmp4, bmp5, bmp6 : TBGRABitmap rct : TRect procedure DrawBackground begin // Background bmp := TBGRABitmap. Uses BGRABitmap, BGRABitmapTypes, BGRAGradients procedure TForm1. You can change the 'Percent' of progress changing this line: Canvas, 0, 0, False ) // Free Bitmap ABitmap. Canvas, 0, 0, False ) // Draw Bitmap //(0,0,ABitmap.Bitmap) ABitmap. Bottom, BGRA ( 28, 28, 28, 255 ), dmSet ) // Progress Light ABitmap2. ClientRect, $303030, $323232, gdVertical ) // Background Border ABitmap. ![]() Width * 0.75 ) // Background Gradient ABitmap. Var ABitmap, ABitmap2 : TBGRABitmap ARect : TRect begin // Initialization // Self.Color:=$004D4D4D ABitmap := TBGRABitmap. Then go Form1 OnPaint event and add this code: Also you can use Like Windows 7 Explorer ToolBar Control using BGRAControls to draw the Button.Īdd a new TToolBar with a TToolButton and set this properties:.Canvas, 0, 0, False ) // Free Bitmaps tempbmp1. Canvas, 0, 0, False ) // Paint in Canvas //(0,0,tempbmp1.Bitmap) tempbmp1. Height - 2, 0 ) // Merge Bitmaps //(0,0,tempbmp2.Bitmap) tempbmp2. Bottom ), dmDrawWithTransparency, True, False ) tempbmp2. ClientRect ) // Light Gradient tempbmp2 := TBGRABitmap. Var tempbmp1, tempbmp2 : TBGRABitmap begin // Background Gradient tempbmp1 := TBGRABitmap. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |