Hi Hawkeye219,
leider hat folgende Implementierung keine Änderungen gebracht:
Delphi-Quellcode:
procedure TBaseRTControl.AdjustClientRect(var Rect: TRect);
begin
// inherited;
if FShowTitle then begin
Rect := classes.Rect(1, Abs(self.Canvas.Font.Height) + 7, Width - 1, Height - 1);
end else begin
Rect := classes.Rect(1, 1, Width - 1, Height - 1);
end;
end;
Irgentwie hänge ich fest.
Aber gehen muß es doch.
Gruß oki