Prüfen ob Scrollbar aktiviert

[EWeiss]

Zitat von Thom:

Hmm... Das verstehe ich jetzt nicht.
Deine Frage bezog sich doch darauf, ob eine Scrollbar eines TMemo's aktiv ist, oder nicht (sichtbar ist sie ja leider permanent)!?
Und das kann man doch sehr gut mit ScrollBarInfo.rgstate[0] überprüfen?
Das funktioniert bei mir (Delphi XE, XP) ganz hervorragend:

Delphi-Quellcode:

function ScrollBarEnabled(Wnd: HWnd; Vert: Boolean): Boolean;
var
  ScrollBarInfo: TScrollBarInfo;
  IdObject: Integer;
begin
  ScrollBarInfo.cbSize:=Sizeof(TScrollBarInfo);
  if Vert
    then IdObject:=OBJID_VSCROLL
    else IdObject:=OBJID_HSCROLL;
  Result:=GetScrollBarInfo(Wnd,IdObject,ScrollBarInfo) and
          (ScrollBarInfo.rgstate[0] and STATE_SYSTEM_UNAVAILABLE=0);
end;

Hmm...
Ich kann unter Eigenschaften die Scrollbar welche sichtbar sein soll auswählen.
Bsp. ssVertikal

Alle anderen sind dann im Designer auch nicht sichtbar das ist Fakt.
Aber!
Trotzdem bekomme ich bei der Abfrage siehe erster Beitrag bei State immer einen Positiven wert zurückgeliefert
deshalb wird meine Virtuelle ScrollBar bei ssHorizontal trotzdem gezeichnet.

Habe neue Version unter Projekte hochgeladen.
Bilder werden jetzt gerendert.

gruss

[alfold]

nimm mal um zu testen STATE_SYSTEM_INVISIBLE.
STATE_SYSTEM_INVISIBLE – if invisible (not shown yet)
STATE_SYSTEM_UNAVAILABLE – if disabled

Wenn man dies abfragen kann, muss man es ja auch setzten können.

//OT: aber mit Img sowas zu machen ist aber nicht der Renner oder? OT//

gruss alfold

[EWeiss]

Zitat:

//OT: aber mit Img sowas zu machen ist aber nicht der Renner oder? OT//

In wie fern ?
Es wird ja niemand zu seinem Glück gezwungen!
Wenn ich eine Skinned komponente habe nonvcl oder auch nicht..
dann sieht es besch.. aus wenn ausgerechnet die ScrollBar nicht dazu passt.

Deine Vorschläge habe ich alle schon durch.

gruss

[alfold]

Ich würde es mir nie wagen, Dich in Deinem Eifer zu Bremsen

Zitat:

Das Projekt soll ermöglichen XBeliebe ScrollBars von Komponenten die über eine ScrollBar verfügen den eigenen bedürfnissen anzupassen.

Währe es nicht besser, Du stellst die Propertis zu verfügung und jeder kann sich sein Hintegrund, Farverlauf, Rahmen, Transparenz selber setzten, die er haben möchte, als das mit img zu machen? Das währe doch Top!

Wer hat schon Zeit sich dafür evtl erst noch img zu zeichnen/testen usw.

Egal, wie Du schon sagst: "Es wird ja niemand zu seinem Glück gezwungen!"

Gruss alfold

[EWeiss]

Zitat von alfold:

Ich würde es mir nie wagen, Dich in Deinem Eifer zu Bremsen

Zitat:

Das Projekt soll ermöglichen XBeliebe ScrollBars von Komponenten die über eine ScrollBar verfügen den eigenen bedürfnissen anzupassen.

Währe es nicht besser, Du stellst die Propertis zu verfügung und jeder kann sich sein Hintegrund, Farverlauf, Rahmen, Transparenz selber setzten, die er haben möchte, als das mit img zu machen? Das währe doch Top!

Wer hat schon Zeit sich dafür evtl erst noch img zu zeichnen/testen usw.

Egal, wie Du schon sagst: "Es wird ja niemand zu seinem Glück gezwungen!"

Gruss alfold

Nope dann müßte ich das Teil als Komponente auslegen die dann erst noch Installiert/Registriert werden muss.
Das tue ich mir nicht an


gruss

[Thom]

Entschuldigung, wenn ich noch einmal nerve, aber mir hat die ganze Sache keine Ruhe gelassen und ich habe es noch einmal gestest:

Delphi-Quellcode:

function ScrollBarEnabled(Wnd: HWnd; Vert: Boolean): Boolean;
var
  ScrollBarInfo: TScrollBarInfo;
  IdObject: Integer;
begin
  ScrollBarInfo.cbSize:=Sizeof(TScrollBarInfo);
  if Vert
    then IdObject:=OBJID_VSCROLL
    else IdObject:=OBJID_HSCROLL;
  Result:=GetScrollBarInfo(Wnd,IdObject,ScrollBarInfo) and
          (ScrollBarInfo.rgstate[0] and STATE_SYSTEM_UNAVAILABLE=0);
end;

function ScrollBarVisible(Wnd: HWnd; Vert: Boolean): Boolean;
var
  ScrollBarInfo: TScrollBarInfo;
  IdObject: Integer;
begin
  ScrollBarInfo.cbSize:=Sizeof(TScrollBarInfo);
  if Vert
    then IdObject:=OBJID_VSCROLL
    else IdObject:=OBJID_HSCROLL;
  Result:=GetScrollBarInfo(Wnd,IdObject,ScrollBarInfo) and
          (ScrollBarInfo.rgstate[0] and STATE_SYSTEM_INVISIBLE=0);
end;

Das funktioniert bei mir ohne Probleme mit einem TMemo.

[EWeiss]

Zitat:

Entschuldigung, wenn ich noch einmal nerve, aber mir hat die ganze Sache keine Ruhe gelassen und ich habe es noch einmal gestest:

Du nervst nicht!

Habe das Projekt funktionstüchtig.. bis auf das hier genannte problem.
Ich habe deine erste Version geprüft und die schlägt immer fehl (ScrollBarEnabled).

Dann habe ich diese mit
ScrollBarInfo.rgstate[3] and STATE_SYSTEM_INVISIBLE=0
geprüft.. schlug auch fehl.

Wenn du interesse an dem Projekt hast schikce ich dir gerne den Quelltext zu.
Dann kannst du vor ort testen.

Ist in D2009 geschrieben sollte also auch in XE ohne probleme laufen.

EDIT:
Du solltest aber das hier
ScrollBarVisible..
ScrollBarInfo.rgstate[0] and STATE_SYSTEM_INVISIBLE=0
den Index 0 mit 3 ersetzen Oder?


gruss