#3 (RAD STUDIO) In www.devgear.co.kr 2016.05.23
EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory : hskim@embarcadero.kr
3 EMBARCADERO TECHNOLOGIES! 1 - RAD, 2-3 - 4 -
3 EMBARCADERO TECHNOLOGIES -,
EMBARCADERO TECHNOLOGIES
6, ios( ),, OS X( ) FireUI :,
6 TToolbar : TLayout : TTabControl : Change Tab AcWon:.Align : Top/Bo=om/LeY/Right, Contents, Center,.StyleLookup :
6 EMBARCADERO TECHNOLOGIES TListBox, TListView,, TListBox ( > ) TListView ( > ) ItemAppearance :
6 EMBARCADERO TECHNOLOGIES, (,, ), (, LE), (REST, DataSnap ) / DB(IBLite, SQLite) API
#1 (1/3), ( ). 1, TForm TToolbar TBu=on Align Bo=om Text TImage Align Client TCameraComponent / TToolbar TLabel Align Contents Text TextSeangs.Hor zalign Center TSwitch1 Align Right
#1 (2/3) 2, // Switch1.OnSwitch procedure TForm1.Switch1Switch(Sender: TObject); begin if Switch1.IsChecked then CameraComponent1.TorchMode := TTorchMode.ModeOn else CameraComponent1.TorchMode := TTorchMode.ModeOff; end; // BuBon1.OnClick procedure TForm1.Bu=on1Click(Sender: TObject); begin CameraComponent1.AcWve := not CameraComponent1.AcWve; end;
#1 (3/3) 2, // CameraComponent1.OnSampleBufferReady procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject; const ATime: TMediaTime); begin TThread.Synchronize(TThread.CurrentThread, GetImage); end; // private procedure GetImage; Ctrl + ShiR + C ( 23, ) procedure TForm1.GetImage; begin CameraComponent1.SampleBufferToBitmap(Image1.Bitmap, True); end;
#2 (1/6) 1, REST Debugger Tools > REST Debugger [Load Request] tech_devgear_jsondata.json [Send Request] Body JSON Root Element responsedata.feed.entries Tabular ( )
#2 (2/6) 2, Form1 TabControl1 Align Client TabControl1 TabItem1 TabItem2 (Add TTabItem) TabItem1 Toolbar1 ListView Align Client Toolbar1 Label1 Align Contents Text
#2 (3/6) 2, TabItem2 Toolbar1 WebBrowser1 Align Client Toolbar1 Label1 Align Contents Text Bu=on1 Align LeY StyleLookup backtoolbu=on Text
#2 (4/6) 3, REST Debugger [Copy Component] ( ) (Ctrl + V) ( ) ( 5 ) RESTRequest1 Execute
#2 (5/6) 4, View > LiveBindings Designer ( ) FDMemTable1 ListView * ßà Synch Title à Item.Text
#2 (6/6) 5, ( ) EMBARCADERO TECHNOLOGIES procedure TForm1.FormCreate(Sender: TObject); begin RESTRequest1.Execute; TabControl1.TabPosiWon := TTabPosiWon.None; TabControl1.TabIndex := 0; End; procedure TForm1.Bu=on1Click(Sender: TObject); begin TabControl1.TabIndex := 0; End; procedure TForm1.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); var Link: string; begin Link := FDMemTable1.FieldByName('link').AsString; WebBrowser1.Navigate(Link); TabControl1.TabIndex := 1; end;
EMBARCADERO TECHNOLOGIES
h=p://devgear.co.kr/edu, 9 (2 ) (4 ) (2 ) & ios DB : 2 (2 ), (3 ) ( 1 )! UI/UX, Push (2 ) 20 (1 )
(1), h=p://tech.devgear.co.kr/421276,.,., 21.
(2) /ios with 1, 2,, h=p://tech.devgear.co.kr/406570 22
: h=p://devgear.co.kr/ : h=p://tech.devgear.co.kr/ : h=p://docwiki.embarcadero.com : h=p://docwiki.embarcadero.com/radstudio/berlin/en/ Mobile_Tutorials:_Mobile_ApplicaWon_Development_(iOS_and_Android) ( ) : h=p://www.delmadang.com/ ( ) : h=p://borlandforum.com : h=p://cafa.naver.com/delphifmx : h=p://blog.hjf.pe.kr/ 23
QuesYons? EMBARCADERO TECHNOLOGIES
. h=p://tech.devgear.co.kr h=p://www.devgear.co.kr h=p://www.facebook.com/devgear