Kikoma

Пользователи
  • Публикации

    31
  • Зарегистрирован

  • Посещение

  • Days Won

    1

Kikoma last won the day on 13 августа 2014

Kikoma had the most liked content!

О Kikoma

  • Звание
    Продвинутый пользователь
  • День рождения
  1. Система новая, источников на родном русском немного, да и на буржуйском тоже дефицит. Этот ресурс очень помогает в изучении и освоении FM. Хоть я сам лично и за монетизацию сайтов (в общем случае), но думаю данный сайт из другого поля, и задачи, стоящие перед ним, совсем другие. А вот пожертвование можно внедрить . Любой труд должен быть оплачен (и мотивирован) А вот качественный курс по ФМ я бы прошел, даже за деньги, т.к. уверен, что сэкономил бы по времени на порядок больше. Но с другой стороны система так бурно развивается-обновляется, что многие вещи быстро теряют актуальность - так что качественный курс по ФМ сделать довольно сложно.
  2. Вопрос актуален!!! Тоже ищу решение, пока не нашел
  3. Задай свой размер, како хочешь. Или тебе принципиально картинку-рамку iPhone6 видеть?
  4. Спасибо. Все прекрасно заработало, но только с обязательной перезаполнением ListBox вот итоговый код: if (count = 0) and (TabControl1.ActiveTab = TabCart) then TThread.Queue(TThread.CurrentThread, procedure begin // Запускаем анимацию TListBoxItem(Item).AnimateFloat('Height', 0, 0.5); TListBoxItem(Item).AnimateFloatWait('Opacity', 0, 0.5); Item.Release; TabCartClick(Sender); // запуск перерисовки ListBox // Timer1.Enabled := True; // запуск TabCartClick(Sender); через 0,3 сек end); В моем случае перезаполнение TListBox обязательно, т.к. в SpinBox.Tag хранятся индексы Итемов.
  5. Да, открыл, тоже нет рамки: причина в стиле изменилось имя: делаем следующее: 3. У формы ставим StyleBook := StyleBook1
  6. Вот мои исходники (только на Delphi XE6 upd2)
  7. в первом случае набираю на клавиатуре mydonetoolbutton, а во втором выбираю из списка.
  8. Проблема решена с использованием UTF8EncodeToShortString Вот код: RESTRequest1.Params.AddItem( UTF8EncodeToShortString(edParam.Text), UTF8EncodeToShortString(edValue.Text), TRESTRequestParameterKind.pkGETorPOST,[poDoNotEncode] ); Всем спасибо.
  9. Как получилось у меня: 1.То что вы открыли в Блокноте я полностью скопировал этот object TLayout StyleName = 'donetoolbutton' ... end Сохранил его в отдельный файл, при этом поменял StyleName = 'mydonetoolbutton' 2. На форму бросил StyleBook1, щелкнул на нем два раза попал в редактор. По кнопке Load... выбрал выше созданный файл и его немного подредактировал: добавил Rectangle (Fill.Kind := None; Stroke (рамка) уже есть) Немного повозился с размерами и выравниванием. После кнопка Apply and Close 3. Бросаю две SpeedButton, у одного набираю в StyleLookUp = mydonetoolbutton, у другого из списка выбираю StyleLookUp = donetoolbutton. Результат достигнут. На непоколебимость данного варианта не претендую, хотелось бы узнать мнение гуру.
  10. Странно, но AnsiToUtf8, UTF8Encode, UTF8Decode, UTF8ToString - не влияют на результат в различном использовании и перед отправкой и после получения. Все их удалил. Изменил строку формирование параметра: RESTRequest1.Params.AddItem(edParam.Text, edValue.Text,TRESTRequestParameterKind.pkGETorPOST,[poDoNotEncode]); Добавил в код сервера кириллицу. Результат получился следующий <?php header("Content-Type: text/html; charset=utf-8"); echo "Проверка русского языка\n"; echo "Your GET request:\n"; var_dump($_GET); ?> в результате вместо русских букв знаки вопроса: Проверка русского языка Your GET request: <br/> array(1) { ["qqDF"]=> string(19) "balalaika-?????????" } Делаю вывод, что принимает и отображает приложение в utf-8 нормально. А вот проблема возникает при отправки запроса
  11. Здравствуйте, помогите настроить кодировки. Ниже дано тестовое приложение, которое отправляет с помощью RESTClient запрос и получает в виде текста то что отправил. Все работает замечательно, кроме русских букв. В приложении задаю параметр и значение. при задании русских букв выводится коды например вместо "Балалайка" выводится "A1C0CBC0CBC0C9CAC0" Help отсутствует, устал быть слепым экспериментирующим котенком можно результат работы сервера увидеть здесь: http://abws.ru/testrest/?qqq=balalaika-Балалайка Исходники приложения (Delphi XE6 update 2) здесь. код сервера: <?php header("Content-Type: text/html; charset=utf-8"); echo "Your GET request: <br/>\n"; var_dump($_GET); ?>
  12. Спасибо, все заработало. И как сам до этого не додумался???
  13. Все равно я тебя изучу, обезьяна огненная!!!

  14. Я вызываю процедуру заполнения ListBox? т.к. там идет проверка или заполняем TListBoxItem-ами, или выводим один один Итем - Корзина пуста. Если не вызывать процедуру заполнения, то придется выполнять проверку - а все ли итемы показываются и выводим итем "Корзина пуста". - Как то сложно и неправильно. В Queen все равно выходит ошибка. Выполняется анимация на закрытие Итема, и когда уже не находимся в процедуре под Итемом, выполняется Таймер и заново заполняется TListBox. Все отлично работает через таймер. Плохо что ли?
  15. Спасибо, AlexG Opacity - работает. Height - не работает. Не уверен, но думаю из-за стилизации (попозже попробую на не стилизованном TlistBoxItem, результат опишу) При удалении вызывается ошибка. Подробности Как правильно программно удалить TListBoxItem из стилевого объекта?