Перейти к содержанию
Fire Monkey от А до Я

Vitaldj

Пользователи
  • Постов

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

  • Посещение

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

    28

Активность репутации

  1. Like
    Vitaldj получил реакцию от Kitty в Проект с FireDAC под Windows 64-bit на C++ Builder   
    А версия с сервис паком 1? Насколько я припоминаю (у меня правда  Delphi), там ошибка была в компиляторе под win64,  ее как раз в sp1 исправили.
  2. Like
    Vitaldj отреагировална Brovin Yaroslav в Шрифт с обводкой   
    Есть в стилевых объектах специальный объект с тенью. Он называется: TStyleTextObject. Он не использует эффект тени, а делает это при помощи двойной отрисовки текста. По умолчанию он не доступен на панели инструментов, но его можно добавить установив библиотеку FGX.
  3. Like
    Vitaldj отреагировална dnekrasov в Распространение ПО для OSX   
    1. Получить на сайте сертификаты (Developer ID Application и 3rd Party Mac Developer Installer).
    2. Установить их на Маке.
    3. Прописать их в Delphi (Tools->Options->Provisioning)
    4. Сделать Deploy с конфигурацией AppStore
     
    После этого на Маке появится [ваше приложение].pkg, на который уже не ругается OSX
  4. Like
    Vitaldj получил реакцию от masmat в Как увеличить скорость отработки запроса SQL к базе SQLLite   
    Попробуйте поставить на поле cat1 индекс типа NOCASE ASC
  5. Like
    Vitaldj получил реакцию от masmat в Как увеличить скорость отработки запроса SQL к базе SQLLite   
    отпишитесь о результате, просто стало интересно))
  6. Like
    Vitaldj отреагировална ophion в Записать картинку с камеры в BLOB   
    Вот пример того, как писать и читать BLOB
    procedure SaveToFireDACBlob; var MemStream: TMemoryStream; begin FireDAC.Connected := True; MemStream := TMemoryStream.Create; try Image1.Bitmap.SaveToStream(MemStream); MemStream.Seek(0,0); FDQueryInsert.ParamByName('Media').LoadFromStream(MemStream,ftBlob); FDQueryInsert.ParamByName('MType').AsString := '0'; FDQueryInsert.ExecSQL(); except on e: Exception do begin ShowMessage(e.Message); end; end; MemStream.Free; FireDAC.Connected := False; end; procedure LoadFromFireDACBlob; var BlobStream: TStream; begin FireDAC.Connected := True; try FDQuerySelect.Open; FDQuerySelect.First; while(not FDQuerySelect.EOF)do begin // access a stream from a blob like this BlobStream := FDQuerySelect.CreateBlobStream(FDQuerySelect.FieldByName('Media'),TBlobStreamMode.bmRead); // access a string from a field like this if (FDQuerySelect.FieldByName('MType').AsString='0') then begin // load your blob stream data into a control ImageViewer.Bitmap.LoadFromStream(BlobStream); end; BlobStream.Free; FDQuerySelect.Next; end; except on e: Exception do begin //ShowMessage(e.Message); end; end; FireDAC.Connected := False; end; {источник http://www.fmxexpress.com/read-and-write-a-blob-field-using-firedac-with-firemonkey-on-android-and-ios/} Касательно работы с изменением качества/размера, считаю что необходимо использовать TBitmapSurface  (unit FMX.Surfaces)
  7. Like
    Vitaldj отреагировална Равиль Зарипов (ZuBy) в Несколько мониторов, Windows   
    Как то так
    Left := screen.Displays[1].BoundsRect.Left;
  8. Like
    Vitaldj отреагировална Alex7wrt в Отображение значка дочерней формы на панели задач, Windows   
    Нашел решение в другой теме. 
    http://fire-monkey.ru/topic/504-neskolko-okon-prilozheniia-v-paneli-zadach/
     
  9. Like
    Vitaldj отреагировална SergeyIT в RAD 11 на подходе?   
    Вы меня простите, Господа. Но позвольте высказать мнение человека нового в Object Pascal, из .NET пришедшего.
    Тьфу-тьфу, дай им всем Бог в Embarcadero доброго здоровья и процветания. Оглянитесь вокруг, ничего ж и близкого нет, даже отдаленно напоминающего того, к чему пришли в Embarcadero за последние годы с кроссплатформенностью! Уму не постижимо.
    Взять Java (хоть к теме напрямую не относится) - на Android идет сырец-порт JavaFX, сервисы и плюшки - за деньги в частном порядке.
    Xamarin видели? Хотите поднять настроение - погуглите. Выглядит это так: MAMA MILA RAMU... С# по Java (что-то дико нелепое). Если человек знает что такое Activity, зачем ему C#? Или Java менее элегантней (учитывая полное родство). MONO - мычание из преисподней, GUI нет фактически. Да вот возьмите хотя бы Unity 3D. Как-то на конференции человек оттуда проговорился: Вы ведь не знаете - мы 90% времени правим баги платформозависимые, чтобы у Вас почти все работало. У Microsoft судороги предсмертные в части всего, что не Windows 10. Почитать куда их бросает каждый месяц - жуть. Кто-то испрашивал по поводу поддержки Windows Phone в одном из топиков. Да даже если бы технически это было возможно, то они ж меняют API каждые полгода на него: то Windows Phone Silverlight, то HTML5, то DirectX C++ (взамен XNA Windows Phone 7)... Поддержка разработчиков ушла в StackOverflow, MSDN скоро рекламу начнет размещать о таблетках для мужчин.
    Ну, кто еще остался?
    Qt? Это не моя тема. Мне трудно думать про указатели, когда надо думать про логику. Увы, не дано... Не владею темой.
    Так что пока нас не слишком много в сравнении с Китаем, есть шанс, что быстро ответят на заданный вопрос... Скоро эта халява закончится...
  10. Like
    Vitaldj отреагировална Равиль Зарипов (ZuBy) в [TidHTTP] Почему IdHttp1.Get может выдавать 404 ошибку, файл не найден?   
    function idHttpGet(const aURL: string): string; // uses System.Net.HttpClient, System.Net.HttpClientComponent, System.Net.URLClient; var Resp: TStringStream; Return: IHTTPResponse; begin Result := ''; with TNetHTTPClient.Create(nil) do begin Resp := TStringStream.Create('', TEncoding.ANSI); Return := Get( { TURI.URLEncode } (aURL), Resp); Result := Resp.DataString; Resp.Free; Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(idHttpGet('http://airnav.tj/ru/online/utdd')); end; Держи
  11. Like
    Vitaldj отреагировална enatechno в Выгрузка/Загрузка картинки в Blob поле SQLLite под Android/iOS   
    когда-то делал так:
     
    aMStream := TMemoryStream.Create; // считываем в aMStream, потом записываем в параметр пишущего запроса: {$IF CompilerVersion >= 28} aQuery.Params[i].SetStream(aMStream, ftBlob, true); {$ELSE} aQuery.Params[i].LoadFromStream(aMStream, ftBlob, 0); {$ENDIF}
  12. Like
    Vitaldj получил реакцию от Ingalime в FastReport +DLL - проблема   
    Ну забейте на ошибку))) try except  и тд)))
     
    PS возможен глюк FR. На днях пытался выяснить почему в FR RMX не работает межстрочный интервал в memo. И что вы думаете? Ответили, что мол он еще не реализован!!!!!! Я просто охренели от ответа)))) Причем параметр есть (межстрочного интервала), а при смене его вообще ничего не происходит! И вдобавок ответили, что в новой версии (якобы через пару дней) добавят. Я считаю, что это глюк чистой воды, но они не признаются))
  13. Like
    Vitaldj получил реакцию от Rusland в Создание и коррекция кастомных стилей в XE8   
    Спасибо за подробный ответ, кое что пробовал, не все получилось. В общем, очень грустно(. Считаю, что стили одна и почти самая основная фишка FMX, а тут такой голяк с мануалами и вебинарами. Повторюсь, что они есть, но все сделаны в 2014 года, в 2015 многое поменялось. И все они общего значения, 50% времени в них вообще объясняются общие азы, которые особо ничего не дают, мало конкретных примеров(
  14. Like
    Vitaldj отреагировална Alex Bozhko в Какие статьи вы хотели бы видеть в блогах?   
    Как опубликовать FM приложение в Google Play. Пошаговый солюшн.
  15. Like
    Vitaldj отреагировална Rusland в Какие статьи вы хотели бы видеть в блогах?   
    Как написать свой будильник с использованием сервиса? )
  16. Like
    Vitaldj получил реакцию от ElenaS. в FastReport 2. Генератор отчетов для Mac OSX и Windows   
    Да, уже! Спасибо, вроде глюк ушел)
  17. Like
    Vitaldj отреагировална haword в Компиляция Android и IOS приложений адаптация версий   
    Работает на новых версиях потому что в андроидах на интелах есть ЭМУЛЯТОР АРМ КОМАНД!! Что вы как детский сад прям, уже 1000 раз об этом говорилось и опять по новой. Делфи не умеет собирать код под х86 процессоры. 
  18. Like
    Vitaldj отреагировална Равиль Зарипов (ZuBy) в Потоки и процедуры   
    использовать такую конструкцию
    //uses System.Threading; TTask.Run(      procedure      begin         // выполняем загрузку файла из интернета;         TThread.Synchronize(nil, procedure            begin               // выполняем действия связанные с визуальными компонентами            end); end); но помнить что из доп. потока нельзя запустить доп. поток
  19. Like
    Vitaldj отреагировална alexbirukov в Ошибки и косяки Delphi XE10 Seattle и xCode 7   
    Подозреваю, что у вас сертификат и имя программы не идентичны, или что-то подобного рода. В эмуляции по моему это значения не имеет, вот и работает. Что прописано в ключе CFBundle.. и что в сертификате на приложение?
  20. Like
    Vitaldj отреагировална mrseagull в Как получить путь к папке "Мои документы"   
    wchar_t f[MAX_PATH]; SHGetSpecialFolderPath(NULL,f,CSIDL_PERSONAL,false); ShowMessage(f);
  21. Like
    Vitaldj отреагировална Равиль Зарипов (ZuBy) в ListView Color Helper   
    версия для Seatle ColorListView.zip
     
    весь код для отрисовки кастомного цвета 
    1) копируем себе и открываем FMX.ListView
    2) Ctrl+F -> DrawItemsFill
    3) Вставляем код
    // отрисовываем кастомный цвет........................................... // procedure TListViewBase.DrawItemsFill(const StartItem................. if TListViewItem(ListItem).Data['aUseCustomColor'].AsBoolean then FBrush.Color := TListViewItem(ListItem).Data['aCustomColor'].AsInteger; // ...................................................................... после
    if FAlternatingColors and (AltIndex mod 2 = 1) then   FBrush.Color := FItemStyleFillAltColor; 4) Подключаем в своём проекте после стандартного FMX.ListView
  22. Like
    Vitaldj отреагировална AngryOwl в Как свернуть форму, находящуюся в режиме FullScreen?   
    unit uHelpers; interface uses   FMX.Forms; type   TForm_Helper = class helper for TForm      procedure Minimize;      procedure SendToTaskbar;   end; implementation uses System.UITypes{$IFDEF MSWINDOWS}, Winapi.Windows, FMX.Platform.Win{$ENDIF}; { TForm_Helper } procedure TForm_Helper.Minimize; begin   Application.MainForm:= nil;   WindowState := TWindowState.wsMinimized; end; procedure TForm_Helper.SendToTaskbar; begin {$IFDEF MSWINDOWS}   SetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE,     GetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE) or WS_EX_APPWINDOW); {$ENDIF} end; end. у Вашей формы пишем
    type   TForm1 = class(TForm)   ........   protected     procedure CreateHandle; override;   private     ........   public   ......   end; implementation uses   uHelpers; {$R *.fmx} {это позволит сворачивать ваше окно на панель задач, независимо от количества окон в приложении} procedure TForm1.CreateHandle; begin   inherited CreateHandle;   SendToTaskbar; end; а Minimize свернет все как надо, независимо от того - какое у него "состояние".
  23. Like
    Vitaldj отреагировална enatechno в Цвета фона и шрифтов   
    Большинство визуальных контролов в FMX - наследники от TStyledControl (см. схему). Даже если вы не указываете стиль явно для этих контролов, они используют стиль по-умолчанию. Поэтому код для изменения цвета лейбла будет в рантайм такой:
    Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.FontColor]; Label1.TextSettings.FontColor := TAlphaColorRec.Red; А вот TText - не является стилизованным компонентом (см. ту же схему), поэтому задается проще:
    Text1.Color := TAlphaColorRec.Red;
  24. Like
    Vitaldj отреагировална zemt в [Android] Криптография, защита информации   
    есть отличный канал
    доходчиво и понятно, последние примеры на основе openssl, вроде она на андроид работает, не знаю
  25. Like
    Vitaldj отреагировална Равиль Зарипов (ZuBy) в Неказистый файл базы данных   
    Указать нужно кодировку, TEncoding.UTF8 в процедуре загрузки файла, вторым параметром
×
×
  • Создать...