if ssAlt in ShiftState then begin AltPressed := True; // Remove the Alt key from the shift state. It is not meaningful there. Exclude(ShiftState, ssAlt); end else AltPressed := False;
if ssAlt in ShiftState then begin // Commented next 3 lines to enable Selecting rows with Alt key - this code was disabling select with Alt (* AltPressed := True; // Remove the Alt key from the shift state. It is not meaningful there. Exclude(ShiftState, ssAlt);*) end else AltPressed := False;
so I don't change the original code. This way I don't loose my changes when upgrading to new version of VirtualTreeview from my current 4.8.6.
procedure TBaseVirtualTree.HandleMouseDown(var Message: TWMMouse; var HitInfo: THitInfo);
TBaseVirtualTree = class(TCustomControl) ... protected ... procedure HandleMouseDown(var Message: TWMMouse; var HitInfo: THitInfo); virtual;
|Get a Metafile from Clipboard and convert it into a PNG to save to file or stream.||2||99|
|How do I use MySQL Server 5.1 for viewing, handling and exporting/importing to/from my Excel workbook a lot of textfiles created by a statistical software developed in Delphi 7.1?||11||94|
|Delphi application Soap connection||5||96|
|SUM 2 INTEGER ARRAYS INTO 1||10||93|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!