willi

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

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

  • Посещение

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

    3

willi стал победителем дня 22 июня

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

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

  • Звание
    Пользователь

Информация

  • Пол
    Мужчина
  • Город
    Санкт-Петербург

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

364 просмотра профиля
  1. Заменил одну кривую графика на функцию синуса: Код: вместо линейной функции точек: Lx:=-20; Ly:=0; for i :=0 to 300 do begin Larea.Curves.Last.Points.Add(TcvPoint.Create(i,Lx,Ly)); Lx:=Lx+2; Ly:=120+50*Sin(Lx*0.04); end; Видно, что для этой данной кривой выводятся не все значения точек, а только указанные...
  2. Видимо, пример слишком простой 🙄 -- Вы правы, между точками интерполяция идет прямыми линиями, но если задать в исходных Y=Func(X) синусоиду или случайный процесс - как назвать график, который получится в итоге - обычно называют "кривой"... Выводить в показ маркеров можно не все значения точек, а выборочно...
  3. Написал в XE10.1 простой модуль для вывода кривых на TImage в виде графика - есть возможность вывода столбцов для диаграмм, меток с надписями и прочей мелочи. В виде компонента не оформлял... Смысл: вводим массив точек - график сам подбирает область вывода чтобы влезли надписи и выводит с указанными параметрами и стилем кривые (имею в виду зависимости Y от X). Есть комментарии в коде - есть пример для тестов - см. проект https://github.com/willi-spb/arTrassing желательно тестирование, возможно я что-то упустил - сам модуль: https://github.com/willi-spb/arTrassing/blob/master/FMX.arCurveClasses.pas
  4. Работает - главное, не вызывать нигде LBM.Free;
  5. Ага! - оказалось, по умолчанию - при отключенных опциях - линии просто выключены - позабыл я еще попробовать Kind=Solid В общем - пока у меня локальный вывод: при рисовании ячеек в TGrid очень желательно выставлять полностью всё перед началом вывода на Canvas: включая также Padding=0.
  6. 2. В отношении разделительных линий: Я отключил прорисовку линий в Options TGrid - при этом прямоугольник заполняется полностью - границ нет, однако, в этом режиме (таблица без линий) есть другая особенность: любые команды типа Canvas.DrawRect Canvas.DrawLine Canvas.Draw... ничего на канву не выводят - т.е. границу так не нарисовать. Это - если кто-то столкнется со странностями при прорисовке каких-то контуров в ячейках... Vitaldj см. пункт 1 в моем первом сообщении этой темы
  7. procedure TForm18.Grid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates); /// var LB:TGraphicField; LBM:FMX.Graphics.TBitmap; begin if Column.Index=1 then begin try Canvas.BeginScene; CoLumn.Padding.Rect:=rectF(0,0,0,0); Canvas.Fill.Color:=TAlphaColorRec.Green; Canvas.FillRect(Bounds,0,0,[],1); Canvas.Stroke.Color:=TAlphaColorRec.red; Canvas.DrawRect(Bounds,0,0,[],1); if (Value.IsEmpty=false) and (Value.IsObject=true) then begin LB:=TGraphicField(Value.AsObject); LBM:=FMX.Graphics.TBitmap.Create; try LBM.Assign(LB); Canvas.DrawBitmap(LBM,RectF(0,0,LBM.Width,LBM.Height),Bounds,1); finally LBM.Free; end; end; finally Canvas.EndScene; end; end; end; Спасибо Сергею Рощину - получилось. Действительно, нужно обязательно указать тип поля ftGraphic в свойстве BlobType у полей таблицы TFDMemTable - Причем, мне пришлось заново перезацепить LiveBinding для таблицы и чуть подправить код события - см. выше -у меня в старом моем варианте для поля ftGraphic выдавалась AV на чтение потока (позже посмотрю - почему).
  8. А вот какой эффект получается при добавлении в событие: Padding=0 --> CoLumn.Padding.Rect:=rectF(0,0,0,0); Canvas.Fill.Color:=TAlphaColorRec.Green; Canvas.FillRect(Bounds,0,0,[],1); Canvas.Stroke.Color:=TAlphaColorRec.red; Canvas.DrawRect(Bounds,0,0,[],1); Как видно -- все равно остается некоторое пространство вокруг ячеек
  9. Вот пример с блобами - как видно есть по умолчанию отступ и не работает перерисовка по событию - OnDrawColumnCell - я привожу вариант этого обработчика как в ХЕ8 - но Value - в данном случае - это не объект - и видно только закрашенный прямоугольник... Вверху над таблицей я добавил TImageControl - у него при проходе по таблице поле отображается корректно (привязка LIveBinding) Min_test.zip (Кстати - если не использовать обработчик - выводятся пустые ячейки столбца с блобом)
  10. Спасибо за информацию - я скачал демку - но там особенность в том, что картинки хранятся в TImageList - а в качестве переменной для столбца TGrid - индекс этого списка,как я понял... --- меня же интересовала ситуация с Blob-картинками в полях - например, как в старых примерах с рыбками - в XE8 та же табличка у меня с Blob работала - я постараюсь сделать отдельный воспроизводимый пример...
  11. willi

    Особенности TGrid в Delphi 10.1 Berlin (XE10)

    При переходе на Delphi 10.1 Berlin (FMX) с XE8 возникает много "интересных" нюансов с TGrid: 1. У меня все(!) внутренние ячейки выводятся с отступом в 3px (я перерисовываю их в событии OnDrawColumnCell) от всех сторон - при этом внутри уже по умолчанию используется отсечка по области рисования (т.е. если задать большую область для, к примеру, FillRect - всё равно будет заполняться только с отступом 3px) - мое решение - локально создать var L_Rects:TClipRects; и var L_Bounds:TRectF; ---------> L_Bounds:=Bounds; L_Bounds.Inflate(3,3); // ! - компенсировать отступ SetLength(L_Rects,1); L_Rects[0]:=L_Bounds; /// - далее with aGrid do try Canvas.BeginScene(@L_Rects); // !! ..... рисуем на Canvas finally Canvas.EndScene; SetLength(L_Rects,0); end; 2. Из Published исчезло событие OnApplyStyleLookup - приходится вызывать его где-то при показе таблицы вручную... 3. Также исчезли события OnMouseUp и OnMousDown - похоже на прокол разработчиков - они есть в Public - их нужно прицеплять в коде выставляя их на свои методы формы (параметры методов такие же как и в XE8). 4. LiveBinding у меня не работает для полей с Blob - картинками - при вызове OnDrawColumnCell - для такого вида привязки параметр const Value: TValue или пустой, или (в зависимости от стиля столбца) содержит строку "(Object)" - как показать в таблице blob-поле - картинку в XE10 с помощью Livebinding я так и не понял... 5. Непонятно зачем нужно событие OnDrawColumnBackground - по-моему, оно никогда не срабатывает - совместимость со старыми версиями? ____________ Напишите, если кто-нибудь сталкивался с этими моментами и нашел какой-то другой ответ - хотелось бы использовать LiveBinding как в XE8 и ранних версиях...
  12. willi

    GlowEffect на кнопке

    учти тот момент, что эффекты и анимация одновременно для одного объекта не работают (в XE8)
  13. willi

    Свой редактор стилей.

    Вот исходники под XE8 - хотя, там позориться больше - замысел был, как часто бывает, хороший, но поскольку этот проект не оплачивается, пришлось отложить пока... fmx_decoder.zip
  14. willi

    Свой редактор стилей.

    Еще можно, просматривать выбранный элемент в виде xml и править его вручную (немного проще получается, чем лазить по всему файлу стиля)