Вопрос - ответ

[Devel]

задаем простые вопросы, и быстро получаем на них ответы, даже самые глупые.

p.s. для того чтобы отобразить код используем bb код php.

[Dispeller]

Спасибо я сделал таймер, но вот у обоих примеров есть недоработка. В любом примере таймер начинается идти даже если не нажимать на кнопку.

[Devel]

Спасибо я сделал таймер, но вот у обоих примеров есть недоработка. В любом примере таймер начинается идти даже если не нажимать на кнопку.

Это баг последней версии, измените свойство Установлен на Да, а потом снова на Нет.

[Kesya]

как сделать чтоб моя программа включалась при включении компьютера? Может нужно прописать чтото в реестре и т.д?

[xsnakes]

Или поместить ярлык в папку авто загрузки:
<win диск>:\Documents and Settings\<user or alluser>\Start Menu\Programs\Startup
или прописать в реестре
Про реестр нашёл статью с множеством способов помимо run.

[RevesASS]

Слушайте ребята, я вот делаю браузер, и у меня есть вопрос, как сделать кнопку, чтобы при нажатии на нее, программа переходила на предыдущею страницу, переводила на следующею страницу, и обновляла страницу, в общем три главные функции браузера, помогите!
За ранее спасибо!!!

[ОС2]

ну объясните кто нибудь подробно - как засунуть скрипт php в DS? так чтобы он брал переменную из программы, переводил в текст и выводил другой переменной
или пример какой нибудь подскажите

[createx]

Возможно ли написать в DevelStudio движок для разработки 3D игр? Если нет то планируется ли это в будущем?

[Devel]

Возможно ли написать в DevelStudio движок для разработки 3D игр? Если нет то планируется ли это в будущем?

Возможно только написать расширение для php для работы с каким-нибудь движком 2Д/3Д игр, я начинал это дело с движком Omega, но пока приоритеты не в этом. Возможно в будущих версиях будет такое дополнение.

[Devel]

ну объясните кто нибудь подробно - как засунуть скрипт php в DS? так чтобы он брал переменную из программы, переводил в текст и выводил другой переменной
или пример какой нибудь подскажите

Скрипт засунуть очень просто - через скрипты программы. Объявить глобальную переменную тоже просто, через global. Что еще не хватает?

[Devel]

Слушайте ребята, я вот делаю браузер, и у меня есть вопрос, как сделать кнопку, чтобы при нажатии на нее, программа переходила на предыдущею страницу, переводила на следующею страницу, и обновляла страницу, в общем три главные функции браузера, помогите!
За ранее спасибо!!!

Эти функции появятся только в следующей версии.

[Kesya]

будет ли возможность создать видео плеер вот например музыкальный плеер можно, а видео делать нельзя я помню что и на msb тоже небыло такой возможности..

[ОС2]

