paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: UI tweak + small bugfix.

Browse Source 
git-svn-id: trunk@58757 -
This commit is contained in:
balazs 2018-08-22 09:04:15 +00:00
parent ad0354c154
commit de1dca667b
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -558,7 +558,8 @@ begin
cbPackageCategory.Visible := False;
pnFilter.Visible := True;
edFilter.Text := '';
edFilter.SetFocus;
if edFilter.CanFocus then
edFilter.SetFocus;
end;
2: begin
pnFilter.Visible := False;
@ -566,7 +567,8 @@ begin
cbPackageState.Visible := False;
cbPackageCategory.Visible := True;
cbPackageCategory.ItemIndex := 0;
cbPackageCategory.SetFocus;
if cbPackageCategory.CanFocus then
cbPackageCategory.SetFocus;
end;
3: begin
pnFilter.Visible := False;
@ -574,7 +576,8 @@ begin
cbPackageState.Visible := True;
cbPackageCategory.Visible := False;
cbPackageState.ItemIndex := 0;
cbPackageState.SetFocus;
if cbPackageState.CanFocus then
cbPackageState.SetFocus;
end;
10: begin
pnFilter.Visible := False;
@ -582,7 +585,8 @@ begin
cbPackageType.Visible := True;
cbPackageCategory.Visible := False;
cbPackageType.ItemIndex := 0;
cbPackageType.SetFocus;
if cbPackageType.CanFocus then
cbPackageType.SetFocus;
end;
end;
cbPackageState.Height := cbFilterBy.Height;

14
components/onlinepackagemanager/opkman_showhint.pas
View File

@ -195,7 +195,7 @@ begin
CurFrame.Init;
CurFrame.pnPackageName.Caption := ' ' + LazPackage.Name;
FFrames.Add(CurFrame);
CurFrame.pnBase.BorderSpacing.Bottom := 5;
CurFrame.pnBase.BorderSpacing.Bottom := 3;
CurFrame.Parent := sbLazPackages;
CurFrame.CalcHeight(CurFrame.mDescription, Trim(LazPackage.Description));
CurFrame.CalcHeight(CurFrame.mLicense, Trim(LazPackage.License));
@ -206,11 +206,15 @@ begin
end;
Node := VisualTree.VST.GetNextSibling(Node);
end;
// if FFrames.Count > 1 then
if FFrames.Count > 1 then
begin
TfrShowHint(FFrames.Items[0]).pnBuffer.Visible := True;
TotHeight := TotHeight + pnPackageName.Height + pnDescription.Height + 25;
if (TotHeight < 51) or (TotHeight > 350) then
TotHeight := 350;
TfrShowHint(FFrames.Items[0]).BorderSpacing.Bottom := 0;
end;
TfrShowHint(FFrames.Items[FFrames.Count - 1]).pnBase.BorderSpacing.Top := 0;
TotHeight := TotHeight + pnPackageName.Height + pnDescription.Height + 15;
if (TotHeight < 51) or (TotHeight > 365) then
TotHeight := 365;
Self.Height := TotHeight;
sbLazPackages.SetFocus;
end;