Einzelnen Beitrag anzeigen

BerndS
Online

Registriert seit: 8. Mär 2006
Ort: Jüterbog
480 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: TScrollBox, VerticalScrollbar, Range

  Alt 4. Nov 2022, 08:56
Wenn dein Panel ein Canvas hat, was bei einem normalen Panel protected ist, könntest du es so machen:
Beispiel für normales TPanel
Delphi-Quellcode:
 
type
  THackPanel = class(TPanel);

function PanelTextHeight(APanel: TPanel; AText: string): Integer;
var
  R: TRect;
begin
  R.Create(0,0,0,0);
  THackPanel(APanel).Canvas.TextRect(R, AText, [tfCalcRect]);
  Result := R.Height;
end;
Bernd
  Mit Zitat antworten Zitat