знаний мну не хватает (
не доходит как скрипт программы записать, просто скопировать в выполнение например на "клик" ?

[Devel]

знаний мну не хватает (
не доходит как скрипт программы записать, просто скопировать в выполнение например на "клик" ?

Смотря какой скрипт и что ты хочешь сделать.

[RevesASS]

Эти функции появятся только в следующей версии.

Понятно, жаль, будем ждать, очень хочется обновления!

[Devel]

Понятно, жаль, будем ждать, очень хочется обновления!

http://forum.develstudio.ru/showthre...BD%D0%B8%D0%B8!

[RevesASS]

http://forum.develstudio.ru/showthre...BD%D0%B8%D0%B8!

Это же замечательно, спасибо большое!!!

[ОС2]

да все мучаю программу чтобы платежку напечатать, уже скачал другую, но просто интересно самому домучить, надо сделать так чтобы число введенное цифрами - написано было словами, скрипт нашел, вот этот - http://dn.ir2.ru/scrips1.aspx теперь мучаюсь как его подключить правильно чтоб данные брал из одного места, переводил в слова и обратно выводил в другом месте
вставку для браузера я не писал - а вот это - c("Form1->label1")->text = write_price_in_words(21.11); должно запускать функцию ? а как ее записать в программу ?



p.s. а новую версию можно попробовать ?

[xsnakes]

ОС2, тадам
Оказалось всё проще чем я думал Я совал каждую функцию в функцию, а достаточно было весь скрипт записать в создание например и вызывать "главную" функцию.
Тут максимальное число 999999, но можно и самому подправить скрипт, для более больших чисел и для отрицательных.

[Devel]

Вот мой вариант с скриптами программы.

[xsnakes]

Devel, функцию то главную не записал! В примере только 1 строчка в кнопке!

[Devel]

Devel, функцию то главную не записал! В примере только 1 строчка в кнопке!

Разве в скриптах этого нет?

[xsnakes]

О каких ты скриптах? Я вижу что во всём проекте одна строчка:
c("label1")->caption = write_number_in_words( c("edit1")->text );
И всё... Проекте выдаёт ошибки.

[Devel]

О каких ты скриптах? Я вижу что во всём проекте одна строчка:
c("label1")->caption = write_number_in_words( c("edit1")->text );
И всё... Проекте выдаёт ошибки.

Зайди в Утилы-Скрипты программы

[xsnakes]

Скрипт есть, но в скрипте появилось куча символов "\" ! Об этом и ошибка говорит:
Warning: Unexpected character in input: '\' (ASCII=92)
Вот такой получился скрипт:

<?
 function write_price_in_words($price)
  {
    $price = number_format($price, 2, ., );
    $point = strpos($price, .);
    //отделяем рубли от копеек
    if(!empty($point))
    {
      $rub = substr($price, 0, $point);
      $kop = substr($price, $point + 1);
    }
    //преобразуем рубли
    $str = write_number_in_words($rub) ;
    //пишем рублей(ь,я)
    $word = " рублей\";
    //последнее число
    if (strlen($rub))
     $last_digit = $rub[(strlen($rub) - 1)];
    else
     $last_digit = \"\";
    //предпоследнее число
    if (strlen($rub)>1)
     $pred_last_digit = $rub[(strlen($rub) - 2)];
    else
     $pred_last_digit = \"\";
    if($last_digit == \'1\' && $pred_last_digit != \'1\')
      $word = \" рубль\";
    elseif(($last_digit == \'2\' || $last_digit == \'3\' || $last_digit == \'4\') && $pred_last_digit != \'1\')
      $word = \" рубля\";
    $str .= $word;
    //преобразуем копейки
    if(!empty($kop))
    {

      $str .= write_number_in_words($kop, \'femininum\') ;
      //пишем копейка (и, ек)
      $word = \" копеек\";
      //последнее число
      $last_digit = $kop[(strlen($kop) - 1)];
      //предпоследнее число
      $pred_last_digit = $kop[(strlen($kop) - 2)];
      if($last_digit == \'1\' && $pred_last_digit != \'1\')
           $word = \" копейка\";
         elseif(($last_digit == \'2\' || $last_digit == \'3\' || $last_digit == \'4\') && $pred_last_digit != \'1\' )
           $word = \" копейки\";
      $str .= $word;
    }
    setlocale(LC_ALL, \'ru_RU.cp1251\');
    return ucfirst($str);
  }

  //допустимый диапазон чисел 0 .. 999999
  //число прописью
  function write_number_in_words ($num, $genus = \'masculinum\')
  {
    //разряд: единицы, десятки, сотни, тысячи
    $cur_order = \"единицы\";
    $cur_thousands_order = \"единицы\";
    if($num == 0)
      return \" 00\";
    $num = strval($num);
    $limit = strlen($num) - 1;
    $next_digit = \'0\';
    $str=\"\"; $jk=0;
    for($i = $limit; $i >= 0; $i--)
    {
    $jk++;
      //сотни
      if($cur_order == \"сотни\")
      {
        $str = write_units_hundreds($num[$i]).$str;
        if ($jk==3) { $i--;
         $cur_order = \"единицы\";  //$next_digit = \'0\';
        }
      }
      //десятки
      if($cur_order == \"десятки\")
      {
        $next_d = ($next_digit)?$next_digit:\'\';
        $str = write_units_tens($num[$i], $next_d).$str;
        $cur_order = \"сотни\";
        $next_digit = \'0\';
      }
      //единицы
      if($cur_order == \"единицы\")
      {
       if ($jk>2) {
        if ($i>0 && $num[$i-1] == \"1\") {
         $next_digit = $num[$i];
         $str = \" {$num[$i-1]}тысяч\".$str;
        }
        else 
         if ($i>-1)
          $str = write_units_thousands_units($num[$i]).$str;
       }
       else {
        if ($i>0 && $num[$i-1] == \"1\")
          $next_digit = $num[$i];
        else {
          $str = write_units($num[$i], $genus);
        }
       }
       $cur_order = \"десятки\";
      }
    }
    return($str);
  }

    //принадлежит функции write_number_in_words
    //преобразует десятки
    function write_units_tens ($tens, $next_digit)
    {
      $str_tens=\"\";
      $tens .= $next_digit;
      if($tens == 1) $str_tens = \" десять\";
      if($tens == 2) $str_tens = \" двадцать\";
      if($tens == 3) $str_tens = \" тридцать\";
      if($tens == 4) $str_tens = \" сорок\";
      if($tens == 5) $str_tens = \" пятьдесят\";
      if($tens == 6) $str_tens = \" шестьдесят\";
      if($tens == 7) $str_tens = \" семьдесят\";
      if($tens == 8) $str_tens = \" восемьдесят\";
      if($tens == 9) $str_tens = \" девяносто\";
//      if($tens == 10) $str_tens = \" десять\";
      if($tens == 11) $str_tens = \" одиннадцать\";
      if($tens == 12) $str_tens = \" двенадцать\";
      if($tens == 13) $str_tens = \" тринадцать\";
      if($tens == 14) $str_tens = \" четырнадцать\";
      if($tens == 15) $str_tens = \" пятнадцать\";
      if($tens == 16) $str_tens = \" шестнадцать\";
      if($tens == 17) $str_tens = \" семнадцать\";
      if($tens == 18) $str_tens = \" восемнадцать\";
      if($tens == 19) $str_tens = \" девятнадцать\";
      return($str_tens);
    }

    //принадлежит функции write_number_in_words
    //преобразует сотни
    function write_units_hundreds ($hundreds)
    {
      $str_hundreds=\"\";
      if($hundreds == 1) $str_hundreds = \" сто\";
      if($hundreds == 2) $str_hundreds = \" двести\";
      if($hundreds == 3) $str_hundreds = \" триста\";
      if($hundreds == 4) $str_hundreds = \" четыреста\";
      if($hundreds == 5) $str_hundreds = \" пятьсот\";
      if($hundreds == 6) $str_hundreds = \" шестьсот\";
      if($hundreds == 7) $str_hundreds = \" семьсот\";
      if($hundreds == 8) $str_hundreds = \" восемьсот\";
      if($hundreds == 9) $str_hundreds = \" девятьсот\";
      return($str_hundreds);
    }

    //принадлежит функции write_number_in_words
    //преобразует единицы тысячного разряда
    function write_units_thousands_units ($hundreds)
    {
      $str_hundreds=\"\";
      if($hundreds == 0) $str_hundreds = \" тысяч\";
      if($hundreds == 1) $str_hundreds = \" одна тысяча\";
      if($hundreds == 2) $str_hundreds = \" две тысячи\";
      if($hundreds == 3) $str_hundreds = \" три тысячи\";
      if($hundreds == 4) $str_hundreds = \" четыре тысячи\";
      if($hundreds == 5) $str_hundreds = \" пять тысяч\";
      if($hundreds == 6) $str_hundreds = \" шесть тысяч\";
      if($hundreds == 7) $str_hundreds = \" семь тысяч\";
      if($hundreds == 8) $str_hundreds = \" восемь тысяч\";
      if($hundreds == 9) $str_hundreds = \" девять тысяч\";
      return($str_hundreds);
    }

    //принадлежит функции write_number_in_words
    //преобразует единицы
    function write_units ($units, $genus=\'masculinum\')
    {
      $str_units=\"\";
      if($genus == \'masculinum\')
      {
           if($units == 1) $str_units = \" один\";
           if($units == 2) $str_units = \" два\";
      }
      if($genus == \'femininum\')
      {
           if($units == 1) $str_units = \" одна\";
           if($units == 2) $str_units = \" две\";

      }
      if($units == 3) $str_units = \" три\";
      if($units == 4) $str_units = \" четыре\";
      if($units == 5) $str_units = \" пять\";
      if($units == 6) $str_units = \" шесть\";
      if($units == 7) $str_units = \" семь\";
      if($units == 8) $str_units = \" восемь\";
      if($units == 9) $str_units = \" девять\";
      return($str_units);
    }
?>

Баг какой-то!

Добавил:
Символ '\' появляется в версии 6, а в 7 RC1 всё работает нормально!

[haker]

Это из за за одной строчки кода в которой при открытии не говориться убрать эти \ )) Это экранизация спец символов ))

[xsnakes]

Я то в курсе, что не хватает stripslashes() , но пример то не работает на текущей версии 6

[haker]

ц меня тоже не работает )) но йа вручную всё заменял ))

[overtake]

будет ли консольный режим программирования? например тренироваться очень удобно в таких приложениях

[haker]

не будет пока что )) Возможно когда нить появиться )) Хотя можно и сейчас сделать что то подобия консольного приложения )) Но на самом деле будет симуляция ))

[overtake]

+ еще один вопрос, будет ли аналог программы для Linux, мб в будущем когда программа достаточно будет сильно развита, у тя будет несколько команд по реализации кроссплатформенной программы на другие ОС

[haker]

ну вообще php поддерживается в unix подобных системах очень хорошо )) Следовательно движок можно перенести довольно просто, но пока что это не планируется ))

