unit ideimages; {$mode objfpc}{$H+} interface uses Classes, SysUtils; procedure RegisterIDEImages; implementation uses fpg_main; const ide_gutter_vertical : Array[0..437] of byte = ( 66, 77,182, 1, 0, 0, 0, 0, 0, 0, 54, 0, 0, 0, 40, 0, 0, 0, 15, 0, 0, 0, 8, 0, 0, 0, 1, 0, 24, 0, 0, 0, 0, 0, 128, 1, 0, 0,196, 14, 0, 0,196, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,187,160,131,243,220,191,247,227,200,243,221,194,239,215, 187,235,210,183,231,206,179,226,198,167,224,196,162,226,197,166,224, 199,168,224,199,168,226,204,175,203,175,144,255,255,255, 0, 0, 0, 187,160,131,243,220,191,247,227,200,243,221,194,239,215,187,235,210, 183,231,206,179,226,198,167,224,196,162,226,197,166,224,199,168,224, 199,168,226,204,175,203,175,144,255,255,255, 0, 0, 0,187,160,131, 243,220,191,247,227,200,243,221,194,239,215,187,235,210,183,231,206, 179,226,198,167,224,196,162,226,197,166,224,199,168,224,199,168,226, 204,175,203,175,144,255,255,255, 0, 0, 0,187,160,131,243,220,191, 247,227,200,243,221,194,239,215,187,235,210,183,231,206,179,226,198, 167,224,196,162,226,197,166,224,199,168,224,199,168,226,204,175,203, 175,144,255,255,255, 0, 0, 0,187,160,131,243,220,191,247,227,200, 243,221,194,239,215,187,235,210,183,231,206,179,226,198,167,224,196, 162,226,197,166,224,199,168,224,199,168,226,204,175,203,175,144,255, 255,255, 0, 0, 0,187,160,131,243,220,191,247,227,200,243,221,194, 239,215,187,235,210,183,231,206,179,226,198,167,224,196,162,226,197, 166,224,199,168,224,199,168,226,204,175,203,175,144,255,255,255, 0, 0, 0,187,160,131,243,220,191,247,227,200,243,221,194,239,215,187, 235,210,183,231,206,179,226,198,167,224,196,162,226,197,166,224,199, 168,224,199,168,226,204,175,203,175,144,255,255,255, 0, 0, 0,187, 160,131,243,220,191,247,227,200,243,221,194,239,215,187,235,210,183, 231,206,179,226,198,167,224,196,162,226,197,166,224,199,168,224,199, 168,226,204,175,203,175,144,255,255,255, 0, 0, 0); procedure RegisterIDEImages; begin // system images. Change these to the composite arrow bmp that includes // disabled state //fpgImages.AddBMP( // 'sys.sb.up', // @stdimg_arrow_up, // sizeof(stdimg_arrow_up)); fpgImages.AddMaskedBMP( // 60x12 in total. 5 images of 12x12 each. 'ide.guttervertical', @ide_gutter_vertical, sizeof(ide_gutter_vertical), 0,0); end; end.