Problem mit Scrollbox - delphi 7

[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.