VCL Delphi

Resim eklenecek statusbar panelinin style özelliği psOwnerDraw yapılarak
StatusBar1 in OnDrawPanel bölümünde aşağıdaki kod kullanılabilir.
with StatusBar1.Canvas,Rect do
begin
FillRect(Rect);
TextRect(Rect,Succ(Left)+15,Succ(Top)-2,'Kayıt');
Draw(Succ(Left),Succ(Top),Image1.Picture.Bitmap);
end;
NOT : with bölümündeki virgül doğrudur öyle kalacak.