Problem mit Scrollbox - delphi 7

[js747a]

Hallo, hebe seit heute ein Problem mit der Scrollbox in Delphi 7

Alle Programme die ich mit Delphi 7 gemacht habe zeigen nur noch eine lere Scrollbox.
Auch ältere Programme.
PC mit Win 10

Ich habe mal 3 Bilder angehangen

Ohne Scrollbox.jpg - Altes Programm erstellt mit Delphi 7 - Keine Scrollbox zu sehen
Ohne Scrollbox2.jpg - Altes Programm erstellt mit Delphi 10 - zeigt die Scrollbox normal an.
Ohne Scrollbox3.jpg - Habe ein neues Program erstellt - Nur 1 Form mit Scrollbox drauf in Delphi 7 -
Keine Scrollbox zu sehen

Wenn ich die selben Programm auf meinem Laptop (Win 10) probiere ist alle OK:

Ist mein Win 10 vielleicht schuld daran ?

[Rolf Frei]

Dir ist schon klar, dass die Srollbar erst aktiv wird, wenn es nötig wird. Hast du Themes aktiv? Dass dein D7 Dialog keine Scrollbar anzueigt, ist wohl weil der Inhalt eben in den Breich passt. Im Ersten Bild hast du definitiv kein Theme aktiv. In deinem Testprogramm bin ich mir nicht zu 100% sicher, aber vermutlich da auch nicht. Bei der Delphi 10 Version sind die Themes aber zu 100% aktiv. Standardmässig hast du unter D7 keine Themes aktiv, während in Delphi 10.x Themes aktiv sind.

Ausserdem gibt es da in den Basisourcen Sachen die in späteren Delphiversion verbessert wurden. Diese habe ich bei mir in D7 dann auch angepasst, damit das unter neueren Windowsverisonen besser läuft. Was diese Änderungen aber sind, weiss ich nicht mehr genau, aber ich bin der Meinung irgendwas mit der Scrollbox im Bezug auf Themes war dabei.

[js747a]

Es liegt nicht daran das ein Programm mit Delphi keine Scrollbox anzeigt sondern das alle Programme,
auch ältere die ich mit Delphi 7 programiert habe dieses verhalten zeigen.

Ältere Programme, (EXE files) zeigen auf dem PC keine Scrollbox aber auch dem Laptop schon.

[himitsu]

Unterschiedliche DPI oder Scalierung auf dem anderen PC,
schon hat der Inhalt eine unterschiedliche Größe, was sich darauf auswirken kann, ob diese Komponenten in die ScrollBox passen oder etwas überstehen.

Und nur wenn es übersteht, kommt standardmäßig auch erst die ScrollBar.



Und ja, mit oder ohne Themes (XP-Manifest) macht einen Unterschied,
da hier von Windows unterschiedliche Versionen von DLLs (mit den CommonControls) geladen werden.

[KodeZwerg]

Bastel doch mal ein Demo Projekt und lade es hoch, hier gibt es noch mehrere User die Delphi 7 und älter nutzen.
(Ich hab zu test-zwecken noch ein Delphi 5 auf dem Laptop, aber bereite keines meiner Delphi Rio projekte dafür vor.)

[js747a]

Hier ein Beispiel Programm
Form mit Scrollbox.

Sieht bei mir so aus (Auf meinem PC)

[venice2]

Zitat von js747a:

Hier ein Beispiel Programm
Form mit Scrollbox.

Sieht bei mir so aus (Auf meinem PC)

Nun ja was denn nun Scrollbox oder Scrollbar?

Es ist normal wenn man eine Scrollbar addiert auch nur diese angezeigt wird.
Wo ist die Box?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

[himitsu]

Gut, die ScrollBar sieht schon bissl komisch aus (ohne ihre Buttons),
und das ähnlich aussehende Edit versteckt sich ganz unten rechts, außerhalb des Screenshots.

Aber selbst Schuld, wenn man auf die irrsinnige Idee mit PageSize = 0 kommt.


Und ja, TScrollBox <> TScrollBar

[venice2]

Zitat von himitsu:

Gut, die ScrollBar sieht schon bissl komisch aus (ohne ihre Buttons),
Und ja, TScrollBox <> TScrollBar

Eventuell hilft dabei ein Manifest zu addieren..

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
    type="win32"
    name="CodeGear RAD Studio"
    version="14.0.3513.24210" 
    processorArchitecture="*"/>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="asInvoker"
          uiAccess="false"/>
        </requestedPrivileges>
    </security>
  </trustInfo>
</assembly>

Zitat:

Aber selbst Schuld, wenn man auf die irrsinnige Idee mit PageSize = 0 kommt.

Spielt unter D2010 keine rolle wird auch bei 0 mit 4 Ausgegeben.

D7 scheint das nicht Automatisch zu korrigieren.

[js747a]

Hallo, Problem gelösst...

1. Scrollbar naturlich. Sorry

2. PageSize habe ich noch nie geändert. War bisher kein Problem

3. Problem nur auf 1 PC.

Ich habe Win 10 neu installiert und siehe da. Problem gelösst.
Alles wieder beim Alten. Scrollbar wieder OK

Also kein Problem was delphi 7 betrifft. Aber doch komisch das ein Programm mit Delphi 10 programiert dieses verhalten nicht zeigte.