Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 880 • TDictionary Custom Sort 5 986 • Fast Watermark Sources 5 775 • 3D Designer 8 591 • Sik Screen Capture 6 117 • Patch Maker 6 545 • Айболит (remote control) 6 538 • ListBox Drag & Drop 5 403 • Доска для игры Реверси 95 238 • Графические эффекты 6 754 • Рисование по маске 5 914 • Перетаскивание изображений 4 927 • Canvas Drawing 5 303 • Рисование Луны 5 032 • Поворот изображения 4 573 • Рисование стержней 3 247 • Paint on Shape 2 487 • Генератор кроссвордов 3 370 • Головоломка Paletto 2 687 • Теорема Монжа об окружностях 3 456 • Пазл Numbrix 2 284 • Заборы и коммивояжеры 2 968 • Игра HIP 1 932 • Игра Go (Го) 1 848 • Симулятор лифта 2 185 • Программа укладки плитки 1 915 • Генератор лабиринта 2 353 • Проверка числового ввода 2 041 • HEX View 2 361 • Физический маятник 1 996

Главная

Исходники (более 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

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