-
Хочу попробовать сделать на Delphi XE2 визуальные компоненты со скинами и с анимационными эффектами. Например, кнопки. Подскажите пожалуйста с чего начать? Есть где-нибудь хороший материал, объясняющий как это сделать?
-
1. Создаёте компонет типа TSkinManager, который будет уметь работать с файлами скинов, извлекать и предоставлять контролам данные о том что нужно рисовать 2. Создаёте кнопку, наследник TCustomControl, одно из свойств кнопки будет TSkinManager 3. В методе Paint рисуем кнопку, например так
type TSkinPart = (spButtonLeft,spButtonTop,.....); procedure TMyButton.Paint; var Bmp: TBitMap; begin if SkinManager = nil then Exit; Bmp := SkinMagnager.GetPart(spButtonLeft); Canvas.Draw(0,0,Bmp); end;
|