Problem mit Scrollbox - delphi 7

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

[venice2]

Zitat:

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

Du solltest trotzdem ein Manifest addieren.
Wenn jemand oder etwas wieder eine andere version von "Microsoft.Windows.Common-Controls" (MSCOMCTL) installiert kann es sein das es wieder nicht funktioniert.
Aber du mußt natürlich nicht.

[Rolf Frei]

Zitat von js747a:

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

Wenn du mit Delphi 10.x kompilierst wird deine Anwendung automatisch ein Theme benutzen. Das ist da per Default aktiv. In D7 musst du das selber aktivieren. Kannst am einfachsten die TXPManifest Komponente im Win32 Tab auf eine Form legen oder im DPR bei den uses einfach XPMan ergänzen. Damit wird dann auch im D7 Programm das Windows Theme benutzt. Schöner Nebeneffekt ist, dass deine D7 Programme dann gleich deutlich moderner und gleich aussehen wie die in D10.x kompilierten Programme.

[himitsu]

Bitte nicht diese schwachsinnige Komponente.
Einfach die nur Unit XPMan ins Uses aufnehmen, wodurch die Ressource (RES) mit dem Manifest einkompilert/gelinkt wird.

Die Komponente macht nichts Anderes, als indirekt diese Unit hinzuzufügen, aber beim Löschen der Komponente bleiben die Unit und Manifest zurück.


In aktuelleren Delphis wird das Manifest über die Projektoptionen (de)aktiviert und auch konfiguriert. (weil das kann noch viel mehr)