Forum: Programmieren allgemein
by Mavarik,
18. Jan 2014
LOL
hmm wer hat's geschrieben?
Forum: Programmieren allgemein
by Mavarik,
17. Jan 2014
Ich war's nicht...:stupid:
Forum: Programmieren allgemein
by Mavarik,
17. Jan 2014
Bzw.
Function GlobalScale:Single;
var
ScreenSrv: IFMXScreenService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSrv)) then
Result := ScreenSrv.GetScreenScale
else
Result:= 1.0;
Forum: Programmieren allgemein
by Mavarik,
16. Jan 2014
Fehler in der RC Datei?
Ich mache es so...
GlobalScale ist der Bildschirmfaktor Retina usw.
Procedure TMyForm.LoadBild(FImage:TImage;ResName:String);
var
RS : TResourceStream;
begin
FImage.MultiResBitmap.Clear;