Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 804 • TDictionary Custom Sort 6 806 • Fast Watermark Sources 6 588 • 3D Designer 9 547 • Sik Screen Capture 6 925 • Patch Maker 7 374 • Айболит (remote control) 7 318 • ListBox Drag & Drop 6 178 • Доска для игры Реверси 98 133 • Графические эффекты 7 488 • Рисование по маске 6 778 • Перетаскивание изображений 5 632 • Canvas Drawing 6 016 • Рисование Луны 5 804 • Поворот изображения 5 257 • Рисование стержней 3 852 • Paint on Shape 3 010 • Генератор кроссвордов 3 961 • Головоломка Paletto 3 143 • Теорема Монжа об окружностях 3 974 • Пазл Numbrix 2 626 • Заборы и коммивояжеры 3 438 • Игра HIP 2 354 • Игра Go (Го) 2 267 • Симулятор лифта 2 671 • Программа укладки плитки 2 230 • Генератор лабиринта 2 782 • Проверка числового ввода 2 389 • HEX View 2 726 • Физический маятник 2 415

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Обработчик события OwnerDraw в компоненте StatusBar

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;
end;

Обработчик события OwnerDraw в компоненте StatusBar

Похожие по теме исходники