Вверх ↑
Этот топик читают: Гость
Ответов: 875
Рейтинг: 101
#1: 2008-11-07 02:34:05 ЛС | профиль | цитата
почему файл сохраняет пустой

code_10556.txt
карма: 1

0
файлы: 1code_10556.txt [21.6KB] [179]
Ответов: 2
Рейтинг: 0
#2: 2008-11-07 03:37:59 ЛС | профиль | цитата
Попробуй так
code_10557.txt
карма: 0

0
файлы: 1code_10557.txt [21.6KB] [195]
Ответов: 875
Рейтинг: 101
#3: 2008-11-07 05:33:28 ЛС | профиль | цитата
спасибо
карма: 1

0
Ответов: 199
Рейтинг: 7
#4: 2008-11-07 12:34:33 ЛС | профиль | цитата

карма: 0

0
Ответов: 1161
Рейтинг: 160
#5: 2008-11-07 12:50:24 ЛС | профиль | цитата
два несовместимых типа Bitmap и Stream
пару компонентов просто добавить надо
code_10558.txt
карма: 0

0
файлы: 1code_10558.txt [22KB] [177]
Разработчик
Ответов: 26151
Рейтинг: 2127
#6: 2008-11-07 17:20:37 ЛС | профиль | цитата
Можно еще упростить

code_10570.txt
карма: 22

0
файлы: 1code_10570.txt [21.6KB] [215]
Ответов: 952
Рейтинг: 4
#7: 2008-11-10 09:19:19 ЛС | профиль | цитата
У меня возникла проблема.
Есть потребность в небольшой утилитке работающей с ключами реестра.
Вроде все нормально НО я никак не могу сделать что бы при запуске она считывало значение ключа реестра и ставило отмеченнеомечен на флажке при равенстве параметра ключа или его неравенстве определенной величине.
Т.е. на форме флажок разрешение экрана, если в ключе реестра стоит параметр 0 то эта опция не включена и надо что бы при запуске формы флажок не был отмечен. Если же параметр ключа равен 1, т.е. включен, то при запуске флажок должен быть отмечен.
Помогите кто чем может плиз.
Заранее спасибо.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#8: 2008-11-10 09:39:34 ЛС | профиль | цитата
user_asm писал(а):
Помогите кто чем может плиз.

user_asm,

Add(MainForm,2953706,21,105)
{
Width=170
Height=87
link(onCreate,117125:doRead,[])
}
Add(Registry,117125,119,119)
{
HKey=1
Key="softwarehiasm_prog"
Value="Flag"
DataType=0
link(onRead,10724002:doCheck,[])
}
Add(CheckBox,10724002,189,119)
{
Left=15
Top=15
link(onCheck,117125:doWrite,[(235,125)(235,102)(107,102)(107,132)])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#9: 2008-11-10 12:11:38 ЛС | профиль | цитата
Tad
Не получается так.
При запуске параметр автоматом меняется на 1.
А мне надо что бы при запуске читался параметр и в зависимости от того 0 или 1 там выставлялась отметка флажка. Если 0 то нет отметки, а если 1 то есть.
Т.е. что бы состояние флажка показывало в какое значение имеет ключ.

карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2008-11-10 12:24:37 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 17:33:32
карма: 0

0
Ответов: 952
Рейтинг: 4
#11: 2008-11-10 12:53:42 ЛС | профиль | цитата
Сам сегодня поставил HiAsm 4.0 build 172
Вот я допустим снимаю птичку - параметр должен изменится на 0 - меняется. Закрываю прогу, запускаю снова - флажок на форме отмечен (хоте не должен был), в реестре параметр сменился на 1.
карма: 0

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#12: 2008-11-10 13:01:59 ЛС | профиль | цитата
Tad, параметр Null считывать не надо



Add(MainForm,10933606,343,203)
{
Width=170
Height=87
link(onCreate,117125:doRead,[])
}
Add(Registry,117125,406,217)
{
HKey=1
Key="softwarehiasm_prog"
Value="Flag"
DataType=0
link(onRead,5064446:doCase,[])
}
Add(CheckBox,10724002,504,217)
{
Left=15
Top=15
link(onCheck,117125:doWrite,[(550,223)(550,200)(394,200)(394,230)])
}
Add(Case,5064446,455,217)
{
link(onNextCase,10724002:doCheck,[])
}


В остальном все работает нормально
карма: 22

1
Голосовали:Konst
Ответов: 952
Рейтинг: 4
#13: 2008-11-10 13:21:30 ЛС | профиль | цитата
Действительно работает!
Спасибо всем за помощь!
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2008-11-10 14:29:58 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 17:33:32
карма: 0

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#15: 2008-11-10 14:47:10 ЛС | профиль | цитата
Tad, ну-ка расскажи, что творится у тебя в этой схеме.


Add(MainForm,2953706,56,126)
{
}
Add(CheckBox,8513868,189,126)
{
Left=140
Top=15
Width=110
}
Add(Button,805290,112,126)
{
Left=45
Top=15
Caption="Null"
link(onClick,8513868:doCheck,[])
}


Null -- не false в при ReadBool, и все это потому, что вот в этом коде


  Result := (Data.Data_type<>data_int)or(Data.idata<>0);

Аргумент Data.Data_type<>data_int при данных типа Null выдает true
карма: 22

1
Голосовали:Konst
Сообщение
...
Прикрепленные файлы
(файлы не залиты)