You've already forked lazarus-ccr
jvcllaz: Check packages and demos for Laz 1.8.4 / 2.0.0 / 2.0.2 / trunk and FPC 3.0.4 / FPC 3.2 / trunk. 32-bit, Laz 2.0.2/FPC 3.2 64 bit. Make fixes needed.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6971 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -115,6 +115,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
LCLVersion,
|
||||
{$IFDEF LINUX}
|
||||
baseunix, unix, linux, users,
|
||||
{$ELSE}
|
||||
@ -462,10 +463,12 @@ end;
|
||||
|
||||
procedure TProfReport.lvReportColumnClick(Sender: TObject; Column: TListColumn);
|
||||
begin
|
||||
{$IF LCL_FullVersion >= 2000000}
|
||||
// lvReport.Items.BeginUpdate;
|
||||
lvReport.CustomSort(TLVCompare(@DefSort), Column.Index);
|
||||
OddClick := not OddClick;
|
||||
// lvReport.Items.EndUpdate;
|
||||
{$IFEND}
|
||||
end;
|
||||
|
||||
procedure TProfReport.SaveBtnClick(Sender: TObject);
|
||||
|
@ -91,7 +91,7 @@ implementation
|
||||
|
||||
uses
|
||||
StrUtils,
|
||||
JvConsts, JvResources, JvTypes;
|
||||
JvConsts, JvResources, JvTypes, JvJCLUtils;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
|
Reference in New Issue
Block a user