Вверх ↑
Этот топик читают: Гость
Ответов: 5227
Рейтинг: 585
#1: 2011-06-14 09:43:46 ЛС | профиль | цитата
Свойство Text не инициализируется при запуске (delphi & fpc hiasm 4.04 b185) code_24394.txt
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_24394.txt [199B] [428]
vip
#1.1контекстная реклама от партнеров
Ответов: 1535
Рейтинг: 176
#2: 2011-06-14 10:22:32 ЛС | профиль | цитата
Вариант

code_24395.txt
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 1code_24395.txt [355B] [412]
Ответов: 5227
Рейтинг: 585
#3: 2011-06-14 10:48:48 ЛС | профиль | цитата
Это не вариант, это костыль.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 4697
Рейтинг: 426
#4: 2011-06-14 11:04:07 ЛС | профиль | цитата
#pas
with Control{$ifndef F_P}^{$endif} do
begin
if (_prop_ReadOnly <> 0) then OnChange := _OnChange;
Text := _prop_Text; //кто тут говорил, что не инициализируется?
OnSelChange := _OnClick;
if ManFlags and $8 > 0 then OnDrawItem := _OnDrawItem;
if (Count > 0) and (_prop_ReadOnly = 0) then CurIndex := 0; //а вот и виновник события из первого поста
end;
карма: 10
0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2011-06-14 11:18:38 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-06-24 08:56:00
карма: 0

0
Разработчик
Ответов: 4697
Рейтинг: 426
#6: 2011-06-14 11:22:28 ЛС | профиль | цитата
95.167.60.101 писал(а):
дальше то что?

Я опроверг утверждение первого поста:
andrestudio писал(а):
Свойство Text не инициализируется при запуске

карма: 10
0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2011-06-14 11:32:37 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-06-24 08:55:42
карма: 0

0
Ответов: 5227
Рейтинг: 585
#8: 2011-06-14 12:13:43 ЛС | профиль | цитата
у себя так и сделал костылём, меня устроит.

#pas
procedure THIComboBox.Init;
var Flags:TComboOptions;
dt:TData; //***
begin
Flags := [{coNoIntegralHeight}];
dtString(dt, _prop_Text); //***
if (_prop_ReadOnly = 0) then include(Flags,coReadOnly);
if _prop_Sort then include(Flags,coSort);
if ManFlags and $8 > 0 then include(Flags,coOwnerDrawFixed);
Control := NewCombobox(FParent,Flags);
Control.OnMeasureItem:= _OnMeasureItem;
inherited;
SetStrings(_prop_Strings);
with Control{$ifndef F_P}^{$endif} do
begin
if (_prop_ReadOnly <> 0) then OnChange := _OnChange;
Text := _prop_Text;
OnSelChange := _OnClick;
if ManFlags and $8 > 0 then OnDrawItem := _OnDrawItem;
//if (Count > 0) and (_prop_ReadOnly = 0) then CurIndex := 0;
if (Count > 0) and (_prop_ReadOnly = 0) then _work_doSelectString(dt,0);//***
end;
end;
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)