Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
28. Jan 2019
Hi zusammen
Ich hab die ganzen Align-Dinger rausgekippt, und ich bin überzeugt, das war richtig so.
Zur Zeit habe ich allerdings folgendes Problem in der kleinen Frameinstanz:
Wie man sieht: vom dritten Radiobutton sieht man gerade mal noch einen kleinen Rest des Kreises; ausserdem sind ab da die Radiobuttons eingerückt.
Aus einem Reportfile:
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
28. Jan 2019
Hi zusammen
Inzwischen hat sich einiges geändert, und das Ziel ist schon fast erreicht:
procedure TRadioButtonsFrame.RadioButtonPosition2;
var i, x, y, LHeight, LLeft: Integer;
begin
For i := 0 to x do
begin
FRadioButtonList.Items.Width := 50;
LLeft := (PnlRadioButtons.ClientWidth div 2) - (FRadioButtonList.Items.Width div 2);
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
27. Jan 2019
Hi jaenicke
Es sollte in etwa so aussehen, wie im 1. Anhang, wobei die Reihenfolge so sein sollte, wie in der Objectliste, wobei alle die selben Leftwerte haben sollten, aber nur das erste Element einen grösseren Topwert.
Wieso eines der Elemente in meiner While-Schleife "verschluckt" (überzeichnet?) wird, kann ich mir im Moment nicht erklären.
Gruss
Delbor
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
27. Jan 2019
Hi zusammen
Das hab ich mir mal ganz schnell zu Herzen genommen so ganz nach dem DRY-Prinzip.
Damitsieht eine Umsetzung - es ist nicht die einzige - jetzt so aus:
procedure TRadioButtonsFrame.RadioButtonPosition2;
var i, x, y, LHeight: Integer;
begin
x := FRadioButtonList.Count - 1;
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
26. Jan 2019
Hi zusammen
Folgende Prozedure löst den Fehler aus:
procedure TRadioButtonsFrame.RadioButtonPosition;
var i, x, y: Integer;
begin
x := FRadioButtonList.Count -1;
For i := 0 to FRadioButtonList.Count -1 do
begin
Case i of
0: begin