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

dnekrasov

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

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

  • Посещение

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

    37

Весь контент dnekrasov

  1. Просто надо привыкнуть к новому подходу к некоторым вещам. Зато возможностей побольше, чем в VCL. Да и удобнее, когда привыкнешь. ИМХО
  2. Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.Style]; Label1.TextSettings.Font.Style := Label1.TextSettings.Font.Style + [TFontStyle.fsUnderline]
  3. StyledSettings показывает какие настройки шрифта брать из стиля. Те, что не указаны в них берутся из TextSettings
  4. немного ошибся Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.Style]
  5. HitTest := True; Label1.StyledSetting := Label1.StyledSetting - [TStyledSetting.Style]
  6. Если в качестве курсора (картинки) карандаша, то ещё следует изучить как преобразовывать координаты: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if D=1 then Image2.Position.Point := Image1.LocalToAbsolute(PointF(X, Y)); end; Да и HitTest у Image2 следует поставить False, а клик отслеживать на Image1. Да и когда D=1 и курсор находится внутри Image1 курсор мышки лучше сделать невидимым. Да и вообще - рисовать удобнее на PaintBox
  7. А этот код и не должен ничего рисовать. Почитайте про TPathData и его методы (хотя бы MoveTo и LineTo) У одного Canvas должно быть одинаковое количество BeginScene и EndScene - иначе получите Exception. В Image1MouseMove вообще не понятно что Вы хотели сделать.
  8. Недавно решил одну проблемку, которая долго мучала - решил поделиться, может кому ещё пригодится. При работе с двумя мониторами или с монитором и проектором часто возникает необходимость запретить окну "исчезать" при наведении курсора мыши на миниатюру другого приложения в панели задач. Чтобы это сделать надо: uses ... Winapi.DwmApi ... TMainForm = class(TForm) ... protected procedure CreateHandle; override; ... end; ... procedure TMainForm.CreateHandle; var Val, Res: Integer; begin inherited CreateHandle; Val := 1; Res := DwmSetWindowAttribute(FormToHWND(Self), DWMWA_EXCLUDED_FROM_PEEK, @Val, SizeOf(Val)); {$IFDEF DEBUG} if Res <> S_OK then ShowMessage(SysErrorMessage(Res)); {$ENDIF} end; Спасибо @Alex7wrt за наводку
  9. Правая кнопка мыши на лейбле - и один из этих пунктов:
  10. TRectangle для цвета, TBevelEffect для утопленности и TText для текста. А можно сделать кастомный стиль для TLabel по тому же сценарию. Родителем. TText позволяет просто вывести текст, а TLabel, например, позволяет вывести текст с определённым стилем, указав StyleLookup.
  11. Хм. Сорри. Проблема есть. Но только на дефолтном стиле. Если загрузить какой-то стиль - проблема исчезает. Так что проблема не в FMX а в дефолтном стиле.
  12. dnekrasov

    Gif File

    Давайте TInternalColor = packed record case Integer of 0: {$IFDEF BIGENDIAN} (A, R, G, B: System.Byte); {$ELSE} (B, G, R, A: System.Byte); {$ENDIF} 1: (Color: TAlphaColor); end; ... TGifRGB = packed record {$IFDEF BIGENDIAN} B, G, R: Byte; {$ELSE} R, G, B: Byte; {$ENDIF} end; ... procedure ReadPalette(Stream: TStream; Size: Integer; var APalette: TPalette); var RGBEntry: TGifRGB; I: Integer; c: TInternalColor; begin SetLength(APalette, Size); for I := 0 To Size - 1 Do begin Stream.Read(RGBEntry, SizeOf(RGBEntry)); with APalette[I] do begin R := RGBEntry.R; G := RGBEntry.G; B := RGBEntry.B; A := $FF; end; end; end; Попробуйте заменить объявления типов и чтение палитры (то, что Вы меняли). На винде в таком виде работает правильно. Если на Android тоже будет всё ок, то можно считать, что теперь всё в порядке.
  13. dnekrasov

    Gif File

    А Вы под Windows проверили? Теперь у меня (с Вашим исходником) цвета R и B поменялись. Да и вообще, что-то мне совсем непонятна такая запись B := RGBEntry.R or (RGBEntry.R shl 8); т.е. тут байту присваивается двухбайтное значение. Да и проблема, как мне кажется, здесь в том, что при объявлении TInternalColor учитывается порядок байт (Big-Endian или нет), а вот в объявлении TGifRGB - нет.
  14. dnekrasov

    Gif File

    А скиньте Gif-ку. Попробую посмотреть
  15. dnekrasov

    Gif File

    Точно не скажу, но мне кажется, что проблема в объявлении TInternalColor. По идее, должно быть так: TInternalColor = packed record case Integer of 0: ( {$IFDEF BIGENDIAN} A, R, G, B: Byte; {$ELSE} B, G, R, A: Byte; {$ENDIF} ); 1: (Color: TAlphaColor; ); end; Возможности проверить нет, но попробуйте изменить - должно помочь.
  16. После присвоения Parent Вашему фрейму сделайте Application.ProcessMessages. Тогда MakeScreenshot должен заработать без проблем.
  17. Компрессия тут ни при чём. А виновато тут масштабирование. На Windows, я так понимаю, у Вас Scale = 1, а вот на Android - зависит от устройства.
  18. Без исходников сложно что-то сказать. У меня больше тысячи небольших изображений в скролл динамически подгружаются - и никаких проблем не возникает. Так что проблема не в скролле а в Вашем механизме загрузки.
  19. Есть. У любого TStyleObject есть свойство SourceLookup в котором указывается название стиля в котором хранится изображение. Ищем его в дереве стилей и уже с ним работаем как с обычным TImage (находим свойство MultyResBitmap и с его помощью сохраняем или загружаем изображение). А с помощью свойства SourceLink (ActiveLink, HotLink и т.д.) указываем область изображения из которой берётся вид контрола для нужного состояния. Вы вполне можете добавить свой стиль (TImage), чтобы не редактировать исходное изображение, и использовать его в качестве SourceLookup для своих стилей
×
×
  • Создать...