Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.16;
Скачать: CL | DM;

Вниз

Помогите упростить код   Найти похожие ветки 

 
Вопрошающий   (2007-08-15 10:05) [0]

Строю интерфейс через компоненты DevExpress. В одной из процедур присутствует такой код:
 if Sender is TcxDBMaskEdit then with TcxDBMaskEdit(Sender) do begin
   Style.Color := clSkyBlue;
   Style.Font.Color := clWindowText;
 end else if Sender is TcxTextEdit then with TcxTextEdit(Sender) do begin
..
 end else if Sender is TcxExtLookupComboBox then with TcxExtLookupComboBox(Sender) do begin
..
 end else if Sender is TcxCheckBox then with TcxCheckBox(Sender) do begin
..
 end else if Sender is TcxTextEdit then with TcxTextEdit(Sender) do begin
..
 end else if Sender is TcxDateEdit then with TcxDateEdit(Sender) do begin
..
 end;


При необходимости добавления нового класса надо добавлять еще одну строку. А процедур с похожим подходом около десяти :(
Можно ли как-то этот подход сделать "универсальным", т.е. смотреть на класс Sender"a и присваивать атрибуты?


 
Dimka Maslov ©   (2007-08-15 10:15) [1]

Всем компонентам определённого класса прсваивается одинаковое значение свойства Tag, которое и анализируется в процедуре
case (Sender as TComponent).Tag of
 
end;


Если все эти компоненты наследованы от одного базового класса, то наверняка свойства у них одинаковые. И если надо утанавливать значения одних и тех же свойств, то полезно завести массив
StyleColors = array [1..xx] of TColor = (clSkyBlue, ...... )
StyleFontColors = array[1..xx] of TColor = (clWindowText, .....)
тогда можно написать
with Sender as TBasicClass do begin
 Style.Color := StyleColors[Tag]
 Style.Font.Color := StyleFontColors[Tag]
end;


 
Думкин ©   (2007-08-15 10:32) [2]

SetPropValue


 
Вопрошающий   (2007-08-16 11:07) [3]


> Всем компонентам определённого класса прсваивается одинаковое
> значение свойства Tag, которое и анализируется в процедуре

Tag уже юзается для своих нужд :(


> Если все эти компоненты наследованы от одного базового класса

до некоторых свойств можно достучаться через базовый класс, до некоторых - нет (такое наследование)


> SetPropValue

Ммммм... Делфи под рукой сейчас нет, но вроде там используется строковый параметр с названием проперти, так?
Если есть такое свойство, как Style.Font типа TFont, как мне достучаться до этого свойства, потому что, если я ничего не путаю, при "Style.Font" вылетает ошибка доступа


 
Думкин ©   (2007-08-16 11:16) [4]

Так ты к TFont и стучись, а не к к тому у кого он.


 
Вопрошающий   (2007-08-17 02:25) [5]

Спасибо. Попробую



Страницы: 1 вся ветка

Текущий архив: 2007.09.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
15-1187730447
Германн
2007-08-22 01:07
2007.09.16
Обидный пробел в функциональности IDE Delphi (Д6)


2-1187766089
stanislav
2007-08-22 11:01
2007.09.16
Integer to widechar


1-1183718871
azamatufa
2007-07-06 14:47
2007.09.16
FastReport счетчик группы внутри группы


15-1187385078
Real
2007-08-18 01:11
2007.09.16
MIDI кабель


15-1187613383
pasha_golub
2007-08-20 16:36
2007.09.16
SYN flood: как побороть?