[gelöst] Scrollbars zur Designzeit ausblenden

[Socke]

Hallo,
Ich bastel gerade (immer noch) an meinem Kalender.
Da die Zeilenhöhe und Spaltenbreite dynamisch an die Control-Größe angepasst wird (d.h. die Zeilen und Spalten füllen das Control komplett aus), sind Scrollbars eher hinderlich. Diese überdecken einen Teil des Controls. Ohne diese wird alles komplett angezeigt. Deshalb habe ich mir überlegt, diese zu deaktivieren. Lösung:

Code: Alles auswählen

constructor TCustomGridCalendar.Create (AOwner: TComponent);
begin
{...}
  Self.ScrollBars := ssNone;
end;

Das ganze funktioniert zur Laufzeit auch wunderbar. Jedoch werden sie zur Designzeit immer noch angezeigt, verschwinden aber zur Laufzeit.
Das ganze ist zwar zur Funktion nicht weiter störend, irritiert aber ein bisschen.

Kennt jemand eine Lösung?
MfGSocke

[slai]

Hy socke

nimmt mich nur wunder: wieso nimmst du nicht die TCalendar Komponente um die Daten anzuzeigen?

[Socke]

nimmt mich nur wunder: wieso nimmst du nicht die TCalendar Komponente um die Daten anzuzeigen?

Schon mal versucht verschiedene Tage (die nicht zusammenhängen) in verschiedenen Farben zu highlighten? kurz gesagt: es geht nicht.
Ich hatte mir mal einen Kalender für Delphi geschrieben (von TCalendar abgeleitet). Für die LCL hab ich dann neu angefangen (von TCustomGrid) weil keine DrawCell-Methode vorhanden war. Man hat also keine Möglichkeit die Anzeige zu beeinflussen. Außerdem hat TCalendar immer eine feste Breite/Höhe.

Und jetzt versuche ich einen kleinen Schönheitsfehler zu beheben...

MfG Socke

[theo]

Vielleicht geht's so, aber ich hab die Kompo nicht installiert:

Code: Alles auswählen

TMyGrid=class(TCustomGrid)
  published
    property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars default ssNone; //ssNone statt ssAutoBoth wie in TCustomGrid
  end;

[Socke]

Vielleicht geht's so, aber ich hab die Kompo nicht installiert:

Code: Alles auswählen

TMyGrid=class(TCustomGrid)
  published
    property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars default ssNone; //ssNone statt ssAutoBoth wie in TCustomGrid
  end;

Der Ansatz, die Eigenschaft mit neuem Standardwert zu deklarieren ist gut! Es gibt nur ein paar seltsame Verhaltensweisen:

• Die Scrollbars werden beim Einfügen in das Formular nicht angezeigt, aber eingeblendet, wenn Position und/oder Größe geändert wird
• Zur Laufzeit sind sie sichtbar (auch wenn sie zur Designzeit nicht sichtbar waren

Die Lösung habe ich gefunden, in dem ich zum einen den Standardwert der Eigenschaft auf ssNone setzte (wie theo vorgeschlagen hatte) und im Constructor den Wert noch einmal explizit setzte (Self.Scrollbars := ssNone). Dadurch werden keine Scrollbars mehr angezeigt.

Danke und MfG Socke