Перейти к содержанию
Fire Monkey от А до Я

лёля

Пользователи
  • Постов

    37
  • Зарегистрирован

  • Посещение

Весь контент лёля

  1. Image3.Position.X:=X+Image1.Position.X-5; Image3.Position.Y:=Y+Image1.Position.Y-Image3.Height+5; это ширина пера?
  2. лёля

    Слетают стили

    Добрый вечер! Ставлю стили List box у MetropolisUIListBoxItem в иде видно, а в програме не отображаеться.
  3. Все разобралась простонужно было закрыть редактор оно появилось в программе
  4. Нашла коечто любопытное вот здесь http://fire-monkey.ru/topic/1560-com-порт-firemonkey/ но возможно понадобяться еще какакя-то помощь
  5. лёля

    TImageList  в  TImage

    ладно все спасибо
  6. лёля

    TImageList  в  TImage

    Возможно по индесу из TImageList брать ?
  7. лёля

    TImageList  в  TImage

    Дело в том что мне нужно чтобы они были внутри одного exe файла
  8. В с++ есть using USBDevice . Есть чтонибуть на замену fire-monkey?
  9. лёля

    TImageList  в  TImage

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

    TImageList  в  TImage

    У меня с иностраным слабовато
  11. Удалось изменить восех строчках. Только проблема в иде видно, а в готовой программе этого нет. Как быть?
  12. а как MetropolisUIListBoxItem поймет что он должен именноиз этого StyleBook взять стиль
  13. Пыталась через bind привязать StyleBook нечего не вышло
  14. Да но есть еще поле текст оно зачем если его измнение ни к чему не ведет?
  15. Превый item нормально а вот MetropolisUIListBoxItem ведет себя несовсем корректно также не показыает поле текст тест который в поле MetropolisUIListBoxItem.text
  16. Хотелосьбы Для первой строчки стиль [fsBold,fsItalic] шрифт Swis721 BT размер 20 Для второй стиль [] шрифт Castellar размер 12 List box.7z
  17. Да, нужно будет и литературку почитать и пример исправить, также хотелось бы надеяться на помошь от форума. Я же могу на это расчитывать?
  18. 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
  19. Нужно в List box у MetropolisUIListBoxItem но сделать разный текст сверху один снизу другой.
  20. О, примерчик сейчас гляну.
  21. кое-что удалось исправить но не рисует 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.
  22. а как сделатьтогда чтобы за мышкой полоса тянулась?
  23. Тут код получения параметров из биоса. BiosTest.rar
  24. получаеться у меня согласно этому 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));
×
×
  • Создать...