direktor05

Hello, Does anybody know of a Grid or ListView component that has both checkbox and combobox? I'm trying to get rid of LMD treelist. Should support x64. Regards

I'm getting a ton of issues converting from x32 to x64. First one: var Size: Cardinal; Handle: Cardinal; FileName: String; begin if ModuleName = '' then FileName := OAExeName else FileName := ModuleName; Size := GetFileVersionInfoSize(PWideChar(FileName), Handle); Size returned is 0 and the error is: VerQueryValue (Language in Project Settings/Version Info has to be set to English (United Kingdom)) var SubBlock: String; ValuePointer: Pointer; ValueLen: Cardinal; begin SubBlock := '\StringFileInfo\080904E4\' + ValueName; TestGetLastError(VerQueryValue(@FBuffer[0], PWideChar(SubBlock), ValuePointer, ValueLen), 'VerQueryValue (Language in Project Settings/Version Info has to be set to English (United Kingdom))'); Result := PChar(ValuePointer); So what is wrong? I assume it's the variable (un)signed-ness again. GetFileVersionInfoSize(PWideChar(FileName), Handle) - Handle must be Cardinal according to API definition. How can I fix this? Another one is array of Byte variable is causing AV error.

Does anyone know why this cxTreeList does not display text in front of checkbox? There is space but characters are not seen. I tried setting styles and font color it doesn't work.

Also how to get column property values? cxTreeList.Columns[0].Properties.Items[1].Text does not work.

You mean because I'm too poor from Africa? 🙂

The error I get is 1813 - resource not found

Hello, I want to do drag drop from Windows Explorer to my app via OLE interface IDropTarget. Question is how do I detect if OLE communication is working well. For now RegisterDragDrop function is working fine. But I can't get a call to DragEnter function when dragging starts. How can I check that OLE is working fine and that dragging somehow starts? But why I can't get DragEnter function to run? Here is some nice theory: https://delphidabbler.com/articles/article-24 I can't get any of this functions to work or be called. What is wrong? And how do I check if OLE can detect drag-drop in the first place? function DragEnter(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall; function DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall; function DragLeave: HResult; stdcall; function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;

REMY YOU SOLVED MY PROBLEM! THANKS.

ha ha, ok I'll bite you

In my code the file list is not filled: FileName := PWideChar(Cardinal(DropFiles) + DropFiles.pFiles); where DropFiles comes from WinApi.ShlObj - which means the file list is not being transferred from Windows on IDropTarget.DragEnter IDropTarget.DragEnter is called but the file list is empty.

You could also tell me your idea of "example of working around the UAC restrictions " so I don't have to go through your non-working code.

Not very professional! Doesn't work at all!

Is this component made only for Delphi up to 2011? How about Delphi 11?

Remy you are genius!

Anders your component probably does diagnostic according to your component functions not in general. I need a solution how do you check if a procedure of function is executed/called inside OLE/ActiveX dll, better yet specifically inside shell drag drop dll? Any hero here?

How can I check if OLE is called? CoInitialize works OK. RegisterDragDrop also OK. There is no error anywhere but the thing does not work. How can I test a call to OLE dll?

procedure TForm1.Create(Sender: TObject); begin RegisterDropTarget(TFileDropTarget.Create(FileDragEnter, FileDragOver, FileDragDrop, FileDragLeave)); end; procedure TForm1.RegisterDropTarget(Handler: IDropTarget); begin RegisterDragDrop(Handle, Handler); FDragDropHandle := Handle; end; procedure TForm1.FileDragEnter(Sender: TObject; FileList: TStrings; Point: TPoint; Shift: TShiftState; var Action: TFileDropAction); begin IT NEVER ENTERS HERE FDragFromWindows := True; Point := ScreenToClient(Point); UpdateFileDragAction(FileList, Point, Action); end;

But there still is a question why my DragEnter code is not executed? And how can I find the answer?

https://www.swissdelphicenter.ch/en/showcode.php?id=1627

RegisterDropTarget(TFileDropTarget.Create(FileDragEnter, FileDragOver, FileDragDrop, FileDragLeave));

RegisterDragDrop(Handle, Handler); Handle: 722688 Handler: TFileDropTarget($23747B02490) as IDropTarget So I have a pointer to IDropTarget, but it does not call IDropTarget.DropEnter function when I start the drag operation. Why not? And how can I check this?

https://learn.microsoft.com/en-us/windows/win32/shell/dragdrop I'm stopped at point 1 or 2.

Hello, I have a list that is running procedures and functions all the time, based on timers. Like Load List, Do Something, Check Something, Do Next Thing.... How would I check when certain event happens on one line in the list. If I go through debugging it would be a night mare to go through 100s of procedures just to see whats happening in 1 line of list. I'd need some kind of event listener or something that would be triggered only when certain conditions are met or certain action happens on the list. To log events that happen after that. How would I make such an event listener. However this is not event listener based on component - like click or something. But when certain data would come into the list or when certain time would come when process would jump to specific line in the list.

ok I'll try

Uwe you are always full of good ideas. Yes this possible methods are many. A few 10. The condition I don't know exactly, if I'd know the triggering condition I'd know where to find the right procedure. That is the catch. I need to know what is triggering the procedures that are executed on timer Track 2 and which methods are triggered.