лёля

спасибо

в TImageList есть картинки котрые может отобразить  TImage в зависимоти от ситуации необходимо братьтуили иную картинку в 

TImageList и вставлять  в TImage

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdTime1.Timeout:=8000;
 IdTime1.Port:=10060;
IdTime1.Host := 'ntp.ix.ru';

 IdTime1.Connect;
 if IdTime1.Connected then
 begin
    CurrTime := IdTime1.DateTime;
 IdTime1.Disconnect;
 IdTime1.Free;
 DecodeTime(CurrTime, HH, NN, SS, MS);
  label1.Text:=datetostr(CurrTime);
 end;

end;

end.

не работает выдает такую ошибку:

 как програмно изменть отображаемую из TImageList  в  TImage  картинку

Добрый день! Создала List box получается менять тест во всех строках MetropolisUIListBoxItem но невозможно изменить стили теста так чтобы в одной строке было текст в одном стиле а в другой в другом также не показываеться техт itema

посмотрела TPathData  Нашла вот что 

Path3D1->Path->Clear();
Path3D1->Path->MoveTo(TPointF(0,0));
Path3D1->Path->LineTo(TPointF(100, 200));
Path3D1->Path->ClosePath();

 непоняла почему

Path->MoveTo(TPointF(0,0))  TPointF х=0 у=0 а

Path->LineTo(TPointF(100, 200)); TPointF х=100 у=200 

Спасибо очень многие приемы корые были доступны для VLC недоступны в firemonkey

Все равно нечего не делает, но теперь не ругается по крайней мере. Если честно немного не поняла кода, если в старом коде было более менее понятно label1.Font.Style:= fsUnderline присваиваешь тексту  нижнюю линию то теперь не совсем понятно  как подчеркивание выражено в коде

скопировала вставила но подчеркивает красным

Создание ссылки из TLabel.

Приклике на label нечего не проиходит.

label1.Font.Style:= fsUnderline - не работает.  Есть еще варианты?

51 минуту назад, dnekrasov сказал:

А этот код и не должен ничего рисовать.

1. Почитайте про TPathData и его методы (хотя бы MoveTo и LineTo)
2. У одного Canvas должно быть одинаковое количество BeginScene и EndScene - иначе получите Exception.
3. В Image1MouseMove вообще не понятно что Вы хотели сделать.

 Image2 в качестве карандаша использовать.

Неполучеться осущетсвить что-то вроде карандаша чтобы рисовать на Image1 вот код

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    StyleBook1: TStyleBook;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    procedure Image2Click(Sender: TObject);
    procedure Image1Paint(Sender: TObject; Canvas: TCanvas;
      const ARect: TRectF);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Single);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const
 R=80;
var
  Form1: TForm1;
  D:integer;
  PA:TPathData;
  p1,p2,p3,p4:TPointF;
implementation

{$R *.fmx}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
if D=1 then
begin
  Image2.Position.X:=x;
  Image2.Position.Y:=y;

end;
end;

procedure TForm1.Image1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
if D=1 then
begin
 p1:=PointF(Image1.Position.X,Image1.Position.Y);

  Pa:=TPathData.Create;
  Pa.MoveTo(p1);
   Image2.Bitmap.Canvas.BeginScene;
  Image2.Bitmap.Canvas.Stroke.Color:=TAlphaColorRec.Green;
  Image2.Bitmap.Canvas.Stroke.Thickness:=1;//PenWidth;
  Image2.Bitmap.Canvas.DrawPath(Pa,1.0);
  Image2.Bitmap.Canvas.EndScene;
  Pa.Free;

  Image2.Bitmap.Canvas.EndScene;

Image1.Canvas.EndScene;
end;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
 if D=0 then
 begin

 D:=1;
 end
 else
 begin
  D:=0;
 end;

end;

end.