Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Ad Blocking Gedetecteerd
Vriendelijk verzoek om te overwegen Ad Blocking uit te zetten voor onze website.
We zijn afhankelijk van inkomen uit Advertenties om de website te kunnen draaien.
Je kunt ons ook op andere manieren ondersteunen (zie Ondersteun ons).
Lazarus Pascal - macOS - Laat de FullScreen knop (groen) het window maximaliseren (dus niet fullscreen)
Delphi, Lazarus, Free Pascal
(@hans)
Famed Member Admin
Deelgenomen: 11 jaar geleden
Berichten: 2654
Topic starter
13 april 2021 12:32
Een oplossing die ik bedacht heb op basis van een interessante vraag in het Lazarus forum:
In macOS zal het groene knopje (elke venster heeft die, links bovenin) een window schermvullend (fullscreen) maken en niet maximaliseren zoals we dat op andere besturingssystemen zien.
Daarom heb ik twee functies gemaakt die dit gedraag uitzetten (normaal maximaliseren) of weer aanzet (fullscreen).
procedure DisableFullscreenButton(theForm: TForm);
var
theWindow: NSWindow;
begin
theWindow := NSView(theForm.Handle).window; // Form1 is the name of the main form - adjust as necessary
theWindow.setCollectionBehavior(theWindow.collectionBehavior or NSWindowCollectionBehaviorFullScreenAuxiliary);
end;
procedure EnableFullscreenButton(theForm: TForm);
var
theWindow: NSWindow;
begin
theWindow := NSView(theForm.Handle).window; // Form1 is the name of the main form - adjust as necessary
theWindow.setCollectionBehavior(theWindow.collectionBehavior and NSWindowCollectionBehaviorFullScreenPrimary);
end;
Ad Blocking Gedetecteerd
Vriendelijk verzoek om te overwegen Ad Blocking uit te zetten voor onze website.
We zijn afhankelijk van inkomen uit Advertenties om de website te kunnen draaien.
Je kunt ons ook op andere manieren ondersteunen (zie Ondersteun ons).