Олег Киреев

Tumaso спасиБО.

Здравствуйте. Уважаемый Tumaso я изменил интерфейс. Как Вам ??

Да Вы правы. Я обязательно переделаю и заменю.

Здравствуйте. СпасиБО за замечание. На вкус и цвет товарищей нет.

Приложение под OS Win64 для хранение показателей анализов БАК, ОАК, ОАМ и показателей денситометрии в базе для всей семьи в течение своей жизни с возможностью просмотра в виде графика с минимальным и максимальными допустимыми показателями. А также напоминалка выполнения какого-то действия. Можно сохранять в файл bmp картинки графиков и сохранять копию файла базы. Распространяется полностью бесплатно. Разработал Олег Киреев. Республика Беларусь. Замечания и предложения прошу направлять на Viber или Telegram или WhatsApp по телефону +375 29 676 13 84. База учёта анализов v.2.rar База учёта анализов v3.rar База учёта анализов v8.rar

fmxtopdf спасиБО за ответ.

fmxtopdf здравствуйте. Напишите пожалуйста а где это может пригодится ??? Неужели на на маленьких экранах где установлена OS Android удобно работать с графикой ??? С Уважением.

Здравствуйте уважаемые. Win 10, Delphi 10.3. Поменял телефон на HONOR X7b. перестала запускаться отладка. При этом: 1.Приложение на телефоне удалено. 2.Режим отладки на телефоне включен. 3.Скриншоты на ошибки прилагаю. Прошу Вас подскажите что не так. Я вот не помню слово Activate должно быть ярким или нет как у меня ?? С Уважением.

Я использую компоненты бесплатной GLScene. Там проще всё.

Посмотрите видео примера работы. Видео_помощи.mp4 БД графиков v.4.rar БД графиков v.5.rar

СпасиБО. Это работает на Win 10. Пожалуйста напишите то же для Win 7. С Уважением.

Может так подойдёт? : function GetWMIObject(const objectName: String): IDispatch; var chEaten: Integer; BindCtx: IBindCtx; Moniker: IMoniker; begin OleCheck(CreateBindCtx(0, bindCtx)); OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker)); OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result)); end; procedure TForm2.SpeedButton1Click(Sender: TObject); var objWMIService : OLEVariant; colItems : OLEVariant; colItem : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; begin objWMIService := GetWMIObject('winmgmts:\\localhost\root\CIMV2'); colItems := objWMIService.ExecQuery('SELECT * FROM Win32_DesktopMonitor','WQL',0); oEnum := IUnknown(colItems._NewEnum) as IEnumVariant; if oEnum.Next(1, colItem, iValue) = 0 then begin Memo1.Lines.Add('Подпись '+(colItem.Caption)); Memo1.Lines.Add('Описание '+(colItem.Description)); Memo1.Lines.Add('Идентификатор устройства '+(colItem.DeviceID)); Memo1.Lines.Add('Manufacturer '+(colItem.MonitorManufacturer)); Memo1.Lines.Add('Тип '+(colItem.MonitorType)); end; end;

Здравствуйте уважаемый antigrav. Я пользовался встраиваемыми компонентами GLScene которые распространяются бесплатно. С Уважением.

Приложение под OS Win для расчёта нагрузок (сил, скоростей угловых и угловых ускорений) от работы карданного вала в зависимости от схемы и имеющихся данных. Перед началом работы необходимо посмотреть файл Help.mp4. Help.mp4 РасНагрКард.rar