diff options
Diffstat (limited to 'src/reportengine/u_reportimages.pas')
-rw-r--r-- | src/reportengine/u_reportimages.pas | 181 |
1 files changed, 181 insertions, 0 deletions
diff --git a/src/reportengine/u_reportimages.pas b/src/reportengine/u_reportimages.pas new file mode 100644 index 00000000..e7d69b92 --- /dev/null +++ b/src/reportengine/u_reportimages.pas @@ -0,0 +1,181 @@ +{ + << Impressions >> U_ReportImages.pas + + Copyright (C) 2010 - Jean-Marc Levecque <jean-marc.levecque@jmlesite.fr> + + This library is a free software coming as a add-on to fpGUI toolkit + See the copyright included in the fpGUI distribution for details about redistribution + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + Description: + This unit contains the images used by the preview dialog +} + +unit U_ReportImages; + +{$mode objfpc} + +interface + +uses + fpg_main; + +procedure CreateReportImages; +function DeleteReportImages: Boolean; + +implementation + +const + repimg_Fin : Array[0..245] of byte = ( + 66, 77,246, 0, 0, 0, 0, 0, 0, 0,118, 0, 0, 0, 40, 0, 0, + 0, 16, 0, 0, 0, 16, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, + 128, 0, 0, 0, 18, 11, 0, 0, 18, 11, 0, 0, 0, 0, 0, 0, 16, + 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 0, 0,128, 0, 0, 0,128, + 128, 0,128, 0, 0, 0,128, 0,128, 0,128,128, 0, 0,192,192,192, + 0,128,128,128, 0, 0, 0,255, 0, 0,255, 0, 0, 0,255,255, 0, + 255, 0, 0, 0,255, 0,255, 0,255,255, 0, 0,255,255,255, 0,119, + 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, + 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,113, + 119,119,116, 71,119,119,119,113, 23,119,116, 71,119,119,119,113, 17, + 119,116, 71,119,119,119,113, 17, 23,116, 71,119,119,119,113, 17, 17, + 116, 71,119,119,119,113, 17, 23,116, 71,119,119,119,113, 17,119,116, + 71,119,119,119,113, 23,119,116, 71,119,119,119,113,119,119,116, 71, + 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, + 119,119,119,119,119,119,119,119); + +const + repimg_Imprimante : Array[0..357] of byte = ( + 66, 77,102, 1, 0, 0, 0, 0, 0, 0,118, 0, 0, 0, 40, 0, 0, + 0, 20, 0, 0, 0, 20, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, + 240, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 0, 0,128, 0, 0, 0,128, + 128, 0,128, 0, 0, 0,128, 0,128, 0,128,128, 0, 0,192,192,192, + 0,128,128,128, 0, 0, 0,255, 0, 0,255, 0, 0, 0,255,255, 0, + 255, 0, 0, 0,255, 0,255, 0,255,255, 0, 0,255,255,255, 0, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 0, 0, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 0, 0, 51, 0, 3, 51, 51, 51, 51, 48, 0, 51, 0, + 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 48,247,119,119, + 119,119,119,119,119, 3, 0, 0, 48,247,119,119,119,119,119,119,119, + 3, 0, 0, 48,247,119,119,119,119,119,153,119, 3, 0, 0, 48,255, + 255,255,255,255,255,255,255, 3, 0, 0, 56, 0,136,136,136,136,136, + 136, 0,131, 0, 0, 51, 48, 0, 0, 0, 0, 0, 0, 3, 51, 0, 0, + 51, 48,136,136,136,136,136,136, 3, 51, 0, 0, 51, 48, 0, 0, 0, + 0, 0, 0, 3, 51, 0, 0, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 0, 0, 51, 51, 51, 51, 51, 51, 56, 0, 8, 51, 0, 0, 51, 51, 51, + 51, 51, 51, 48,239,224, 51, 0, 0, 51, 56, 0, 0, 0, 0, 14,240, + 8, 51, 0, 0, 51, 48,224,239,239,239, 63,224, 51, 51, 0, 0, 51, + 56, 0, 0, 0, 0, 14,240, 8, 51, 0, 0, 51, 51, 51, 51, 51, 51, + 48,239,224, 51, 0, 0, 51, 51, 51, 51, 51, 51, 56, 0, 8, 51, 0, + 0); + +const + repimg_Precedent : Array[0..245] of byte = ( + 66, 77,246, 0, 0, 0, 0, 0, 0, 0,118, 0, 0, 0, 40, 0, 0, + 0, 16, 0, 0, 0, 16, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, + 128, 0, 0, 0, 18, 11, 0, 0, 18, 11, 0, 0, 16, 0, 0, 0, 16, + 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 0, 0,128, 0, 0, 0,128, + 128, 0,128, 0, 0, 0,128, 0,128, 0,128,128, 0, 0,128,128,128, + 0,192,192,192, 0, 0, 0,255, 0,192,192,192, 0, 0,255,255, 0, + 255, 0, 0, 0,192,192,192, 0,255,255, 0, 0,255,255,255, 0,218, + 218,218,218,218,218,218,218,173,173,173,173,173,173,173,173,218,218, + 218,218,218,218,218,218,173,173,173,173,173,173,173,173,218,218,218, + 218,209,218,218,218,173,173,173,173, 17,173,173,173,218,218,218,209, + 17,218,218,218,173,173,173, 17, 17,173,173,173,218,218,209, 17, 17, + 218,218,218,173,173,173, 17, 17,173,173,173,218,218,218,209, 17,218, + 218,218,173,173,173,173, 17,173,173,173,218,218,218,218,209,218,218, + 218,173,173,173,173,173,173,173,173,218,218,218,218,218,218,218,218, + 173,173,173,173,173,173,173,173); + +const + repimg_Stop : Array[0..245] of byte = ( + 66, 77,246, 0, 0, 0, 0, 0, 0, 0,118, 0, 0, 0, 40, 0, 0, + 0, 16, 0, 0, 0, 16, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, + 128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 0, 0,128, 0, 0, 0,128, + 128, 0,128, 0, 0, 0,128, 0,128, 0,128,128, 0, 0,192,192,192, + 0,128,128,128, 0, 0, 0,255, 0, 0,255, 0, 0, 0,255,255, 0, + 255, 0, 0, 0,255, 0,255, 0,255,255, 0, 0,255,255,255, 0, 51, + 35,153,153,153,153, 34, 35, 51, 41,153,153,153,153,147, 51, 50,153, + 153,153,153,153,153, 51, 41,153,153,153,153,153,153,147,153,255,153, + 249,159,153,249,153,159,153,249,249,249,249,249,153,153,153,249,249, + 249,249,249,153,153,159,153,249,249,249,255,153,153,249,153,249,249, + 249,249,249,159,153,153,249,249,249,249,249,159,153,249,249,249,249, + 249,249,153,255,159,255,159,153,255,153, 57,153,153,153,153,153,153, + 147, 51,153,153,153,153,153,153, 51, 51, 57,153,153,153,153,147, 51, + 51, 51,153,153,153,153, 51, 51); + +const + repimg_Suivant : Array[0..245] of byte = ( + 66, 77,246, 0, 0, 0, 0, 0, 0, 0,118, 0, 0, 0, 40, 0, 0, + 0, 16, 0, 0, 0, 16, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, + 128, 0, 0, 0, 18, 11, 0, 0, 18, 11, 0, 0, 16, 0, 0, 0, 16, + 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 0, 0,128, 0, 0, 0,128, + 128, 0,128, 0, 0, 0,128, 0,128, 0,128,128, 0, 0,128,128,128, + 0,192,192,192, 0, 0, 0,255, 0,192,192,192, 0, 0,255,255, 0, + 255, 0, 0, 0,192,192,192, 0,255,255, 0, 0,255,255,255, 0,218, + 218,218,218,218,218,218,218,173,173,173,173,173,173,173,173,218,218, + 218,218,218,218,218,218,173,173,173,173,173,173,173,173,218,218,218, + 26,218,218,218,218,173,173,173, 17,173,173,173,173,218,218,218, 17, + 26,218,218,218,173,173,173, 17, 17,173,173,173,218,218,218, 17, 17, + 26,218,218,173,173,173, 17, 17,173,173,173,218,218,218, 17, 26,218, + 218,218,173,173,173, 17,173,173,173,173,218,218,218, 26,218,218,218, + 218,173,173,173,173,173,173,173,173,218,218,218,218,218,218,218,218, + 173,173,173,173,173,173,173,173); + +const + repimg_Debut : Array[0..245] of byte = ( + 66, 77,246, 0, 0, 0, 0, 0, 0, 0,118, 0, 0, 0, 40, 0, 0, + 0, 16, 0, 0, 0, 16, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, + 128, 0, 0, 0, 18, 11, 0, 0, 18, 11, 0, 0, 0, 0, 0, 0, 16, + 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 0, 0,128, 0, 0, 0,128, + 128, 0,128, 0, 0, 0,128, 0,128, 0,128,128, 0, 0,192,192,192, + 0,128,128,128, 0, 0, 0,255, 0, 0,255, 0, 0, 0,255,255, 0, + 255, 0, 0, 0,255, 0,255, 0,255,255, 0, 0,255,255,255, 0,119, + 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, + 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 68, + 119,119,113,119,119,119,119, 68,119,119, 17,119,119,119,119, 68,119, + 113, 17,119,119,119,119, 68,119, 17, 17,119,119,119,119, 68,113, 17, + 17,119,119,119,119, 68,119, 17, 17,119,119,119,119, 68,119,113, 17, + 119,119,119,119, 68,119,119, 17,119,119,119,119, 68,119,119,113,119, + 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, + 119,119,119,119,119,119,119,119); + +procedure CreateReportImages; +begin + + fpgImages.AddMaskedBMP('repimg.Last',@repimg_Fin,sizeof(repimg_Fin),0,0); + + fpgImages.AddMaskedBMP('repimg.Printer',@repimg_Imprimante,sizeof(repimg_Imprimante),0,0); + + fpgImages.AddMaskedBMP('repimg.Precedent',@repimg_Precedent,sizeof(repimg_Precedent),0,0); + + fpgImages.AddMaskedBMP('repimg.Stop',@repimg_Stop,sizeof(repimg_Stop),0,0); + + fpgImages.AddMaskedBMP('repimg.Next',@repimg_Suivant,sizeof(repimg_Suivant),0,0); + + fpgImages.AddMaskedBMP('repimg.First',@repimg_Debut,sizeof(repimg_Debut),0,0); + +end; + +function DeleteReportImages: Boolean; +begin + + fpgImages.DeleteImage('repimg.Last',True); + + fpgImages.DeleteImage('repimg.Printer',True); + + fpgImages.DeleteImage('repimg.Precedent',True); + + fpgImages.DeleteImage('repimg.Stop',True); + + fpgImages.DeleteImage('repimg.Next',True); + + fpgImages.DeleteImage('repimg.First',True); + +end; + +end. + |