[How this error message is produced?]

procedure TMainAreaForm.NavTreeViewClick(Sender: TObject);
var
 s, sn, strSheetName:string;
 uts:TUniTabSheet;
 I: Integer;
begin
 s := NavTreeView.Selected.Text;

 if s='主界面' then
   sn := 'Main'
 else
 if s='考勤登记' then
   sn := 'WorkRecord'
 else
 if s='销售分析' then
   sn := 'SaleTotal'
 else
 if s='注销离开' then
 begin
   UniApplication.Terminate;
   exit;
 end
 else
   sn := 'Main';


 strSheetName := sn+'Sheet';

 for I := 0 to NavPage.PageCount - 1 do
 begin
   uts := NavPage.Pages[i];
   if uts.Name=strSheetName then
   begin
     NavPage.ActivePage := uts;
     NavPageChange(NavPage);
     exit;
   end;
 end;

 uts := TUniTabSheet.Create( NavPage );
 uts.Caption := s;
 uts.Name := strSheetName;
 uts.PageControl := NavPage;
 NavPage.ActivePage := uts;
 NavPageChange(NavPage);

 InsertFrame(NavPage.ActivePage, sn);
end;

procedure TMainAreaForm.btnCloseSheetClick(Sender: TObject);
var
 I: Integer;
begin
 NavPage.ActivePage.Free;
 if NavPage.ActivePage=MainSheet then
   btnDelSheet.Visible := False;
 for I := 0 to NavTreeView.Items.Count - 1 do
   if NavTreeView.Items.Item[i].Text=NavPage.ActivePage.Caption then
   begin
     NavTreeView.Items.Item[i].Selected := True;
     Break;
   end;
end;

[Survey: Features you want to see in version 1.0]

1. TreeView,DBGrid increase the checkbox property, increase checklistbox

 

2. Roadmap to achieve

 

3. ExtJS Library upgraded to the latest

[uniXDBGrid Component]

two problems

1. Sort only on the current page

2. Clicks after the changes after the SQL query, the sort failure

[Version 0.86.0.889 is available for public download]

Ask a question, do not know how unigui concurrency, what is the maximum number of online?

 

Publish into whether effects of exe and dll？

[Region Slider Panel]

Thank you.

[Version 0.86.0.889 is available for public download]

The following code is not a bug

procedure TuSaleTotalFrame.UniButton2Click(Sender: TObject);
var
 Series1:TUniBarSeries;
begin
 UniChart1.Title.Text.Text := '测试数据11';
 Series1 := TUniBarSeries.Create(UniChart1);
 Series1.Clear;
 Series1.Add(200, '1');
 Series1.Add(210, '2');
 Series1.Add(220, '3');
 Series1.Add(190, '4');
 Series1.Add(280, '5');
end;

 

uniChart How to load dynamically?