Skip to content

Commit

Permalink
Update UI
Browse files Browse the repository at this point in the history
  • Loading branch information
rareMaxim committed Apr 14, 2019
1 parent 5326744 commit b711513
Show file tree
Hide file tree
Showing 3 changed files with 24 additions and 32 deletions.
18 changes: 3 additions & 15 deletions DAW.Controller.pas
Expand Up @@ -10,22 +10,14 @@ interface
Graphics,
ImgList,
Dialogs,
{$IFDEF NEW_UI}
DAW.View.New,
{$ELSE}
DAW.ViewADB,
{$ENDIF}
DAW.View.Main,
Classes;

type
TDAWController = class(TInterfacedObject)
private
FMenuItem: TMenuItem;
{$IFDEF NEW_UI}
FDialog: TViewAdbDialogNew;
{$ELSE}
FDialog: TViewAdbDialog;
{$ENDIF}
FDialog: TForm2;
FIcon: TIcon;
procedure HandleClickDelphinus(Sender: TObject);
procedure InstallMenu();
Expand Down Expand Up @@ -65,11 +57,7 @@ constructor TDAWController.Create;
LBitmap.Free;
end;
InstallMenu();
{$IFDEF NEW_UI}
FDialog := TViewAdbDialogNew.Create(nil);
{$ELSE}
FDialog := TViewAdbDialog.Create(nil);
{$ENDIF}
FDialog := TForm2.Create(nil);
end;

destructor TDAWController.Destroy;
Expand Down
7 changes: 3 additions & 4 deletions DelphiAdbWifi.dpk
Expand Up @@ -36,15 +36,14 @@ requires

contains
DAW.Controller in 'DAW.Controller.pas',
DAW.ViewADB in 'DAW.ViewADB.pas' {ViewAdbDialog},
DAW.Main in 'DAW.Main.pas',
DAW.Tools in 'DAW.Tools.pas',
DAW.Model.Device in 'DAW.Model.Device.pas',
DAW.Utils.DosCMD in 'DAW.Utils.DosCMD.pas',
DAW.Adb in 'DAW.Adb.pas',
DAW.Adb.Parser in 'DAW.Adb.Parser.pas',
androidwifiadb in 'androidwifiadb.pas',
DAW.View.New in 'DAW.View.New.pas' {ViewAdbDialogNew};
DAW.View.DeviceEdit in 'DAW.View.DeviceEdit.pas' {ViewDeviceEdit},
DAW.View.Main in 'DAW.View.Main.pas' {Form2},
DAW.Model.Device.New in 'DAW.Model.Device.New.pas';

end.

Expand Down
31 changes: 18 additions & 13 deletions DelphiAdbWifi.dproj
Expand Up @@ -42,7 +42,7 @@
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_NameSpace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;Winapi;System.Win;$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace)</DCC_NameSpace>
<DCC_NameSpace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;Winapi;System.Win;$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace);$(DCC_NameSpace)</DCC_NameSpace>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_UnitSearchPath>..;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
Expand Down Expand Up @@ -101,21 +101,20 @@
<DCCReference Include="DesignIDE.dcp"/>
<DCCReference Include="fmx.dcp"/>
<DCCReference Include="DAW.Controller.pas"/>
<DCCReference Include="DAW.ViewADB.pas">
<Form>ViewAdbDialog</Form>
<FormType>fmx</FormType>
</DCCReference>
<DCCReference Include="DAW.Main.pas"/>
<DCCReference Include="DAW.Tools.pas"/>
<DCCReference Include="DAW.Model.Device.pas"/>
<DCCReference Include="DAW.Utils.DosCMD.pas"/>
<DCCReference Include="DAW.Adb.pas"/>
<DCCReference Include="DAW.Adb.Parser.pas"/>
<DCCReference Include="androidwifiadb.pas"/>
<DCCReference Include="DAW.View.New.pas">
<Form>ViewAdbDialogNew</Form>
<DCCReference Include="DAW.View.DeviceEdit.pas">
<Form>ViewDeviceEdit</Form>
<FormType>fmx</FormType>
</DCCReference>
<DCCReference Include="DAW.View.Main.pas">
<Form>Form2</Form>
<FormType>fmx</FormType>
</DCCReference>
<DCCReference Include="DAW.Model.Device.New.pas"/>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
Expand Down Expand Up @@ -175,13 +174,19 @@
</Parameters>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="$(BDS)\Redist\osx64\libcgsqlite3.dylib" Class="DependencyModule">
<Platform Name="OSX64">
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
<Platform Name="OSX32">
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
<Platform Name="OSX32">
<DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\DelphiAdbWifi.rsm" Configuration="Debug" Class="DebugSymbols">
<Platform Name="Win32">
<RemoteName>DelphiAdbWifi.rsm</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="$(BDS)\Redist\osx64\libcgsqlite3.dylib" Class="DependencyModule">
<Platform Name="OSX64">
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
Expand Down

0 comments on commit b711513

Please sign in to comment.