Vzhled Formu pod Windows 10

[Viktor Marek]

Aplikace napsaná pod Windows 7 a následně spuštěná pod Windows 10 se chová zvláštně.
Form po spuštění zobrazí svislý posuvník.

Pod Windows 7 mám Top Buttonu 143 a pokud nechci aby se na Formu pod Windows 10 zobrazoval svislý posuvník musím nastavit Top Buttonu na 136 tedy o 7 méně

Pokud bych nechal Top Buttonu na 136 nebude problém se zobrazením pod Windows 10, ale pod Windows 7 to nevypadá hezky.

Zatím mne napadá zjistit pod jakou verzí Windows je aplikace spuštěna a v OnCreate Formu upravit Top Buttonu nebo zvětšit svislý rozměr Formu.

Existuje nějaké jiné řešení?
Pokud ne jak zjistím verzi OS Windows?

[Stanislav Hruška]

Nie je jednoduchšie ten ScrollBar vypnúť?
Pozerám, že vo W10 je vyšší TitleBar. Asi to bude tým. Tlačidlo sa vlastne dostáva už mimo formulára. Mal by si pracovať s ClientArea (ClientWidth, ClientHeight).
Zistenie OS Ti nepomôže, lebo užívateľ môže mať zmenený motív, alebo výšku TitleBar. Tú si osobne ja nastavujem v OS na čo najmenšiu.

[Viktor Marek]

>W10 je vyšší TitleBar
Přiznám se, že jsem toto uplně přehlédl.

Jak nastavím výšku TitleBar a jaká je výška TitleBar pod Windows 7?

[pepak]

>W10 je vyšší TitleBar
Přiznám se, že jsem toto uplně přehlédl.

Jak nastavím výšku TitleBar a jaká je výška TitleBar pod Windows 7?

TitleBar nemůžeš jen tak zvětšovat a zmenšovat. Zkontroluj si, jakou máš v jednotlivých OS ClientHeight, a řeš umístění komponent ne pomocí absolutních údajů (Top), ale relativně (např. položit na Panel s Align=alBottom, nebo klidně i Top, ale s Anchor=[akBottom, akLeft]).

[Stanislav Hruška]

Ale keď je daná výška formulára a zväčší sa výška záhlavia okna, tak sa zmenší výška klientskej oblasti. A už sa mu tam tlačidlo nezmestí. Podľa mojej úvahy.
Takže by si mal nastavovať výšku ClientHeight. Tým by to malo byť v poriadku.

[Ondřej Pokorný]

>W10 je vyšší TitleBar
Přiznám se, že jsem toto uplně přehlédl.

Jak nastavím výšku TitleBar a jaká je výška TitleBar pod Windows 7?

TitleBar nemůžeš jen tak zvětšovat a zmenšovat. Zkontroluj si, jakou máš v jednotlivých OS ClientHeight, a řeš umístění komponent ne pomocí absolutních údajů (Top), ale relativně (např. položit na Panel s Align=alBottom, nebo klidně i Top, ale s Anchor=[akBottom, akLeft]).

To ti ve všech situacích nepomůže. Delphi 7 mají bug, že berou Width/Height z DFM. Novější Delphi (neptejte se mi odkdy, ale mám dojem, že se to změnilo mezi 2007 a XE2) už berou ClientWidth/ClientHeight -> t.j. vnitřní rozměr je vždy stejný, ale venkovní se mění. Dříve to bylo naopak.

Takže řešení je si do programu zabudovat automatickou korekci velikosti formuláře. Z uživatelského PC vezmeš rozdíl Width-ClientWidth a porovnáš to s rozdílem ze svého PC (natvrdo definovaným) a rozměr po načtení formuláře z DFM upravíš.

Nebo aktualizuj Delphi nebo přejdi na Lazarus

[našinec]

V podstatě se obdobný problém zde řešil loni. http://forum.delphi.cz/index.php/topic,14794.msg88966.html#msg88966

[Peťo]

Pri objavovaní sa zbytočných scrollbarov v TForme v starších verziách Delphi, hlavne pri nastavení Widowsu na zväčšené fonty, sa mi osvedčilo nastaviť Form.AutoScroll na False. Delphi potom nielen nezobrazí scrollbary, ale aj prispôsobí veľkosť formu už pri jeho vytvorení.