![]() |
TToolBar97 Anzeige-Problem unter Windows Vista
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,
Ich habe ein Problem mit der Freeware-Komponente TToolBar97, die ich meinen Delphi-Projekten nutze. Wenn ich einen Toolbar vom Dock wegziehe, wird der Toolbar zum einem kleinen Fenster mit einer Caption (blaue Titelzeile, wie ein normales Fenster). Unter Windows Vista wird diese Caption leider nicht richtig angezeigt. Der Entwickler der TToolBar97-Komponente antwortet nicht auf meine Mails. Er hat jedoch eine neue Version (ToolBar2000), in der jedoch verschiedene Funktionen der alten Komponente fehlen, die ich aber weiterhin nutzen möchte. Hat jemand dieselbe Erfahrung mit dieser Komponente gemacht, oder hat evtl. jemand einen Lösungsvorschlag ? Ich habe ein Screenshot von der Fehlfunktion angehängt. Hier die Seite des Entwicklers : ![]() Vielen Dank für eure Hilfe ! Walter |
Re: TToolBar97 Anzeige-Problem unter Windows Vista
Hallo, tritt das Problem bei der ToolBar2000 auch auf?
Falls nicht, kannst du ja mal die relevanten Stellen der Quelltexte vergeleichen und evtl. die TToolBar97 fixen. |
Re: TToolBar97 Anzeige-Problem unter Windows Vista
Sieht verdammt danach aus das mit Width/Height anstadt ClientWidth/Height gearbeitet wird. Unter Vista sind die Formularränder gegenüber XP nochmal "fetter" geworden.
|
Re: TToolBar97 Anzeige-Problem unter Windows Vista
Schau doch mal unter
![]() Gruppe jrsoftware.toolbar2000.thirdparty Message 14554 ich meine das beschreibt das Problem auch unter TSpTBXDockablePanel (v1.9.4). Lösung dort:
Delphi-Quellcode:
Ein ähnlicher Code sollte auch unter TToolbar97 vorhanden sein.
function TSpTBXDockablePanel.GetCaptionPanelSize: TPoint;
var P: TPoint; begin if Floating then begin P := GetFloatingBorderSize; // Result := Point(Width + 4, FToolbar.Height + 4); Result := Point(Width + 2*p.X, FToolbar.Height + 2*p.Y); end else Result := Point(Width, FToolbar.Height + 2); end; |
Re: TToolBar97 Anzeige-Problem unter Windows Vista
Vielen Dank erstmal, für eure Antworten.
Ich denke dass iregndwas in diesem Teil des Source codes verändert werden muss, weiss aber nicht wie und was...
Delphi-Quellcode:
function TCustomToolWindow97.GetFloatingBorderSize: TPoint;
{ Returns size of a thick border. Note that, depending on the Windows version, this may not be the same as the actual window metrics since it draws its own border } const XMetrics: array[Boolean] of Integer = (SM_CXDLGFRAME, SM_CXFRAME); YMetrics: array[Boolean] of Integer = (SM_CYDLGFRAME, SM_CYFRAME); begin Result.X := GetSystemMetrics(XMetrics[Resizable]); Result.Y := GetSystemMetrics(YMetrics[Resizable]); end; procedure TCustomToolWindow97.GetFloatingNCArea (var TopLeft, BottomRight: TPoint); begin with GetFloatingBorderSize do begin TopLeft.X := X; TopLeft.Y := Y; if ShowCaption then Inc (TopLeft.Y, GetSmallCaptionHeight); BottomRight.X := X; BottomRight.Y := Y; end; end; function GetCaptionRect (const Control: TCustomToolWindow97; const AdjustForBorder, MinusCloseButton: Boolean): TRect; begin Result := Rect(0, 0, Control.ClientWidth, GetSmallCaptionHeight-1); if MinusCloseButton then Dec (Result.Right, Result.Bottom); if AdjustForBorder then with Control.GetFloatingBorderSize do OffsetRect (Result, X, Y); end; function GetSmallCaptionHeight: Integer; { Returns height of the caption of a small window } begin if NewStyleControls then Result := GetSystemMetrics(SM_CYSMCAPTION) else { Win 3.x doesn't support small captions, so, like Office 97, use the size of normal captions minus one } Result := GetSystemMetrics(SM_CYCAPTION) - 1; end; Ich wäre euch sehr dankbar für eine Lösung des Problems. Vielen Dank im Voraus, mfg, Walter [edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit] |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:50 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz