Hi!
I got a page that is driven by a task that
updates 3 tables.
The tables are first set to "" with
View.Daily_Table.Inner_HTML ("");
then a header row is created
View.Daily_Table.Add_Caption("Last week's result @ " &
Calendar2.Clock.To_String(Milliseconds => False));
View.Daily_Table.Border;
declare
Row : Table_Row_Access := new Table_Row_Type;
Col1 : Table_Heading_Access := new Table_Heading_Type;
Col2 : Table_Heading_Access := new Table_Heading_Type;
Col3 : Table_Heading_Access := new Table_Heading_Type;
begin
Row.Dynamic;
Col1.Dynamic;
Col2.Dynamic;
Col3.Dynamic;
Row.Create (View.Daily_Table);
Col1.Create (Row.all, "Betname");
Col2.Create (Row.all, "Sum(Profit)");
Col3.Create (Row.all, "Date");
end;
and then the rows are added
Select_Daily_Profit.Open_Cursor;
loop
Select_Daily_Profit.Fetch(Eos);
exit when Eos;
Select_Daily_Profit.Get("BETNAME", Betname);
Select_Daily_Profit.Get("SUMPROFIT", Sumprofit);
Select_Daily_Profit.Get_Date("DATE", Date);
declare
Row : Table_Row_Access := new Table_Row_Type;
Col1 : Table_Column_Access := new Table_Column_Type;
Col2 : Table_Column_Access := new Table_Column_Type;
Col3 : Table_Column_Access := new Table_Column_Type;
begin
Cnt := Cnt +1;
Row.Dynamic;
Col1.Dynamic;
Col2.Dynamic;
Col3.Dynamic;
Row.Create (View.Daily_Table);
if Cnt mod 2 = Integer_4(0) then
Row.Background_Color("skyblue");
end if;
Col1.Create (Row.all, Utils.Trim(Betname));
Col2.Create (Row.all, Utils.F8_Image(Sumprofit));
if Sumprofit < 0.0 then
Col2.Background_Color("red");
else
Col2.Background_Color("palegreen");
end if;
Col3.Create (Row.all, Date.String_Date_ISO);
Col2.Text_Alignment(Gnoga.Gui.Element.Right);
end;
end loop;
Select_Daily_Profit.Close_Cursor;
This pattern is repeated for 3 tables with different data.
Now - it works.
But you see the tables disappear and the reappear, somewhat slowly.
And it's a bit annoying, since it is a monitoring screen.
I'd like the update to be without flickering. Is there a better way of
updating tables?
--
Björn
------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/
_______________________________________________
Gnoga-list mailing list
Gnoga-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gnoga-list
