TCheckBox, Caption leer - 200%

[hoika]

Hallo,
ich habe ein CheckBox ohne Caption, etwas weiter daneben ein Label.
Bei 200% Skalierung überschreibt der nicht vorhandene Text (Caption) der CheckBox das Label.

Bei 150% geht es gerade noch so.
Es siht so aus, als ob die CheckBox trotzdem eine minimale Caption zeichnet,
die mit steigernder Skalierung immer größer wird.

Wie kann ich das verhindern?
Die CheckBox, also das Symbol selbst soll natürlich größer werden,
aber was soll das mit der Caption ?

PS: Der Abstand ist zwischen CheckBox und Label ist schon extra etwas größer.

[nahpets]

Wenn Du die beiden auf ein randloses TPanel legst und für die TCheckBox Align auf alLeft setzt und für das Label auf alClient, dürfte die "Überlagerung" weg sein.

Die Frage die sich dann stellt ist nur: "Wie berechnet man die richtige Breite für das Panel?"

[a.def]

Zitat:

Zitat von nahpets (Beitrag 1368512)

Die Frage die sich dann stellt ist nur: "Wie berechnet man die richtige Breite für das Panel?"

Was würde denn das auslesen der Größe einer CheckBox unter 200% Skalierung ausgeben? Das skalierte Maß oder das originale, kleine Maß?
Wenn das skalierte, dann würde ich einfach die Größe der CheckBox auslesen.

Weiß leider nicht mehr wie es funktioniert sonst würde ich es hier schreiben.

[nahpets]

Prinzipiell ja, aber bei welchen Ereignissen?

[p80286]

OnResize, wenn man den Font setzt?
und dann Client....?

Gruß
K-H

[nahpets]

Wäre möglich, was ich nur absolut nicht weiß ist, wie verhält sich das, wenn zur Laufzeit die Systemeinstellungen verändert werden.

Bei meinen Programmen ist es mir bisher nie gelungen dann noch ein (halbwegs) vernünftiges Aussehen hinzubekommen.

Nach 'nem Neustart der Applikation passt es dann meist wieder.

Ansonsten hab' ich mir angewöhnt alles auf (randlose) Panels zu legen. Die haben AutoSize = True. Labels haben ebenfalls AutoSize = True.

ParentFont ist ebenfalls True.

Der Anwender kann über's Menü die Schriftgröße der Application selbst verändern. Der Rest passt sich dann eigentlich automatisch an.

Ggfls. müssen in der "Schriftveränderungsroutine" noch einzelnen Komponenten, bei denen Parentfont nicht sinnvoll einsetzbar ist (z. B. Editorkomponenten, Memos ... mit Font Courier New ...), angepasst werden.

Für Buttons ... nutze ich so 'ne Spielerei:

Delphi-Quellcode:

Type
  tDimension = record
    Height : Integer;
    Width  : Integer;
  end;

function GetDimension(s : String; f : TFont) : tDimension;
var
          lb : TLabel;
begin
  lb            := TLabel.Create(Nil);
  lb.Font       := f;
  lb.AutoSize   := True;
  lb.Caption    := s;
  Result.Height := lb.Height;
  Result.Width  := lb.Width;
  lb.Free;
end;

// Button.Align ist entweder alLeft oder alRight.
procedure TFormXY.SetButton(btn : TSpeedButton; pn : TPanel);
var
          d : TDimension;
begin
  d         := GetDimension(btn.Caption,pn.Font);
  btn.Width := d.Width + 16;
  pn.Height := d.Height + (pn.BorderWidth * 2) + 8;
  // Hat man mehrere "Sachen" auf dem Panel, muss man
  // die hier ebenfalls anpassen ... und die Parameterlist ergänzen ...
end;

procedure TFormXY.SetButtons(pn : TPanel);
var
          d : TDimension;
          i : Integer;
begin
  for i := 0 to pn.ComponentCount - 1 do begin
    if pn.Components[i] is TSpeedButton then begin
      d         := GetDimension(TSpeedButton(pn.Components[i]).Caption,pn.Font);
      TSpeedButton(pn.Components[i]).Caption).Width := d.Width + 16;
      pn.Height := d.Height + (pn.BorderWidth * 2) + 8;
    end;
  end;
end;

Passt --- meistens :-(

[himitsu]

Lösung: Du nimmst statt des Labels die Caption der Checkbox zum Anzeigen des Textes. :roll:

Oder TStaticText (das echte Label von Windows) statt des TLabel (dem Pseudocontrol der VCL).
TLabel, TImage und andere sind keine eigenständigen Controls, malen sich nur auf den Canvas ihres Parents und alle anderen Komponenten liegen somit immer davor.