Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 725 • TDictionary Custom Sort 6 726 • Fast Watermark Sources 6 509 • 3D Designer 9 447 • Sik Screen Capture 6 840 • Patch Maker 7 290 • Айболит (remote control) 7 232 • ListBox Drag & Drop 6 095 • Доска для игры Реверси 97 850 • Графические эффекты 7 408 • Рисование по маске 6 705 • Перетаскивание изображений 5 561 • Canvas Drawing 5 943 • Рисование Луны 5 720 • Поворот изображения 5 181 • Рисование стержней 3 787 • Paint on Shape 2 967 • Генератор кроссвордов 3 908 • Головоломка Paletto 3 106 • Теорема Монжа об окружностях 3 916 • Пазл Numbrix 2 579 • Заборы и коммивояжеры 3 373 • Игра HIP 2 314 • Игра Go (Го) 2 213 • Симулятор лифта 2 624 • Программа укладки плитки 2 206 • Генератор лабиринта 2 724 • Проверка числового ввода 2 361 • HEX View 2 699 • Физический маятник 2 375

Главная

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

Компоненты

Форум

В TreeView текущий Node выделяется другим шрифтом

Настоящий программист ест один раз в день - с утра и до вечера.

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if cdsSelected in State then
    Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsUnderline];
end;