Hi!
Ich habe mittlerweile heraus gefunden dass das Problem auch ohne ScrollBar der ListBox auftritt.
Daher bitte ich euch:
Könnt ihr mir bei meinem Fehler in den Berechnungen Helfen?
Delphi-Quellcode:
procedure TFrmMain.FormResize(Sender: TObject);
begin
HorzScrollBar.Visible:=false;
VertScrollBar.Visible:=false;
with BtnPlay do
begin
Top:=FrmMain.Height-Height;
Width:=(FrmMain.Width div 4);
Left:=0;
end;
with BtnPause do
begin
Top:=FrmMain.Height-Height;
Width:=(FrmMain.Width div 4);
Left:=(FrmMain.Width div 4);
end;
with BtnStop do
begin
Top:=FrmMain.Height-Height;
Width:=(FrmMain.Width div 4);
Left:=(FrmMain.Width div 4)*3;
end;
with BtnPrevTrack do
begin
Top:=FrmMain.Height-Height;
Width:=(FrmMain.Width div 8);
Left:=(FrmMain.Width div 8)*4;
end;
with BtnNextTrack do
begin
Top:=FrmMain.Height-Height;
Width:=(FrmMain.Width div 8);
Left:=(FrmMain.Width div 8)*5;
end;
with LBTracks do
begin
Top:=1;
Left:=1;
Width:=(FrmMain.Width div 16)*7;
Height:=FrmMain.Height-(BtnPlay.Height*2+3);
end;
with MTrackInfo do
begin
Top:=1;
Left:=4+((FrmMain.Width div 16)*7);
Height:=FrmMain.Height-(BtnPlay.Height*4+3);
Width:=(FrmMain.Width-Left-1);
end;
{...}
HorzScrollBar.Visible:=false;
VertScrollBar.Visible:=false;
end;
Der Fehler Tritt nicht bei jedem Resize auf...
Ich bin Ratloß, irgendetwas muss ja irgendwann über die Form hinweg wollen...
Findet ihr das?
[edit] im anhang die anordnung...[/edit]
Gruß Teekeks