лёля

 Image3.Position.X:=X+Image1.Position.X-5;
  Image3.Position.Y:=Y+Image1.Position.Y-Image3.Height+5;

это ширина пера?

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

Все разобралась простонужно было закрыть редактор оно появилось в программе

Нашла коечто любопытное вот здесь 

http://fire-monkey.ru/topic/1560-com-порт-firemonkey/

но возможно понадобяться  еще какакя-то помощь

ладно все спасибо 

Возможно по индесу из TImageList брать ?

Дело в том что мне нужно чтобы они были внутри одного exe файла

В с++ есть using USBDevice .  Есть чтонибуть на замену fire-monkey?

TImageList.BitmapItemByName(...) - сюда индекс картинки писать? и ниполучаеться как битмапы в TImageList храняться? возможно внрнутьих обратно в пнг

У меня с иностраным слабовато

Удалось изменить восех строчках. Только проблема  в иде видно, а в готовой программе этого нет. Как быть?

а как MetropolisUIListBoxItem поймет что  он должен именноиз этого  StyleBook взять стиль

Пыталась через bind привязать  StyleBook нечего не вышло

Да но есть еще поле текст оно зачем если его измнение ни к чему не ведет?

Превый item нормально а вот MetropolisUIListBoxItem ведет себя несовсем корректно также не показыает поле текст тест который в поле  MetropolisUIListBoxItem.text

Хотелосьбы

Для первой строчки стиль [fsBold,fsItalic] шрифт Swis721 BT размер 20

Для второй  стиль []    шрифт  Castellar  размер 12

List box.7z

 если ListBox это так просто то помогите

Да, нужно будет и литературку почитать и пример исправить, также хотелось бы надеяться  на помошь от форума. Я же могу на это расчитывать?

Checking project dependencies...
Compiling Project1.dproj (Debug, Win32)
dcc32 command line for "Project1.dpr"
  c:\program files (x86)\embarcadero\studio\20.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
  Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG 
  -E.\Win32\Debug -I"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";
  "C:\Users\Виталий\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -LEC:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp -NU.\Win32\Debug -NSWinapi;
  System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap; -O"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win32\release";"C:\Users\Виталий\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files 
  (x86)\embarcadero\studio\20.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -R"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";"C:\Users\Виталий\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files 
  (x86)\embarcadero\studio\20.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -U"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";
  "C:\Users\Виталий\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" -V -VN 
  -NBC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\20.0\hpp\Win32 -NO.\Win32\Debug  
  Project1.dpr   
[dcc32 Error] Unit1.pas(41): E2003 Undeclared identifier: 'PTypeInfo'
[dcc32 Error] Unit1.pas(43): E2007 Constant or type identifier expected
[dcc32 Error] Unit1.pas(50): E2003 Undeclared identifier: 'GetTypeData'
[dcc32 Error] Unit1.pas(50): E2017 Pointer type required
[dcc32 Error] Unit1.pas(51): E2003 Undeclared identifier: 'otUByte'
[dcc32 Error] Unit1.pas(53): E2003 Undeclared identifier: 'otSWord'
[dcc32 Error] Unit1.pas(53): E2030 Duplicate case label
[dcc32 Error] Unit1.pas(55): E2003 Undeclared identifier: 'otSLong'
[dcc32 Error] Unit1.pas(55): E2030 Duplicate case label
[dcc32 Error] Unit1.pas(63): E2003 Undeclared identifier: 'GetTypeData'
[dcc32 Error] Unit1.pas(63): E2017 Pointer type required
[dcc32 Error] Unit1.pas(63): E2017 Pointer type required
[dcc32 Error] Unit1.pas(71): E2003 Undeclared identifier: 'GetEnumName'
[dcc32 Warning] Unit1.pas(71): W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
[dcc32 Error] Unit1.pas(92): E2003 Undeclared identifier: 'TSMBios'
[dcc32 Error] Unit1.pas(93): E2003 Undeclared identifier: 'TBIOSLanguageInformation'
[dcc32 Error] Unit1.pas(96): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(102): E2029 'THEN' expected but identifier 'HasBIOSLanguageInfo' found
[dcc32 Error] Unit1.pas(104): E2008 Incompatible types
[dcc32 Error] Unit1.pas(106): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(107): E2029 ')' expected but identifier 'RAWBIOSLanguageInformation' found
[dcc32 Error] Unit1.pas(107): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(107): E2029 'END' expected but ')' found
[dcc32 Error] Unit1.pas(111): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(111): E2029 'THEN' expected but identifier 'RAWBIOSLanguageInformation' found
[dcc32 Error] Unit1.pas(115): E2029 'DO' expected but identifier 'RAWBIOSLanguageInformation' found
[dcc32 Error] Unit1.pas(120): E2125 EXCEPT or FINALLY expected
[dcc32 Error] Unit1.pas(125): E2029 Declaration expected but 'FINALLY' found
[dcc32 Error] Unit1.pas(127): E2029 '.' expected but ';' found
[dcc32 Warning] Unit1.pas(128): W1011 Text after final 'END.' - ignored by compiler
[dcc32 Fatal Error] Project1.dpr(6): F2063 Could not compile used unit 'Unit1.pas'
Failed
Elapsed time: 00:00:01.9

Нужно в   List box у  MetropolisUIListBoxItem но сделать разный текст сверху один снизу другой.

2 часа назад, OnePeople сказал:

По быстрому)

Paint.rar 62 \u043a\u0411 · 2 downloads

О, примерчик сейчас гляну.

кое-что удалось исправить но не рисует

unit Canvas;

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)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Single);
    procedure Button1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 D,D1,X,X1,Y,Y1:integer;

  PA:TPathData;
  p1,p2,p3,p4:TPointF;
implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
if D1=1 then
begin
D1:=0;
label5.Text:=D1.ToString();
Image2.Visible:=false;
end
else
begin
D1:=1;
label5.Text:=D1.ToString();
end;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

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

end;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Pa:=TPathData.Create;
  p1:=PointF(strtoint(Label1.Text),strtoint(Label2.Text));
  p2:=PointF(strtoint(Label3.Text),strtoint(Label4.Text));
  Pa.MoveTo(p2);
  Pa.LineTo(p2);
   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;
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
Label3.Text:=Image2.Position.X.ToString;
Label4.Text:=Image2.Position.Y.ToString;
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
Label1.Text:=Image2.Position.X.ToString;
Label2.Text:=Image2.Position.Y.ToString;

end;

end.

а как сделатьтогда чтобы за мышкой полоса тянулась?

Тут код получения параметров из биоса.

BiosTest.rar

получаеться у меня согласно этому 

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

 p1:=PointF(Image1.Position.X,Image1.Position.Y);  p2:=PointF(Image1.Position.X,Image1.Position.Y);

Image1->Path->MoveTo(TPointF(Image2.Position.X,Image2.Position.Y)); Image1->Path->LineTo(TPointF(Image2.Position.X, Image2.Position.Y));