Hallo Jungs,
ich positioniere wie folgt meine Labels (Screenshot3). Das Problem ist, dass bei der ersten Selektion eines Buches die Labels weit auseinander liegen (Sceenshot1), wenn man aber das zweite mal oder weiter Bücher auswählt ist alles ok, wie nach dem Code (Screeshot2).
Was mache ich falsch? Wieso macht die erste Selektion diese Probleme?
Delphi-Quellcode:
procedure TForm1.DetailsDynamWidth();
begin
// Mediuminfos in der rechten Spalte anzeigen
DetailsMediatitleLabel.Width := MediaScrollBox.Width - 35;
DetailsAuthorLabel.Width := MediaScrollBox.Width - 35;
DetailsDescriptionLabel.Width := MediaScrollBox.Width - 35;
DetailsEditionLabel.Width := MediaScrollBox.Width - 35;
DetailsPublisherLabel.Width := MediaScrollBox.Width - 35;
DetailsISBNLabel.Width := MediaScrollBox.Width - 35;
DetailsCategoryLabel.Width := MediaScrollBox.Width - 35;
DetailsLanguageLabel.Width := MediaScrollBox.Width - 35;
DetailsPlaceLabel.Width := MediaScrollBox.Width - 35;
DetailsAuthorLabel.Top := DetailsMediatitleLabel.Top + DetailsMediatitleLabel.Height + 6;
DetailsDescriptionLabel.Top := DetailsAuthorLabel.Top + DetailsAuthorLabel.Height + 10;
DetailsEditionLabel.Top := DetailsDescriptionLabel.Top + DetailsDescriptionLabel.Height + 12;
DetailsPublisherLabel.Top := DetailsEditionLabel.Top + DetailsEditionLabel.Height + 6;
DetailsISBNLabel.Top := DetailsPublisherLabel.Top + DetailsPublisherLabel.Height + 6;
DetailsCategoryLabel.Top := DetailsISBNLabel.Top + DetailsISBNLabel.Height + 12;
DetailsLanguageLabel.Top := DetailsCategoryLabel.Top + DetailsCategoryLabel.Height + 6;
DetailsPlaceLabel.Top := DetailsLanguageLabel.Top + DetailsLanguageLabel.Height + 6;
end;