Извините, ничего не найдено.

MotoMustanger · 08.05.2007, 17:13

У меня в програмее есть Choise типа CH_EXCLUSIVE и там 3 елемента. Но вначале выбранным стоит первый в независимости от данных (считываются из rms). Даже новом английском хелпе есть процедуры только для считывания выбранного елемента, а для обозначения выбранным одного из них вначале нет. Есть только для textField и Gauge. Каким образом можно выбрать тот элемент, который мне надо (не вручную, а программой).

Piligrim · 08.05.2007, 17:18

я добавлял такую возможность в библиотеке ui

MotoMustanger · 08.05.2007, 18:03

uses ui;
....
id5:=formaddchoice(fraza,CH_EXCLUSIVE);
id51:=choiceappendstring(id5,'English');
id52:=choiceappendstring(id5,'Русский');
id53:=choiceappendstring(id5,'Deutch');
ui.list_set_selected(id52);
Все равно выбирает первый. Что я сделал не так?

Piligrim · 10.05.2007, 11:36

ui.list_set_selected(3); - нужно указывать именно номер пункта, а не его идентификатор

MotoMustanger · 16.05.2007, 18:52

Не работает все равно, ставит первый. Да и вобще MidletPaskal у меня еще ни с одной библиотекой не работал хотя ставил точно по мануалу. Спасибо, я уже другим способом сделал.

om2804 · 07.06.2007, 20:32

itemId := formAddChoice('выберите диск', 1); ch1 := choiceAppendString(itemId, 'a'); ch2 := choiceAppendString(itemId, 'c'); ui.list_set_selected(3); Всё равно первый выделен

ARV · 28.09.2007, 12:36

И все-таки, как сделать элемент списка выделенным по умолчанию? лично у меня при попытке вызвать ui.list_set_selected мидлет просто зависает...

Сообщение от MotoMustanger

я уже другим способом сделал.

каким же?!

MotoMustanger · 30.09.2007, 00:50

Проблема видно уже решилась в соседней теме но все же напишу, как я решил эту проблему. Я ставил на первое место тот элемент choice, который и есть выбранный. Например я считал из ресурса и знаю какой язык стоит по умолчанию(для 3х элементов):

id5:=formaddchoice(fraza,CH_EXCLUSIVE);
dlang:=false;
for ik:=1 to 2 do
begin
if (lang='English') xor (dlang=true) and (id51=0) then
begin id51:=choiceappendstring(id5,'English');
dlang:=true;end;
if (lang='Russian') xor (dlang=true) and (id52=0) then 
begin id52:=choiceappendstring(id5,'Русский');
dlang:=true;end;
if (lang='Ukrainian') xor (dlang=true) and (id53=0) then 
begin id53:=choiceappendstring(id5,'Українська');
dlang:=true;end;
end;

ARV · 30.09.2007, 12:18

Этот метод неплох, если варианты выбора равнозначны, но совсем неудачен, если варианты ранжированные: маленький-средний-большой... в порядке средний-маленький-большой как-то нет логики

MotoMustanger · 30.09.2007, 20:35

Как кому. Мне например всеравно, в каком порядке они стоят, главное, что выбрано правильный.

Piligrim · 01.10.2007, 11:14

этот вариант не сработает если нужно выбрать несколько опций в одной группе

ARV · 01.10.2007, 11:47

Я пока что не вижу варианта, который бы вообще сработал... ;(

MotoMustanger · 01.10.2007, 17:39

Вот накатал. У меня работает:

program NewProject3;
var id5,id51,id52,id53,i:integer;
	dlang:boolean;
	lang:string;
begin
showform;
lang:='Russian';
id5:=formaddchoice('Language',CH_EXCLUSIVE);
dlang:=false;
for i:=1 to 2 do
begin
if (lang='English') xor (dlang=true) and (id51=0) then
begin id51:=choiceappendstring(id5,'English');
dlang:=true;end;
if (lang='Russian') xor (dlang=true) and (id52=0) then 
begin id52:=choiceappendstring(id5,'Русский');
dlang:=true;end;
if (lang='Ukrainian') xor (dlang=true) and (id53=0) then 
begin id53:=choiceappendstring(id5,'Українська');
dlang:=true;end;
end;
repaint;
delay(3000);
end.