Stano

No, no and no. Don't read the instructions! I don't know if you want to know: If you do not divide by not an integer, then you have to retype. E.g. CAST (1/3 AS DOUBLEPRECISSION) AS RESULT Otherwise, the result will be Integer.

I spent half a day on it. He keeps telling me that "Resource PRINTFORM not found". I tried all the options. Even without rc. The error did not disappear. I'm already desperate package JasotComponents; {$R *.res *.rc} {$R JasotComponents.res JasotComponentsResource.rc} {$R JasotComponents.res JasotComponents.rc} ...

You haven't read it carefully or the translation is bad. I always used only one line. I'm not that crazy. I did not check the translation. Sorry. When I started reading about manually compiling resources and runtime packages, wrapped me up deadly sweat. I solved this using TVirtualImageList. It's not clean. But simple and it can be used. It's closed to me.

---

Yes. So I tested it. Only one case at a time! I haven't come across anything like this anywhere. I can try. Images are displayed on the palette.

Custom component FCaptions: TStrings; // or FCaptionsAdded: TStringList; I'm trying property as published. I am not entering this process Writer and Reader TStream The entry is OK I won't even get into the reading method. I have these errors: published - Error reading Nav.CaptionsAdded.Strings: invalid property path (???) other - Error creating form in MainForm.dfm: Error reading jstnav2.CaptionAdded: Access violation at address 4E352E4F in module 'JasotComponents.bpl'. Read of address 00000000 As a layman. I don't understand why this is happening at all.

The dfm file is obviously annoyed by the manual intervention in its contents.

The data was written to me in dfm. Not now. I'm talking about writing at design time (ComponentEditor). I enter the data, compile it and (supposedly) writes the data. Gives me back the number of bytes I have tried all the methods listed here. With Writer I get after completing all the functions (3) There is no notification when using Stream. Does anyone have any type where the mistake is? procedure TjstVstDBNavigator.WriteCaptionAdded(Stream: TStream); begin var S: String := FCaptionsAdded.Text; var Len: Integer := Length(S); Stream.Write(Len, SizeOf(Integer)); if Len > 0 then Stream.Write(S[1], Len * SizeOf(Char)); // Stream.Write(PByte(@S[1])^, Len * SizeOf(Char)); end; procedure TjstVstDBNavigator.WriteShortCutAdded(Stream: TStream); begin var Count: Integer := FShortCutsAdded.Count; Stream.Write(Count, SizeOf(Integer)); for var SC: TShortCut in FShortCutsAdded do Stream.Write(SC, SizeOf(SC)); end; procedure TjstVstDBNavigator.WriterCaptionAdded(Writer: TWriter); begin Writer.WriteListBegin; try for var I := 0 to FCaptionsAdded.Count - 1 do Writer.WriteString(FCaptionsAdded[I]); finally Writer.WriteListEnd; end; end;

The dfm file is obviously annoyed by the manual intervention in its contents.

Of course. You have to put them in GROUP BY. No TDATE.

The error was in the file itself. I set him full access rights. Nothing. I created a new one. Both writing and reading work. I can debug it.

The error was in the file itself. I set him full access rights. Nothing. I created a new one. Both writing and reading work. I can debug it.

MAX(TDATE)

It is possible. I had a hidden error (out of range) that could have caused it. After removing it, I did not try published. Thanks to Uwe, I solved the problem immediately with Loaded.

I do not want to publish these properties. I have a ComponentEditor on them. Of course I can change that. I tried it. Write OK, loading failed! And that's a big problem.

I have never done it. But the procedure is clear: You will be browsing the directory For each image, you insert it into the BLOB using TStream from file On internet are examples of this. I don't know more Good luck

Please use lowercase letters. That's how you yell at us. I hardly understand anything about it. I have a fundamental question: where are the jpegs stored? In DB as BLOB or on disk? This is where working with them comes from. I recommend deploying FireDAC.

Well thank you. It makes sense.

I thought the problem was clear I can't read the data from dfm. That is all. To be sure, I enclosed the entire passport. Interesting are: FCaptionsAdded: TStrings; procedure ReadCaptionAdded(Reader: TReader); procedure WriteCaptionAdded(Writer: TWriter); procedure TjstVstDBNavigator.WriteCaptionAdded(Writer: TWriter); begin Writer.WriteListBegin; try for var I := 0 to FCaptionsAdded.Count - 1 do Writer.WriteString(FCaptionsAdded[I]); finally Writer.WriteListEnd; end; end; procedure TjstVstDBNavigator.ReadCaptionAdded(Reader: TReader); var Len: Integer; begin ShowMessage('ReadCaptionAdded'); // I won't get here end; jstVstDBNavigator.pas MainForm.dfm MainForm.pas

I'm using google translate. The result is appalling. To the problem: it is on the db where to store the record. You must don't care! You must secure the order in Query using ORDER BY. Not different.

My component contains the field FVirtualTree: TBaseVirtualTree; FVirtualTree is not a subcomponent. There are examples of this. Assigned during design. I need to write an OnChange event for FVirtualTree in the component. It should work like this When writing a component: for FVirtualTree I will create OnChange. I'll write my code At design runtime Assign to component (property VirtualTree) Vst1 (TVirtualStringTree) For Vst1 I define the OnChange event During the runtime I change the node - it calls Vst1.OnChange I'll do something there I call FVirtualTree.OnChange Vst1.OnChange completes I did not find anything about such a case.

I gave up the original idea. What I asked here.

You brought me the following solution, which I originally rejected. That's not how I imagined it. It's the easiest. Thanks! procedure TfrmMainForm.jstvst1Change(Sender: TBaseVirtualTree; Node: PVirtualNode); var NodeData: PAddress; begin if not Assigned(Node) then Exit; NodeData := jstvst1.GetNodeData(Node); jstnav1.PKeyValue := NodeData.PKey; jstnav1.VirtualTreeChange(Sender, Node); // I thought he would be inherited here

Unfortunately, it's not good. It behaves as if I simply / directly assigned the event to VST. It means: the TjstVstDBNavigator.VirtualTreeChange procedure is called (Sender: TBaseVirtualTree; Node: PVirtualNode); MyVst.OnChange is NOT called

Looks like yes. I'll try and let you know.