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

Равиль Зарипов (ZuBy)

Модераторы
 Профиль  Обзор контента

  • Постов

    2 517

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

  • Посещение

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

    264

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

  1. Like
    Kitty
    Равиль Зарипов (ZuBy) получил реакцию от Kitty в Минимальный набор permissions   
    эти разрешения поставлены из коробки и их нужно включать по надобности.
    READ_CALENDAR и WRITE_CALENDAR - для работы с календарём ACCESS_COARSE_LOCATION и ACCESS_FINE_LOCATION - для gps CALL_PHONE - для работы со звонками CAMERA - для фото и видео съемке READ_EXTERNAL_STORAGE и WRITE_EXTERNAL_STORAGE - для записи и чтения файлов на устройстве и тд.. все чем не пользуетесь, можно и нужно отключать
  2. Like
    Равиль Зарипов (ZuBy)
    Равиль Зарипов (ZuBy) отреагировална kami в Суперский сайт!   
    если уж до конца соблюдать стилистику магистра Йоды, то надо говорить примерно так:
    "в раздел интересующий зайти должен ты, сверху-справа кнопку нужную найдешь".
  3. Like
    Major
    Равиль Зарипов (ZuBy) получил реакцию от Major в Суперский сайт!   
    в раздел интересующий зайти и там сверху справа есть "Подписаться"
  4. Like
    Равиль Зарипов (ZuBy)
    Равиль Зарипов (ZuBy) отреагировална kami в Не идет компиляция под Мак   
    Так куда уж подробнее?
    1. Ставим правильный XCode
    2. Запускаем XCode, идем в меню (кажется) Tools - Preferences, лезем во вкладку Locations, выбираем в выпадающем списке CommandLineTools правильную версию. Применяем, все закрываем.
    3. Запускаем PAServer (до этого он должен быть выключен).
    4. Запускаем IDE, подтягиваем нужные SDK. Емнип, прямо при подтягивании можно выставить чекбокс Make Active. Если нет - после подтягивания на правильной SDK правой кнопкой и делаем активной.
  5. Like
    Mars M
    Равиль Зарипов (ZuBy) получил реакцию от Mars M в Количество видимых Items — ?   
    ModernLV.getVisibleCount
  6. Like
    Равиль Зарипов (ZuBy)
    Равиль Зарипов (ZuBy) отреагировална rareMax в Не запускается проект (FireDac + SQLite)   
    Один раз показываю.
    private FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink; //компонент, кинь на форму ........... Begin FDPhysSQLiteDriverLink1 := TFDPhysSQLiteDriverLink.Create(self); // либо создай в ранТайме FDPhysSQLiteDriverLink1.VendorLib := 'full path to you sqlite.dll'; // укажи путь к библиотеке  
  7. Like
    Равиль Зарипов (ZuBy)
    Равиль Зарипов (ZuBy) отреагировална Vitaldj в Не запускается проект (FireDac + SQLite)   
    Взять можно отсюда: http://www.sqlite.org/download.html
  8. Like
    Равиль Зарипов (ZuBy)
    Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в [Статья] Жизненный цикл объектов в Delphi. Часть 1. Windows, OSX. Что же использовать Destroy, Free, FreeAndNil или DisposeOf?   
    Если c - это объект и у него определен дефолтное свойство, то его нельзя передавать, как var параметр. Компилятор не соберет такой код.
  9. Like
    Rusland
    Равиль Зарипов (ZuBy) получил реакцию от Rusland в Конфликт Hint и BorderStyle   
    ну и кому хочется сделать Ballon, а не прямоугольник
    копируем в проект и открываем FMX.Controls.Win.pas Ctrl+F -> constructor TWindowsHint.Create(const AHandle: TWindowHandle); FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP or TTS_BALLOON, 0, 0, 300, 300, FNativeControlHandle, 0, hInstance, nil); TTS_BALLON - сделает закругленные подсказки со стрелкой сохраняем Готово!  
  10. Like
    Rusland
    Равиль Зарипов (ZuBy) получил реакцию от Rusland в Конфликт Hint и BorderStyle   
    я тут посидел немного, сделал костыль. особо не заморачивался
    копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);  
    procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!  
  11. Like
    krapotkin
    Равиль Зарипов (ZuBy) получил реакцию от krapotkin в Конфликт Hint и BorderStyle   
    я тут посидел немного, сделал костыль. особо не заморачивался
    копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);  
    procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!  
  12. Like
    krapotkin
    Равиль Зарипов (ZuBy) получил реакцию от krapotkin в Конфликт Hint и BorderStyle   
    ну и кому хочется сделать Ballon, а не прямоугольник
    копируем в проект и открываем FMX.Controls.Win.pas Ctrl+F -> constructor TWindowsHint.Create(const AHandle: TWindowHandle); FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP or TTS_BALLOON, 0, 0, 300, 300, FNativeControlHandle, 0, hInstance, nil); TTS_BALLON - сделает закругленные подсказки со стрелкой сохраняем Готово!  
  13. Like
    Zawuza
    Равиль Зарипов (ZuBy) получил реакцию от Zawuza в Количество видимых Items — ?   
    ModernLV.getVisibleCount
  14. Like
    MaratBest
    Равиль Зарипов (ZuBy) получил реакцию от MaratBest в Scanline и Draw под FMX   
    uses FMX.Utils; procedure TForm7.Button1Click(Sender: TObject); var gamecanvas: TBitmap; i, j: integer; bitData: TBitmapData; p: PAlphaColorArray; begin gamecanvas := TBitmap.Create(256, 256); try if gamecanvas.Map(TMapAccess.ReadWrite, bitData) then begin for i := 0 to 255 do begin p := bitData.GetScanline(i); for j := 0 to 255 do p[j] := TAlphaColorF.Create(random(255) / 255, random(255) / 255, random(255) / 255, 1).ToAlphaColor; end; gamecanvas.Unmap(bitData); self.Canvas.BeginScene(); self.Canvas.DrawBitmap(gamecanvas, gamecanvas.BoundsF, RectF(0, 0, 256, 256), 1); self.Canvas.EndScene; end; finally gamecanvas.Free; end; end;  
  15. Like
    Kitty
    Равиль Зарипов (ZuBy) получил реакцию от Kitty в Количество видимых Items — ?   
    ModernLV.getVisibleCount
  16. Like
    GASCHE
    Равиль Зарипов (ZuBy) получил реакцию от GASCHE в Конфликт Hint и BorderStyle   
    ну и кому хочется сделать Ballon, а не прямоугольник
    копируем в проект и открываем FMX.Controls.Win.pas Ctrl+F -> constructor TWindowsHint.Create(const AHandle: TWindowHandle); FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP or TTS_BALLOON, 0, 0, 300, 300, FNativeControlHandle, 0, hInstance, nil); TTS_BALLON - сделает закругленные подсказки со стрелкой сохраняем Готово!  
  17. Like
    GASCHE
    Равиль Зарипов (ZuBy) получил реакцию от GASCHE в Конфликт Hint и BorderStyle   
    я тут посидел немного, сделал костыль. особо не заморачивался
    копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);  
    procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!  
  18. Like
    egorea1999
    Равиль Зарипов (ZuBy) получил реакцию от egorea1999 в Конфликт Hint и BorderStyle   
    ну и кому хочется сделать Ballon, а не прямоугольник
    копируем в проект и открываем FMX.Controls.Win.pas Ctrl+F -> constructor TWindowsHint.Create(const AHandle: TWindowHandle); FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP or TTS_BALLOON, 0, 0, 300, 300, FNativeControlHandle, 0, hInstance, nil); TTS_BALLON - сделает закругленные подсказки со стрелкой сохраняем Готово!  
  19. Like
    Maximus
    Равиль Зарипов (ZuBy) получил реакцию от Maximus в Конфликт Hint и BorderStyle   
    ну и кому хочется сделать Ballon, а не прямоугольник
    копируем в проект и открываем FMX.Controls.Win.pas Ctrl+F -> constructor TWindowsHint.Create(const AHandle: TWindowHandle); FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP or TTS_BALLOON, 0, 0, 300, 300, FNativeControlHandle, 0, hInstance, nil); TTS_BALLON - сделает закругленные подсказки со стрелкой сохраняем Готово!  
  20. Like
    Maximus
    Равиль Зарипов (ZuBy) получил реакцию от Maximus в Конфликт Hint и BorderStyle   
    я тут посидел немного, сделал костыль. особо не заморачивался
    копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);  
    procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!  
  21. Like
    Равиль Зарипов (ZuBy)
    Равиль Зарипов (ZuBy) отреагировална AngryOwl в Конфликт Hint и BorderStyle   
    Ну вот! Я же говорил как-то - жаль нельзя поставить "Мне нравится" несколько раз!
    Кто-то тут плачется все время, "вдруг Delphi умрет" ... "Delphi уже мертв" ... "FMX не сегодня завтра умрет" ...
    Я программирую на Pascal с 91го года. Начинал c Turbo Pascal 5.0. И с тех пор мне пытаются втереть "погромизды" - что Pascal/Delphi давно умер ... Тоже самое касается среды RAD Studio.
    Так вот благодаря таким людям как Ярослав, Андрей, Равиль и многим многим другим, он не только не умер. Он еще и, в большинстве случаев!, даст форы многим другим языкам и IDE.
    Так-что еще раз спасибо за решение проблемы! (скажите мне - в каких средах или языках их (проблем) нет! ))))
  22. Like
    #WAMACO
    Равиль Зарипов (ZuBy) получил реакцию от #WAMACO в [Статья] Онлайн-сервисы в помощь разработчику по дизайну   
    Ссылка: http://blog.rzaripov.kz/2017/01/blog-post.html
    Автор: Зарипов Равиль @ZuBy
    Описание: Онлайн-сервисы в помощь разработчику по дизайну
     
     
  23. Like
    AngryOwl
    Равиль Зарипов (ZuBy) получил реакцию от AngryOwl в Конфликт Hint и BorderStyle   
    ну и кому хочется сделать Ballon, а не прямоугольник
    копируем в проект и открываем FMX.Controls.Win.pas Ctrl+F -> constructor TWindowsHint.Create(const AHandle: TWindowHandle); FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP or TTS_BALLOON, 0, 0, 300, 300, FNativeControlHandle, 0, hInstance, nil); TTS_BALLON - сделает закругленные подсказки со стрелкой сохраняем Готово!  
  24. Like
    AngryOwl
    Равиль Зарипов (ZuBy) получил реакцию от AngryOwl в Конфликт Hint и BorderStyle   
    я тут посидел немного, сделал костыль. особо не заморачивался
    копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);  
    procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!  
  25. Like
    Error
    Равиль Зарипов (ZuBy) получил реакцию от Error в Конфликт Hint и BorderStyle   
    я тут посидел немного, сделал костыль. особо не заморачивался
    копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);  
    procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!  
×
×
  • Создать...