лёля
Пользователи-
Постов
37 -
Зарегистрирован
-
Посещение
Весь контент лёля
-
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 но сделать разный текст сверху один снизу другой.
-
кое-что удалось исправить но не рисует 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));