Anonymous | Login | Signup for a new account | 2019-02-18 08:28 CET |
Main | My View | View Issues | Change Log | Roadmap | Docs |
Viewing Issue Simple Details [ Jump to Notes ] | [ View Advanced ] [ Issue History ] [ Print ] | ||||||
ID | Category | Severity | Reproducibility | Date Submitted | Last Update | ||
0004928 | [JEDI VCL] 00 JVCL Components | minor | always | 2009-09-07 18:51 | 2009-09-22 16:46 | ||
Reporter | deadcantdance | View Status | public | ||||
Assigned To | obones | ||||||
Priority | normal | Resolution | fixed | ||||
Status | resolved | Product Version | 3.37 | ||||
Summary | 0004928: JvLookOutPage, Scrollbars are shown but not needed | ||||||
Description |
When a component, e.g. JvGradient, is used as background for JvLookOutPage and Align is alClient, the up-arrow is shown, but the control is in client-area. |
||||||
Additional Information |
Here's the workaround: procedure TJvLookOutPage.CalcArrows; var I: Integer; R: TRect; AList: TList; begin if Assigned(FUpArrow) and Assigned(FDownArrow) then begin // (rom) needs constants instead of numbers if Height < 65 then begin // FUpArrow.Visible := False; // FDownArrow.Visible := False; FDownArrow.Top := FUpArrow.Top + 16; Exit; end; R := GetClientRect; FUpArrow.SetBounds(R.Right - 23, R.Top + 25, 16, 16); FDownArrow.SetBounds(R.Right - 23, R.Bottom - 23, 16, 16); AList := TList.Create; try for I := 0 to ControlCount - 1 do begin if (Controls[I] = FUpArrow) or (Controls[I] = FDownArrow) or (Controls[I] = FEdit) then Continue; if not Controls[I].Visible and not (csDesigning in ComponentState) then Continue; ////////// WORKAROUND START ////////// if (Controls[I]).Align=alClient then Continue; ////////// WORKAROUND END ////////// AList.Insert(AList.Count, Controls[I]); end; if AList.Count = 0 then Exit; AList.Sort(Compare); FDownArrow.Visible := not IsVisible(AList.Items[AList.Count - 1]); FUpArrow.Visible := not IsVisible(AList.Items[0]); finally AList.Free; end; end; end; |
||||||
Tags | No tags attached. | ||||||
Attached Files |
![]() |
||||||
|
Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group |