eddoc Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: procedure TForm2.Paint;//метод "работает", если только в CreateParams указан (not WS_THICKFRAME)  var    Rect: TRect;    Flags: UINT;    Edge: UINT; begin   inherited;    Rect:= Bounds(0,0, ClientWidth, ClientHeight);    Flags:= BF_BOTTOMRIGHT;      with Canvas do      begin        DrawEdge(Handle, Rect, EDGE_BUMP, Flags);      end; end;   Всего записей: 328 | Зарегистр. 25-11-2007 | Отправлено: 16:51 13-08-2012 | Исправлено: eddoc, 17:11 13-08-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование