Jump to content

filfor

Members
  • Posts

    4
  • Joined

  • Last visited

filfor's Achievements

Newbie

Newbie (1/4)

0

Reputation

  1. Hello, I am having problems on display an XY serie of data , that is double definied. (array x and y are between -2 and 2). I am addin data in this way: myxyserie.AddValue(db.Fields[fieldnoy].AsFloat,(db.Fields[fieldnox].AsFloat); I see only a sequence of points in 0, -1, 1 in x or y: it truncate all decimal part, instead axes are correctly with floating numbers. (a workaround is to multiply all by 1000...) I am asking how to say that data is double defined. Thanks Filippo
  2. Hello, I would like to add a new custom tile layer to UniMap1 created. address of tiles is something like: http://{s}.tile.osm.org/{z}/{x}/{y}.png I think this should be with TUniMapCustomLayer, somewhere I saw a command like this (not in UniGui...): var tiles = L.tileLayer('http://{s}.tile.osm.org/{z}/{x}/{y}.png').addTo(map); Is it possible in UniMap? if yes, how to? Thanks in advance, Filippo
  3. I solved in this way: type TUniTreeViewHelper=class helper for TUniTreeView procedure SaveToFile(aFileName:string); procedure LoadFromFile(aFileName:string); end; { TUniTreeViewHelper } procedure TUniTreeViewHelper.LoadFromFile(aFileName: string); var f:textfile; ss:Tstringlist; s,s1:string; i,j:integer; ind,level:array of integer; curlength:integer; begin try assignfile(f,aFileName); reset(f); ss:=Tstringlist.Create; //first pass check the owner setlength(level,0); repeat readln(f,s); s1:=s.Replace(#9,''); ss.Add(s1);//label setlength(level,ss.Count); level[ss.Count-1]:=length(s)-length(s1); until eof(f); setlength(ind,length(level)); ind[0]:=0; for i:=ss.Count-1 downto 1 do begin j:=i; repeat dec(j); until level[j]=level[i]-1; ind[i]:=j; end; //now I create treeview Items.Clear(); Items.Add(nil,ss[0]); for i := 1 to length(ind)-1 do begin if ind[i]<0 then Items.Add(nil,ss[i]) else Items.Add(Items[ind[i]],ss[i]); end; finally closefile(f); ss.Free; end; end; procedure TUniTreeViewHelper.SaveToFile(aFileName: string); var f:textfile; i:integer; begin try assignfile(f,aFileName); rewrite(f); for i:=0 to Items.Count-1 do begin writeln(f,StringOfChar(#9,items[i].Level)+items[i].Text); end; finally closefile(f) end; end;
  4. Hello, UniGUi personal, Desktop application I would like to activate suggests while typing in an uniedit box. Is there a way to do it? (I searched in forum but didn't find how). If yes pleas tell me where to put code (if Unievents etc.), i am a newbie. thanks Filippo
×
×
  • Create New...