TToolBar97 Anzeige-Problem unter Windows Vista

[walharth]

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 : http://www.jrsoftware.org/tb97info.php

Vielen Dank für eure Hilfe !

Walter

[toms]

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.

[Bernhard Geyer]

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.

[OG Karotte]

Schau doch mal unter

news://jrsoftware.org

Gruppe jrsoftware.toolbar2000.thirdparty

Message 14554

ich meine das beschreibt das Problem auch unter TSpTBXDockablePanel (v1.9.4).

Lösung dort:

Delphi-Quellcode:

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;

Ein ähnlicher Code sollte auch unter TToolbar97 vorhanden sein.

[walharth]

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]