limelect

@Bill Meyer i used your link to develop my own as strings instead procedure SaveTreeviewToString(tv: TTreeview; Sl: TStringlist); var node: TTreeNode; s:string; begin Assert(Assigned(tv)); try node := tv.Items[0]; while node <> nil do if node.CheckState=csChecked then begin s:=''; s:=s+'#'+inttostr(node.level); s:=s+'#'+(node.Text); Sl.Add(s); node := node.GetNext; end; finally end; end; procedure LoadTreeviewFromFile(tv: TTreeview; Sl: TStringlist); var node: TTreeNode; level,i,x,x2: Integer; s,s1,s2:string; begin try tv.Items.Clear; try node := nil; for i:=0 to sl.Count-1 do begin s:=Sl; x:=PosEx('#',s,1); x2:=PosEx('#',s,x+1); s1:=copy(s,x+1,x2-(x+1)); s2:=copy(s,x2+1,length(s)); level := strtoint(s1); if node = nil then {create root node, ignore its level} node := tv.Items.Add(nil, '') else begin if level = node.level then node := tv.Items.Add(node, '') else if level > node.level then node := tv.Items.AddChild(node, '') else begin while Assigned(node) and (level < node.level) do node := node.Parent; node := tv.Items.Add(node, ''); end; end; node.Text := s2; end; finally end; finally end; end;

I wander no one is using FDTable with blobs? I used blob with other database components it works with no problem Is it me or Delphi vcl 10.2.3?

@Bill Meyer sorry save does not work procedure SaveTreeviewToStream(tv: TTreeview; S: TStream); 3 var 4 writer: TWriter; 5 node: TTreeNode; 6 begin 7 Assert(Assigned(tv)); 8 Assert(Assigned(S)); 9 writer := TWriter.Create(S, ); 10 try 11 node := tv.Items[]; 12 writer.WriteListBegin; 13 while node <> nil do 14 begin 15 writer.WriteInteger(node.level); 16 writer.WriteString(node.Text); 17 writer.WriteInteger(node.Imageindex); 18 writer.WriteInteger(Integer(node.data)); 19 node := node.GetNext; 20 end; 21 writer.WriteListEnd; 22 writer.FlushBuffer; 23 finally 24 writer.Free; 25 end; 26 end; 27 BlobField := FilesFDTable.FieldByName('Files') as TBlobField; FilesFDTable.Insert; Stream := FilesFDTable.CreateBlobStream(BlobField, bmWrite); SaveTreeviewToStream(tree,Stream); FilesFDTable.Post; FilesFDTable.Refresh; As for the reader it has a bug I am stack !!! any help ?

@Bill Meyer thanks i will try

I used gridpanel (2 rows 1 coulomb) to host a label on each row.(I have 2 gridpanels) I want to add a led at the corner of each row. P.S I changed the row to 0 but it goes ABOV the labels What I need is to be in the corner. Do I need to use something else? Furthermore, the label is as a client and centered however I need the text poison at the center of the grid (further down).

Thanks, you are right

I need an Android service that stays on even if the application is closed. With the service, I want a timer that fires a message every few seconds. The main form will (maybe?) communicate with the service. I looked at http://cc.embarcadero.com/item/30439 or delphi.org/2015/09/minimalistic-android-service-with-delphi-10-seattle/ and theory and a few more sources none gave me my need. On the minimalistic ServiceUnit, I tried to use it by putting a timer in it seems it does not use it. putting a breakpoint did not stop. It seems I do not understand how the ServiceUnit is used P.S I use the emulator and there I can see in the running service "radhost" I am using D10.2.3 Thank you for your help AndroidSimpleService.zip ServiceUnit.pas

Or maybe the way to go is Widgets?

well it is not my need. I want a timer (check time.Task) even if the form is closed.

I will check the above project

Things can be even days. Why? as a humen being i touht of things to do and later forget. I want something to remind me.

Ok. I want to create tasks in DB as of time. When the time comes a popup will tell me of the task to do. Thats it very simple. Since the form will not be open all the time I thought of service.

Ok I understand.But lets tackel it diffrently. To see if "ServiceUnit" works how do I send/trigger the main form from the service? How do I send a string or what ever to the main form?

@Rollo62 Thanks but 1. well putting a BreakPoint did not break in ServiceUnit which means the program does not use the ServiceUnit. 2. 10.3 or 10.4 has nothing to do with my problem 3. emulator should be ok too.

I wonder. I used test speed.rar. Under D10.2.3 IDE the numbers are 17xx But executing the exe the numbers are 28xx almost twice as much. How come?

AS far as I recall you have to change the keboard (API) to the language you need. Your computer has to have this feature in the keyboard for multi-language. Search Google for "Delphi change keyboard language"

What I have is a directory with the name DCU. Once the components compiled all dcu goes to that directory so I have ONLY ONE GLOBAL DIRECTORY LINK. (in the tools>options) Rarely do I need any source.

In my case, it compiles with D10.2.3 with some modification from D10.3 to D10.2.3 See also https://github.com/corneliusdavid/AutoGetIt/issues/6 Use https://github.com/TurboPack/DOSCommand

During my professional work, I made a huge amount of projects. I wonder if some free/opensource are there that scan the disk and find all the projects and print them. The project is not elaborate but I want very extensive analysis of what I have. So before I start I need to know if there is a free program to analyze (I have not given yet too much thought yet) the projects by their use/names and maybe more. The amount of projects is really big since Delphi 1 !!!! P.S find the main and which components are used and the uses and more

@Fr0sT.Brutal It seems to be my next project Well, I am always looking for something very interesting. After all, many of us work for the same things for years. Is it not time to change a little?

@FPiette Definitely NOT. Finding DPR is too simple. What I want is after hundreds of projects I wonder if I can deduce from the project files what the project is about. After more than 30 years I do not remember ALL that I have done. My way of thinking is far more complex than just finding DPR. It is about analyzing a project and deducing its use. Or coming close to the above by knowing what the components may be? Maybe some of the names I am using will give a clue? Yes, I know it is crazy. Looking at my back up I am (some time) amazed at what I find there.

I am using D10.2.3 GetIt does not work and shows this window. However, on my backup, I have D10.2 and GetIt works. Can someone help by telling me which FILES involve with GetIt so I will check/Replace those files. I hope I am correct with my way of thinking. Or anything else is the coalpits.

Well good luck. But thinking out of the box mite help

So? still dataset 1 as before.Dataset2 same.No? are there more? different data? sims to be very symmetric Change your way of viewing the data. MORE DATASET??

Are there only 4 rows per Instance? If so do not put it in 1 database. Put in 4 databases and you do not need to use SQL. Read in sequence. Once from each other since all 4 are the same size