TStatusBar

OwnerDraw в компоненте StatusBar

2017-08-10T20:03:29+07:00

Code:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

with statusbar1.Canvas do

begin

Brush.Color := clRed;

FillRect(Rect);

TextOut(Rect.Left, Rect.Top, 'Панель '+IntToStr(Panel.Index));

end;

StatusBar с другими контролами

2017-08-10T19:58:01+07:00

Этот StatusBar позволит размещать на себе любые другие контролы.

Создаем новый компонент от StatusBar и првим код как внизу. Потом инсталлируем и все.

Подробнее...

TStatusBar+TProgressBar

2017-08-10T20:02:25+07:00

Вставить ProgressBar в StatusBar:

Вот эту функцию применять вместо стандартного Create

Подробнее...

В строке состояния TStatusBar выводится только 127 символов

2017-08-10T20:03:09+07:00

В строке состояния TStatusBar выводится только 127 символов.

Можно ли как-нибудь увеличить это число?

Подробнее...

Изменить шрифт TStatusBar

2017-08-10T20:04:44+07:00

Code:

{

To use this example, you need a TStatusBar and at least one Panel.

Then change the style of StatusBar1.Panels[0] to

psOwnerDraw and add the code below to the OnDrawPanel handler.

}

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

var

SomeText: string;

begin

if Panel = StatusBar1.Panels[0] then

begin

SomeText := 'Hello!';

Panel.Width := Trunc(StatusBar1.Canvas.TextWidth(SomeText) * 1.5);

with StatusBar.Canvas do

begin

Brush.Color := clWhite;

FillRect(Rect);

Font.Name := 'Arial';

Font.Color := clRed;

Font.Style := Font.Style + [fsItalic, fsBold];

TextRect(Rect, Rect.Left + 1, Rect.Top, SomeText);

end;

Как вывести цветной текст в TStatusBar?

2017-08-10T19:57:26+07:00

Статусбар, это стандартный элемент управления Windows и как все отображает шрифт, заданный в параметре clBtnText, который устанавливается через Панель управления. Поумолчанию этот цвет чёрный, но он может менятся в зависимоти пользовательской темы. StatusBar и связанные с ним панели имеют возможность самостоятельной перерисовки (owner-draw), позволяющей рисовать текст различными цветами. Для этого необходимо в TStatusBar.Panels установить свойство Style в OwnerDraw.

Подробнее...

Показ всплывающих подсказок в строке состояния

2017-08-10T20:04:26+07:00

Я покажу как сделать так, чтобы строка состояния (Status Bar) показывала все всплывающие подсказки (Hint) элементов управления формы при нахождении курсора мыши в области компонента. Имеется пара решений данной задачи, но в любом случае вы должны создать код для каждой формы (пока я не знаю другого решения).

Подробнее...

Показ даты, времени и состояния клавиш в строке состояния

2017-08-10T19:59:33+07:00

Предположим, у вас есть StatusBar с 4-мя панелями, плюс таймер. Тогда вы можете сделать:

Подробнее...

Установить размер шрифта для панели StatusBar

2017-08-10T20:05:04+07:00

Code:

With StatusBar1.Panels[1] do

begin

Text := Edit1.Text;

Canvas.Font.Size := StatusBar1.Font.Size;

Width := Canvas.TextWidth(Text) + 10;

end;