Mega Code Archive

 

Categories / Delphi / VCL

 

Statusbar a resim ve yazı ekleme

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.