All pastes #260431 Raw Edit

Miscellany

public text v1 · immutable
#260431 ·published 2006-11-28 10:53 UTC
rendered paste body
procedure TUFiskFoForm.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
    if Panel = StatusBar.Panels[0] then
      begin
//        StatusBar.Canvas.Font.Color := clWhite;
        StatusBar.Canvas.TextOut(Rect.Left, Rect.Top,'CTRL_SPACE-ŠTAMPANJE  F5-PRESEK STANJA  F6-PRESEK STANJA(DODATNA)  F7-DNEVNI  IZVEŠTAJ  F8-STANJE  F9-BARKOD')
      end;
end;