Scrollbar mit modernem Anfasser

[himitsu]

XP oder Win7 ist egal, da die Option gleich heißt, bzw nicht umbenannt wurde.

PS: Manifest-Creator > siehe Design

[Mattze]

Hallo jaenicke,

OK, was mache ich falsch:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    XPManifest1: TXPManifest;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Listbox1.ScrollWidth:=1000;
end;

end.

Im Anhang das Bild für diese Unit.

Gruß
Mattze

[mkinzler]

Oder Komponente TXPManifest verwenden
http://www.delphi-treff.de/tipps-tri...yle-verwenden/

[himitsu]

Diese nutzlose Komponente macht aber nichts Anderes, als die Unit XPMan einzubinden, über welche die dort enthaltende Resource (mit dem Manifest) aufgenommen wird.

Hast du vielleicht noch ein weiteres Manifest im Programm?
Steht etwas bezüglich irgendwelcher Konflikte im Compilerlog?

[Mattze]

Hallo himitsu,

neeee!
Ich habe mir eben ein "win7.res" mit Deinem Manifest-Creator zusammengebastelt.
WindosXP.res natürlich rausgenommen.
Und dieses als Ressource in die Unit eingebunden.
Keine Änderung.

Auch, ob ich nun dieses WindowsXP.res drin habe oder nicht.

Ich habe D7 pro und mal die Quelle der Listbox durchstöbert. Soweit ich das verstanden habe, habe ich nichts verstanden! <ggg>
Ich sehe einfach keinen Unterschied bei der Definition der (horiz.) Scrollbars und doch werden sie verschieden dargestellt. Das kann höchstens Windows-intern sein!
Ich werde mal den Scrollbar aus der API nehmen und gucken...

Gefällt mir gar nicht!

Gruß
Mattze

[himitsu]

Ich kann mich Täuschen, aber auf dem Bild sehe ich den neuen Style.
Ein Button sähe doch auch "neu" aus? (nicht wie in Win98)

Die Breite des Schiebers ergibt sich aus den Dimensionen. (Parameter am Beispiel der TScrollBar)
> Größe des Scroll-Bereichs (Größe = Max - Min)
> Größe des Anzeigebereichs (PageSize)

Wenn PageSize 0 oder wenn der Anzeigebereich zu klein ist, womit das Ding zu schmal wäre, dann wird es auf die rechteckige Größe bebrenzt.

[Mattze]

Hallo,

stimmt mit der Breite - theoretisch.
Darum geht es vor allen Dingen!
Habe ich vergessen, zu schreiben.
Die Breite des Thumbs bei der Listbox ändert sich auch, bei der Scrollbar nicht!
Und die 3 senkrechten Striche auf dem Thumb gibt es bei der Listbox, bei der Scrollbar nicht.
Übrigens:
Listbox, horiz. Scrollbar, Breite:=1000;
horiz. Scrollbar, Breite:=20, Schrittlänge:=10 (im OI gesetzt).
Müsste eigentlich im Scrollbar ziemlich breit sein, oder?

Gruß
Mattze

[Mattze]

Hallo,

also eben habe ich mal
showscrollbar(listbox1.Handle,sb_horz,true);
in FormCreate gemacht.
Da kommt derselbe "unfähige", wie mit der Scrollbarkomponente, allerdings unten an der Listboxkomponente.
(Alles mit winXP-Manifest.)
Warum kommt dann also bei der Listboxkomponente selber (Scrollwidth) der "richtige" Thumb?

Mal sehen, was bei Win8.1 passiert...

Gruß
Mattze

[Mattze]

Hallo himitsu,

das hattest Du geschrieben, aber ich habe wohl wieder mal nicht richtig bis zu Ende gelesen.
Nach Deinem ersten Satz musste ich ja unbedingt schon antworten.
Also, entschuldige bitte. Ich werde mich bessern - hoffe ich. <ggg>

Gruß
Mattze