m.medvedb

Доброго времени суток.

Линейный график. Допустим шкала значений по оси Y(Right) 0-1000 усл. ед. При прокрутке за приделы 0 или 1000 происходит продление шкалы в "+" или в "-". 

Установка приделов Max-Min 'скролу не помеха.

Как ограничить прокрутку по оси Y при скроле мышкой. 

Прога мониторит изменение тока и температуры, надоело смотреть все в таблицах. Собственно нужен пример на delphi FMX

Доброго времени суток. Пытаюсь сделать подобие Ribbona из стандартных компонентов.

Балуюсь с Tpanel  пока страшновато выходит.

Может кто-то пылся сделать подобное? Если да то поделитесь идеями.  

Спасибо! Буду внимательней!

Как программно изменить размер шрифта TCornerButton?

Пробовал так но почему-то не работает...

Font.size:=MyValue 

Благодарю за развернутый ответ!

Все разобрался. Отличная функция!

Как сделать компонент с нуля нет проблем...... Вопрос, как сделать копию компонента и его обработчиков? Точнее FMX позволяет сделать составной компонент..... как клонировать родителя и все связанные с ним компоненты. 

Ну прям нет слов. Спасибо огромное за ваш труд!

Все работает как часики!

У меня есть еще к вам вопрос: Есть форма на ней множества TCornerButton, используются как красивые дисплеи для отображения данных. Вопрос как при передвижение компонентов запретить заход одного за другой? Их около 30ти в каждом проверять каждый не вариант.

Движение компонентов произвожу по вашему примеру: Как сделать перемещение контрола мышкой/пальцем?

Еще добавил в код на событие OnMouseMove проверку от захода компонента за форму.

  If DraggableImage.Position.X < 0 Then
     DraggableImage.Position.X := 0 Else
  If (DraggableImage.Position.X + DraggableImage.Width) > Form4.ClientWidth Then
     DraggableImage.Position.x := Form4.ClientWidth - DraggableImage.Width;
  If DraggableImage.Position.y < 0 Then
     DraggableImage.Position.y :=0;
  If (DraggableImage.Position.y + DraggableImage.Height) > Form4.ClientHeight Then
     DraggableImage.Position.y := Form4.ClientHeight - DraggableImage.Height;

Да и вот весь код!

procedure TForm4.DraggableImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
var
  MoveVector: TVector;
begin
  if FPressed then
  begin
    // Вычисляем локальное смещение относительно первоначальной позиции
    MoveVector := TVector.Create(X - FStartPos.X, Y - FStartPos.Y,0);

    // Вычисляем смещение в координатах формы, чтобы учесть изменение
    // координат при смещении родительских контролов
    MoveVector := DraggableImage.LocalToAbsoluteVector(MoveVector);
    if DraggableImage.ParentControl <> nil then
      MoveVector := DraggableImage.ParentControl.AbsoluteToLocalVector(MoveVector);
    // Перемещаем картинку на вычисленный вектор
    DraggableImage.Position.Point := DraggableImage.Position.Point + MoveVector.ToPointF;
  end;
end;

Заработало! Спасибо за помощь!

если добавить ось Z:=0

Обработчик грешит вот на эту строку

DraggableImage.Position.Point := DraggableImage.Position.Point + TPointF(MoveVector);

Если изменить код по вашему совету....то ругается на ту-же строку и в обработчике та-же ошибка

Отличный пример! Вопрос у меня XE5 и он требует ввести координату Z в функции

MoveVector := TVector.Create(X - FStartPos.X, Y - FStartPos.Y);