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

OpkMan: Refactor, separate a function for getting PackageType display string.

Browse Source 
git-svn-id: trunk@56454 -
This commit is contained in:
juha 2017-11-21 12:02:36 +00:00
parent 36f3f671b6
commit 9886f157ed
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -132,7 +132,6 @@ type
procedure VSTClick(Sender: TObject);
procedure VSTAfterPaint(Sender: TBaseVirtualTree; {%H-}TargetCanvas: TCanvas);
procedure VSTEnter(Sender: TObject);
function GetDisplayString(const AStr: String): String;
function IsAllChecked(const AChecking: PVirtualNode): Boolean;
procedure ButtonClick(Sender: TObject);
procedure DrawStars(ACanvas: TCanvas; AStartIndex: Integer; P: TPoint; AAvarage: Double);
@ -1360,7 +1359,7 @@ begin
end;
end;
function TVisualTree.GetDisplayString(const AStr: String): String;
function GetDisplayString(const AStr: String): String;
var
SL: TStringList;
I: Integer;
@ -1379,6 +1378,16 @@ begin
end;
end;
function GetPackageTypeString(aPackageType: TLazPackageType): String;
begin
case aPackageType of
lptRunAndDesignTime: Result := rsMainFrm_VSTText_PackageType0;
lptDesignTime: Result := rsMainFrm_VSTText_PackageType1;
lptRunTime: Result := rsMainFrm_VSTText_PackageType2;
lptRunTimeOnly: Result := rsMainFrm_VSTText_PackageType3;
end;
end;
procedure TVisualTree.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
var
@ -1510,12 +1519,7 @@ begin
5: CellText := Data^.LazCompatibility;
6: CellText := Data^.FPCCompatibility;
7: CellText := Data^.SupportedWidgetSet;
8: case Data^.PackageType of
lptRunAndDesignTime: CellText := rsMainFrm_VSTText_PackageType0;
lptDesignTime: CellText := rsMainFrm_VSTText_PackageType1;
lptRunTime: CellText := rsMainFrm_VSTText_PackageType2;
lptRunTimeOnly: CellText := rsMainFrm_VSTText_PackageType3;
end;
8: CellText := GetPackageTypeString(Data^.PackageType);
9: CellText := GetDisplayString(Data^.License);
10: CellText := Data^.Dependencies;
11: CellText := '';
@ -1785,12 +1789,7 @@ begin
5: HintText := Data^.LazCompatibility;
6: HintText := Data^.FPCCompatibility;
7: HintText := Data^.SupportedWidgetSet;
8: case Data^.PackageType of
lptRunAndDesignTime: HintText := rsMainFrm_VSTText_PackageType0;
lptDesignTime: HintText := rsMainFrm_VSTText_PackageType1;
lptRunTime: HintText := rsMainFrm_VSTText_PackageType2;
lptRunTimeOnly: HintText := rsMainFrm_VSTText_PackageType3;
end;
8: HintText := GetPackageTypeString(Data^.PackageType);
9: HintText := GetDisplayString(Data^.License);
10: HintText := Data^.Dependencies;
11: HintText := '';