лёля

спасибо

в 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 - не работает. Есть еще варианты?

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.