Перейти к содержанию
  • Регистрация

slav_z

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

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

  • Посещение

  • Победитель дней

    4

slav_z стал победителем дня 9 января

slav_z имел наиболее популярный контент!

1 Подписчик

Информация о slav_z

  • Звание
    Продвинутый пользователь

Посетители профиля

244 просмотра профиля
  1. Да нормально работает на XE8 и 10.3 procedure TForm6.Button1Click(Sender: TObject); var A: TJSONObject; begin A := TJSONObject(TJSONObject.ParseJSONValue('здесь неправильный json')); if Assigned(A) then A.ToString; end;
  2. Показать/скрыть сенсорную клавиатуру Windows. unit Lib.Keyboard; interface uses Winapi.Windows, Winapi.ActiveX, System.Win.ComObj, FMX.Forms, FMX.Platform.Win; procedure ToggleSensorKeyboard(Form: TCommonCustomForm); implementation const CLSID_UIHostNoLaunch: TGUID = '{4CE576FA-83DC-4F88-951C-9D0782B4E376}'; type ITipInvocation = interface ['{37C994E7-432B-4834-A2F7-DCE1F13B834B}'] procedure Toggle(WND: HWND); safecall; end; procedure ToggleSensorKeyboard(Form: TCommonCustomForm); var TipInvocation: ITipInvocation; begin OleCheck(CoCreateInstance( CLSID_UIHostNoLaunch,nil,CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, ITipInvocation,TipInvocation)); TipInvocation.Toggle(FormToHWND(Form)); end; end. C:\Program Files\Common Files\microsoft shared\ink\TabTip.exe - Сенсорная клавиатура Windows. В Windows 10 простой запуск уже не работает. Кто как делал? Очень интересны примеры кода.
  3. да нормально... я в окопе...
  4. "реагировал"? останется кто-то один: или FMX или FGX... кто?
  5. FGX - утопие. один разработчик не сможет тянуть такой проект. но идея в основе замечательная.
  6. попробуйте указать цвет и вид заполнения... Canvas.Fill.Color и Canvas.Fill.Kind (текст - это заливка... поэтому Fill)
  7. Ищите установленное свойство Scale у родителей. Создайте новый пустой проект и проверьте поведение координат мыши там. image-mouse.zip
  8. могу посмотреть, но не бесплатно (999 р.)... я картинки в pdf не делал... так бы сказал как и так... да посмотрите сами формат изображения в pdf-фе...
  9. pdf - текстовый формат данных... в простом виде, без сжатия, можно самому все сделать... при желании...
  10. procedure TForm1.SwitchSwitch(Sender: TObject); begin Selection.HideSelection := not Switch.IsChecked; Selection.HitTest := Switch.IsChecked; Rectangle.HitTest := not Switch.IsChecked; end; Sender в данном случае это TSwitch... нельзя его к чему попало приводить (к TRectangle или TSelection) если очень хочется, то можно к TControl... но всеравно вы обратитесь к объекту Switch но никак не к Rectangle или Selection...
  11. вылет с ошибкой? какой? или вылет по return ? ActivePrinter не nil (null) ?
  12. очистить дату можно только на экране: DateEdit1.IsEmpty:=True; DateEdit1.Data := nil; - Data это свойство TFmxObject к дате TDateEdit оно не имеет отношения. ShowMessage(DateToStr(DateEdit1.Date)); - всегда покажет дату: тип TDate всегда имеет какое-нибудь значение (не может быть nil). Просто проверяйте свойство DateEdit1.IsEmpty перед обработкой.
  13. попробуйте запустить exe-шник на Win 7 или 10... если там будет работать, то дело в XP... скорее всего так и будет... я чета сомневаюсь что XE6 сильно отличается от XE8....
  14. странно... у меня windows 10 нормально работает и в XE8 и в 10.2.3... когда программа запускается, главное окно приложения сразу показывается на экране.. вы успеваете его свернуть до первого срабатывания таймера? программа при запуске должна быть сразу свернута?
  15. ну блиииииин... создайте событие OnCloseQuery у всплывающего окна и вставьте туда код. у всплывающего окна сделайте "поверх всех окон" и "по центру экрана". пример во вложении. Project.zip
×
×
  • Создать...