[Devel]

+ еще один вопрос, будет ли аналог программы для Linux, мб в будущем когда программа достаточно будет сильно развита, у тя будет несколько команд по реализации кроссплатформенной программы на другие ОС

Возможно и будет, если программа станет популярной и известной и будет приносить прибыль.

[haker]

Ну или такой вариант ))

[ОС2]

Зайди в Утилы-Скрипты программы

уряяяяя, дошло до меня куда скрипт записывать =)))

[Walsor]

Есть поле для ввода текста, в нём два знака, два 0. И стоит ограничение не больше двух знаков.
Хочу сделать способ выделения текста как в браузерах в поле, где пишется адрес. Щёлкаешь по полю и весь текст выделяется, щёлкаешь ещё раз и выделение убирается.
Вот код, который по каким то причинам не хочет выделять текст.

$q1 = c('Form1->tH')->selText;  // Выделить текст в поле для ввода текста
$q2 = strlen($q1); // Посчитать количество знаков
$q3 = c('Form1->tH')->text; // Текст из поля для ввода текста
$q4 = strlen($q3); // Посчитать количество знаков
if ($q2 = $q4) // Сравнить количество выделенных знаков
    {
    c('Form1->tH')->selLength = 0; // Если было выделено всё, то убрать выделение
    }
else // Иначе
    {
    c('Form1->tH')->selStart = 0; // Начать выделение с 1 знака
    c('Form1->tH')->selLength = 2; // Выделить 2 знака
    } 

Выделенное поле и есть "tH"

[Walsor]

Что то крупновато вышло.

[haker]

Короче когда ты тыкаешь повторно на текстовое поле, выделении спадает )) И поэтому код у тебя не срабатывает ))
Попробуй так )) Это не самый лучший вариант ))

if($self->tag == 0){
 c("edit1")->selStart = 0;
 c("edit1")->selLength = strlen(c("edit1")->text);
 $self->tag = 1;
}else{
 $self->tag = 0;
} 

[Walsor]

А что такое "tag"

[haker]

Ну вообще в delphi во всех почти компонентах есть свойство tag )) Ну так вот йа его использовал )) Хотя в DS такого свойства нету, но есть возможность записывать данные в не существующие свойства объекта и хранить там данные ))

[Walsor]

А у меня что то не работает. Я его под свои названия сделал. Но ошибки не выдаёт. А можно я дам исходник и на нём покажешь, если можно.