Может здесь кто знает как сделать Skin [D6]
maxim2 © (2002-08-21 12:51:00)
Привет!
Кто знает как сделать Skin к проге?
murza (2002-08-22 12:17:00) [1]
Есть замечательная идея:
Прикол заключается в том, что можно загружать форму (или)
отдельный компонент из DFM файла динамически.
1) Делаешь форму, которую хочешь заскинить, делаешь на ней
action-ы.
2) Потом делаешь скины - правишь DFM файл, добавляешь и
изменяешь контролы, устанавливаешь обработчики. Только удали вещи,
которые не должны изменятся - например action-ы
3) Когда надо загрузить скин пишешь примерно следующее
TComponent *StringToComponent(AnsiString as, TComponent
*Instance)
{
TMemoryStream* pms = new TMemoryStream();
TStringStream* pss = new TStringStream(as);
TComponent *pc;
try {
ObjectTextToBinary(pss, pms);
pms->Seek(0, soFromBeginning);
}
catch(...) {
ShowMessage("Streaming error.");
}
pc = pms->ReadComponent(Instance);
delete pms;
delete pss;
return pc;
}
Я понимаю, что форум для дельфистов, но я думаю надо будет -
разберешься.
Удаляешь с формы те компоненты, которые могут изменятся, те
которые есть в файле скина
Вызываешь вышеозначенную процедуру, указав ей в качестве
параметра твою форму.
Возможности изменения формы огромны. Фактически все, что ты
можешь изменить в билдере, не редактируя код, можешь изменить таким
способом.
ЗЫ если укажешь новые компоненты, которых раньше не было
возникнет ошибка. Чтобы избежать этого необходимо зарегистрировать
все классы, которые могут встретиться в скинах:
Classes::RegisterClass(__classid(TEdit));
Еще раз извияюсь у завсегдатаев форума, посвященного дельфи, но,
ИМХО, билдер - форева!!!
Наверх 
ЧАТ |
Орешник |
|
