Dilma писал(а):
менее удобного (и менее понятного) интерфейса
где такое написано - хочу почитать
Нигде не написано.
Один интерфейс - то что есть сегодня. Что он вызывает вопросы - достаточно сообщений на форуме. Если вопрос в этом - можно все ссылки и найти...
Второй - это то, что сейчас у меня (но что пытался описать в постах выше). Если конкретно, то в самый конец THIInit.Init дописано:
if _prop_SizeSp>0 then
begin
Split := NewSplitterEx(FParent,0,0,_prop_BevelSp);
with Split{$ifndef F_P}^{$endif} do
begin
Width := _prop_SizeSp;
Height := _prop_SizeSp;
Color := _prop_ColorSp;
Enabled := _prop_EnableSp;
Visible := _prop_VisibleSp;
if Align in [caTop,caBottom] then
Control.Height := Control.Height - _prop_SizeSp
else
Control.Width := Control.Width - _prop_SizeSp;
end;
end;
##Splitter=Динaмичecкoe измeнeниe paзмepoв элeмeнтoв нa фopмe вo вpeмя выпoлнeния пpoгpaммы
SizeSp=Размер Splitter-а, Активизирован, если >0|1|0
VisibleSp=Splitter виден/скрыт|14|0|True,False
EnableSp=Splitter разрешен/заблокирован|14|0|True,False
ColorSp=Цвет Splitter-а|8|clBtnFace
BevelSp=Определяет внешний вид Сплиттера|14|2|esRaised,esLowered,esNone
##И, естественно, +логически из предыдущего следующее: определения полей
....
protected
Split:PControl;
....
public
....
//Св-а Splitter-а
_prop_SizeSp:integer;
_prop_VisibleSp:boolean;
_prop_EnableSp:boolean;
_prop_ColorSp:TColor;
_prop_BevelSp:TEdgeStyle;
....
И вот
, как мне кажется, расставить Splitter-ы в таком варианте - просто без проблем
И нарушений "визуальности" как-то не вижу - какая визуальность у элемента без точек...
Поиск
Друзья
Администрация