Ich besitze ein LG-E610 Optimus L5 und wollte mir dafür eine eigene Ansicht im Delphi XE7 angelegt, so wie es hier
http://docwiki.embarcadero.com/RADStudio/XE7/de/Hinzufügen_einer_angepassten_Ansicht_zur_Ansichtsauswahl#Anpassen_des_Formulars_f.C3.BCr_eine_neue_Ansicht
beschrieben wird.
Mein bpl- Quellcode dazu
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| unit main;
interface
implementation
uses
system.Devices, system.Types, system.SysUtils;
const
ViewName = 'LGE610';
initialization
TDeviceinfo.AddDevice(TDeviceinfo.TDeviceClass.Phone, ViewName,
TSize.Create(480, 320), TSize.Create(480, 320), TSize.Create(480, 320), TSize.Create(480, 320), TOSVersion.TPlatform.pfAndroid, 144);
finalization
TDeviceinfo.RemoveDevice(ViewName);
end. |
und der entsprechende Eintrag in der MobileDevice.xml
XML-Daten
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| <MobileDevice>
<Name>LGE610</Name>
<Order>501</Order>
<Displayname>LGE610</Displayname>
<DevicePlatform>3</DevicePlatform>
<FormFactor>2</FormFactor>
<Portrait Enabled="True" Width="320" Height="480" Top="0" Left="0" StatusbarHeight="25" StatusBarPos="0" Artwork="" />
<UpsideDown Enabled="True" Width="320" Height="480" Top="0" Left="0" StatusbarHeight="25" StatusBarPos="0" Artwork="" />
<LandscapeLeft Enabled="True" Width="480" Height="320" Top="0" Left="0" StatusbarHeight="25" StatusBarPos="0" Artwork="" />
<LandscapeRight Enabled="True" Width="480" Height="320" Top="0" Left="0" StatusbarHeight="25" StatusBarPos="0" Artwork="" />
</MobileDevice> |
das Einbinden in die IDE bzw. das Projekt funktioniert dann auch ohne Probleme.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| ....
implementation
{$R *.fmx}
{$R *.LGE610.fmx }
... |
Aber wenn ich das Programm auf meinem Smartphone teste, dann übernimmt er die Masteransicht und nicht die vorgesehene eigene. Und da die Desktopansicht natürlich deutlich breiter und höher ist, sieht man nur den kleinen Bildausschnitt von oben links.
Ideen was ich falsch mache?
mfg. Joel
