Prüfen ob Scrollbar aktiviert

[Thom]

Zitat von EWeiss:

Leider gibt es ja sowas nicht in Delphi ScrollBars eines Fensters den eigenen Bedürfnissen anzupassen ( Kostenlos ohne Komponente)
daher baue ich mir eine eigene LIB bzw.. Units die das ermöglichen sollen.

Ja, das ist leider wahr (zumindest kenne ich keine derartige Lösung)... Da wünsche ich Dir viel Erfolg!

Viele Grüße

[EWeiss]

Zitat von Thom:

Zitat von EWeiss:

Leider gibt es ja sowas nicht in Delphi ScrollBars eines Fensters den eigenen Bedürfnissen anzupassen ( Kostenlos ohne Komponente)
daher baue ich mir eine eigene LIB bzw.. Units die das ermöglichen sollen.

Ja, das ist leider wahr (zumindest kenne ich keine derartige Lösung)... Da wünsche ich Dir viel Erfolg!

Viele Grüße

Funktioniert ja soweit schon abgesehen vom zeichnen der Bitmaps
Schau mal unter meinen Projekten.

gruss

[alfold]

Allerdings, ist ganz wichtig!!!! Vermische nicht Daten mit Graphic
OT// muss Dein Miditracker, was die GraphicRoutinen betreffen neu machen, leider wenig Zeit//OT

Gruss alfold

[EWeiss]

Zitat von alfold:

Allerdings, ist ganz wichtig!!!! Vermische nicht Daten mit Graphic
OT// muss Dein Miditracker, was die GraphicRoutinen betreffen neu machen, leider wenig Zeit//OT

Gruss alfold

Hää ?
Keine Ahnung was du meinst.
Bei mir funktioniert das alles

PS:
Im Memo kann man die Scrollbar nicht auf Max = 0 stellen.
Die scheint virtuell erstellt zu werden.

gruss

[alfold]

Ich weiss ja nicht was Du da machst aber in Deinem Grid funct es

Delphi-Quellcode:

        hsi.cbSize := Sizeof(SCROLLINFO);
        hsi.nMin   := XSizeMid;
        hsi.nMax   := (rc.Right) - (XSize - XSizeMid); //<--ist hier der wert <= 0 wird keine Scrollbar angezeigt
        hsi.nPos   := StartX + XSizeMid;
        hsi.fMask  := SIF_POS or SIF_RANGE;
        SetScrollInfo(FHGrid, SB_HORZ, hsi, True);

Bei einem VCL Memo gibt es ja noch (ssHorizontal, ssVertical, ssNone, ssBoth)
Wenn ssHorizontal nicht aktiv ist passt sich xsize vom Memo auch an.

Wie Du das bei Dir umgesetzt hast weiss ich ja nicht.
EDIT:
wenn also hsi.nMax = 0 dann darf ssHorizontal nicht aktiv sein!

Gruss alfold

[EWeiss]

Zitat:

Ich weiss ja nicht was Du da machst aber in Deinem Grid funct es

Siehe erster Eintrag!

Bei meinem grid ist das normal weil die Scrollbar über CreateWindow erstellt wurde
und ich zu jederzeit Einfluss auf die Value nehmen kann.

Beim Memo geht das aber nicht oder aber du kannst mir sagen wo ich dort die Max Value einstellen kann.

gruss

[EWeiss]

Zitat:

Vielleicht hilft Dir das weiter...

Leider nein habe alle möglichen parameter geprüft.
Ich teste das mal mit der ListView oder anderer Komponente.

Edit:
ListView und TreeView funktionieren.

gruss

[Thom]

Zitat von EWeiss:

Schau mal unter meinen Projekten.

Werde ich machen!

Aber mir ist gerade etwas anderes aufgefallen:
In einem TMemo werden bei ScrollBars:=ssBoth immer beide Leisten angezeigt, auch wenn sie nicht notwendig sind (dann eben nur deaktiviert). TMemo kennt ja irgendwie kein automatisches Ein- und Ausblenden der Scrollbars.

Insofern ist mein Vorschlag, die Clientgröße des Fensters zu testen, völliger Unsinn, da die Leisten immer da sind...

Was ich aber jetzt gefunden habe:
SCROLLBARINFO
Aus dem Parameter rgstate lassen sich Rückschlüsse darauf ziehen, ob ein Element (oder die gesamte Scrollbar) zum Beispiel unsichtbar (STATE_SYSTEM_INVISIBLE) oder deaktiviert (STATE_SYSTEM_UNAVAILABLE) ist.

Ist wenig Text im Memo enthalten und die vertikale Scrollbar überflüssig, sieht der Status so aus:

Delphi-Quellcode:

ScrollBarInfo.rgstate[0]=STATE_SYSTEM_UNAVAILABLE; //gesamte Scrollbar deaktiviert
ScrollBarInfo.rgstate[1]=STATE_SYSTEM_UNAVAILABLE; //oberer Button deaktiviert
ScrollBarInfo.rgstate[2]=STATE_SYSTEM_UNAVAILABLE; //Page up-Bereich deaktiviert
ScrollBarInfo.rgstate[3]=STATE_SYSTEM_STATE_SYSTEM_INVISIBLE; //verschiebbarer Button unsichtbar
ScrollBarInfo.rgstate[4]=STATE_SYSTEM_UNAVAILABLE; //Page down-Bereich deaktiviert
ScrollBarInfo.rgstate[5]=STATE_SYSTEM_UNAVAILABLE; //unterer Button deaktiviert

Wird die vertikale Scrollbar benötigt, ändert sich das so:

Delphi-Quellcode:

ScrollBarInfo.rgstate[0]=0; //gesamte Scrollbar ist aktiviert
//...

Vielleicht hilft Dir das weiter...