with CreateBitmap(3,1,false,haright,vabottom) do LoadFromResourceName(hins tance,'BITMAP_1'); with CreateBitmap(3,2,false,haright,vabottom) do LoadFromResourceName(hins tance,'BITMAP_2'); with CreateBitmap(3,3,false,haright,vabottom) do LoadFromResourceName(hins tance,'BITMAP_3'); with CreateBitmap(3,4,false,haright,vabottom) do LoadFromResourceName(hins tance,'BITMAP_4'); with CreateBitmap(3,5,false,haright,vabottom) do LoadFromResourceName(hins tance,'BITMAP_5'); Cells[3,1]:=''; Cells[3,2]:=''; Cells[3,3]:=''; Cells[3,4]:=''; Cells[3,5]:=''; addrotated(3,0,90,'Bitmaps');
这个控件好像有点问题,有内存泄漏.
tance,'BITMAP_1');
with CreateBitmap(3,2,false,haright,vabottom) do LoadFromResourceName(hins
tance,'BITMAP_2');
with CreateBitmap(3,3,false,haright,vabottom) do LoadFromResourceName(hins
tance,'BITMAP_3');
with CreateBitmap(3,4,false,haright,vabottom) do LoadFromResourceName(hins
tance,'BITMAP_4');
with CreateBitmap(3,5,false,haright,vabottom) do LoadFromResourceName(hins
tance,'BITMAP_5'); Cells[3,1]:='';
Cells[3,2]:='';
Cells[3,3]:='';
Cells[3,4]:='';
Cells[3,5]:=''; addrotated(3,0,90,'Bitmaps');