Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 223 • TDictionary Custom Sort 3 383 • Fast Watermark Sources 3 137 • 3D Designer 4 894 • Sik Screen Capture 3 390 • Patch Maker 3 593 • Айболит (remote control) 3 798 • ListBox Drag & Drop 3 059 • Доска для игры Реверси 82 165 • Графические эффекты 3 992 • Рисование по маске 3 293 • Перетаскивание изображений 2 664 • Canvas Drawing 2 805 • Рисование Луны 2 622 • Поворот изображения 2 232 • Рисование стержней 2 182 • Paint on Shape 1 583 • Генератор кроссвордов 2 260 • Головоломка Paletto 1 783 • Теорема Монжа об окружностях 2 269 • Пазл Numbrix 1 696 • Заборы и коммивояжеры 2 073 • Игра HIP 1 293 • Игра Go (Го) 1 246 • Симулятор лифта 1 489 • Программа укладки плитки 1 233 • Генератор лабиринта 1 561 • Проверка числового ввода 1 381 • HEX View 1 509 • Физический маятник 1 369

Главная страница

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

Компоненты

Как быстро очистить канву 3

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  PatBlt(Form1.Canvas.Handle, 0, 0, 
    Form1.ClientWidth, Form1.ClientHeight, WHITENESS); 
end;