Mit Firemonkey Bild aus Ressource laden

[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

[Haus117]

OKay, das mit dem end hätte ich sehen müssen^^ aber der Wizard ist ne coole Idee.

also mein Formular-Objekt ist zB. mein Button oder der Name meiner Form?
denn Procedure Form1.LoadBild(FImage:TImage;ResName:String); scheint es noch nicht zu sein.

wenn ich die Funktion einfüge fehlt bestimmt noch ne Bibliothek oder Uni oder sowas? denn er unterstreicht mir wieder folgendes:

[Sir Rufo]

Dann geh mit dem Cursor in der IDE auf das rot unterstrichene und drücke ganz beherzt Shift+Ctrl+A.

Oder du benutzt die Online-Hilfe TPlatformServices, IFMXScreenService