Mit Firemonkey Bild aus Ressource laden

[Union]

Wenn man keinen doppelten Source mag:

Delphi-Quellcode:

Procedure TMyForm.LoadBild(FImage:TImage;ResName:String);
var
  RS : TResourceStream;
  Factor : single;
  Resolution : string;
begin
  FImage.MultiResBitmap.Clear;

  if GlobalScale < 2.0 then
  begin
    Factor := 1.0;
    Resolution := 'Low';
  else
  begin
    Factor := 2.0;
    Resolution := 'High';
  end;

  RS := TResourceStream.Create(HInstance,ResName+Resolution,RT_RCDATA);
  FImage.MultiResBitmap.LoadItemFromStream(RS, Factor);

  FreeAndNil(RS);
end;

[Haus117]

Im Procedurennamen hab ich mal den Punkt entfernt weil er mir das sonst als rot anzeigt. Oder hatte der Punkt nen bestimmten Grund?
DIe rotmarkierten Sachen zeigt er mir als Fehler an. Was mache ich falsch?
Und einfach FImage durch Image1 ersetzen funktioniert auch nicht...

[Union]

Die Prozedur war als Methode eines TMyForm-Objekts deklariert. Wenn Dein Formularobjekt anders heißt, musst Du das anpassen und im Objekt ebenfalls deklarieren. GlobalScale ist eine gobale Variable, die mußt Du ebenfalls vorher deklarieren und füllen.

[Mavarik]

Bzw.

Delphi-Quellcode:

Function GlobalScale:Single;
var
 ScreenSrv: IFMXScreenService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSrv)) then
      Result := ScreenSrv.GetScreenScale
    else
      Result:= 1.0;
end;

[hsg]

... und ein 'end' vor dem rot unterstrichendem 'else' würde einen weiteren Fehler beseitigen.

[Mavarik]

Zitat von hsg:

... und ein 'end' vor dem rot unterstrichendem 'else' würde einen weiteren Fehler beseitigen.

Ich war's nicht...

[Sir Rufo]

Wenn du dir CnWizards installierst, dann würde dir so ein Fehler sofort auffallen. (Achte mal auf die Linien zwischen dem begin und end )
CnPack_Demo.PNG