Pagina1 van 1
Forum

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.




Deel:
Meldingen
Alles wissen

Lazarus Pascal - macOS - Laat de FullScreen knop (groen) het window maximaliseren (dus niet fullscreen)


 Hans
(@hans)
Noble Member Admin
Deelgenomen: 8 jaar geleden
Berichten: 2018
Topic starter  

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;

BeantwoordenCiteren
Onderwerp trefwoorden

Bevalt je wat je hier ziet, en wil je graag helpen? 

Uiteraard is de beste manier van helpen, door anderen hier te helpen met hun vragen. Maar je kunt ons ook op andere manieren helpen:

- Shop bijvoorbeeld bij Amazon, het kost je niks extra, maar het kan zijn dat wij een kleine commissie ontvangen,
- stuur me een koffie via PayPal ($5, $10, $20, or zelf kiezen),
- je kunt ook een Patreon worden,
- of BitCoin (BTC), of BitCoinCash (BCH) doneren.

Deel: