![]() |
|
|
#1
|
|||
|
|||
|
Как создать кнопки с закруглёнными краями?
Как закрасить кгопку? |
|
#2
|
||||
|
||||
|
Для округления используй XP Manifest. А для того, чтобы сделать эффект закрашивания кинь на форму компонент TSpeedButton или TBitBtn (по вкусу) и и нарисуй в Paint'е рисунок нужного цвета, а потом подгрузи этот рисунок в свойство Glyph у любой из этих кнопок кроме TButton (у него нет этого свойства).
Последний раз редактировалось Winny, 02.09.2007 в 20:03. |
|
#3
|
|||
|
|||
|
Нет, мне нужно без манифеста
|
|
#4
|
||||
|
||||
|
Нарисуй в Paint'е рисунок-кнопку, а потом подгрузи в Image этот рисунок и используй его как кнопку (для эффекта можно поставить у Image свойство Cursor в crHandPoint).
|
|
#5
|
||||
|
||||
|
Можно использовать регионы, но получается не очень красиво.
Код:
var rgn : HRGN; begin rgn := CreateRoundRectRGN(0, 0, Button1.Width, Button1.Height, 15, 15); SetWindowRGN(Button1.Handle, rgn, True); DeleteObject(rgn); end; |
|
#6
|
||||
|
||||
|
Лучше использовать манифест.Создай файл в Блокноте вида "имя программы.manifest" и не парься с этим. Или сделать так как написал Winny. В Блокноте напиши:
Код:
/<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
name="Application.Name" // замени это на имя проги
version="1.4.23.67"
processorArchitecture="X86"
type="win32"
/>
<description>Application.Description</description> //сюда впиши описание твоей проги
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>Последний раз редактировалось moo2k, 07.09.2007 в 15:53. |