Jump to content

Recommended Posts

Posted (edited)

@powerofos sorry to hear that, I can't reproduce it. Maybe an additional ghost column 0 (with 0 width) would be a more stable attempt, it would allow to drag all other visible headers and get rid of column 0 isssue, maybe...

Edit 1: you're right, I just saw your pic in last post. It happens when we use the mouse directly in LV (strange it didn't happen in precedent versions). As I used only the scrollbars to move up and down (or the F3 key to search match) then it didn't happen to me. If a solution is not found then I'll delete this last version "2t". I felt that this "header dragging" function would bring problems not found in precedent versions !

Edit 2: what's interesting is that this issue happens in "2t" even when we don't drag any header (just tested). So I'll try to modify again the precedent version "2s" (which is working fine) hoping to catch  the script line that creates this issue.

Edit 3 : it's line #347 in version "2t" that creates the issue, but how not to use it as it's related to subitem 0 ?

GUICtrlSendMsg( $g_idListView, $LVM_GETITEMRECT, $itemID, $pRect )

Especially that when we use the mouse wheel slowly in the listview (not using scrollbars), then all rows seem to be displayed correctly. Let's hope LarsJ will have an idea about this.

I really wonder if an additional empty column 0 would solve this issue and allow us to use fluently the draggable header feature with virtual listview + over drawn. This was my 1st thought and I'll try it asap : a ghost column 0, non draggable, having 0 width. Until then, for users who read this, last stable version is "2s" in precedent page, not "2t"

Jon just released AutoIt v3.3.15.4 Beta, that's very interesting :)

Edited by pixelsearch
Posted

This error situation typically occurs in a message handler in a custom drawn, owner drawn or virtual listview, where more code is executed than there is time for.

This is probably not an actual error in the code. The error is due to the fact that AutoIt as an interpreted language isn't fast enough to handle so many messages and so much code at once.

You can analyze the problem with Windows Message Monitor. Compare e.g. the message flow when scrolling with the scroll bar and when scrolling with the mouse scroll button.

It may be possible to limit the number of messages when scrolling with the mouse scroll button and thus get around the problem.

Posted (edited)

@LarsJ thanks for your good advices, as always :)

@powerofos  @Norm73 I just replaced 3 lines (346 to 348) in the last script "2t" found at the precedent page.

3 deleted lines :

DllStructSetData( $tRect, 1, $LVIR_LABEL ) ; Left
GUICtrlSendMsg( $g_idListView, $LVM_GETITEMRECT, $itemID, $pRect )
; DllStructSetData( $tRect, 3, DllStructGetData( $tRect, 1 ) + GUICtrlSendMsg( $g_idListView, $LVM_GETCOLUMNWIDTH, 0, 0 ) )

Replaced with :

Local $aRect = _GUICtrlHeader_GetItemRect($g_hHeader, 0)
DllStructSetData( $tRect, 1, $aRect[0]) ; left
DllStructSetData( $tRect, 3, $aRect[2]) ; right

Now I can scroll using the mouse without any issue.
Could you please try it, drag headers etc... then report if everything worked for you ?
Thanks and fingers crossed.

Edited by pixelsearch
Posted (edited)

1.thumb.png.6c062c1bc758157a1d0a203f462ae708.png

@ pixelsearch

thank you!

Function: 

_GUICtrlHeader_GetItemRect($g_hHeader, 0)

 The return value of getitemrect is static. It cannot dynamically update the position data of column 0 with the operation of the horizontal scroll bar of the listview

So in the last report, I mentioned that I need to get the left column ID of 0 column , and use the position of the left column ID to dynamically update, so as to deal with the problem of self drawing and redrawing caused by horizontal scrolling

I'm sorry that this issue was not mentioned in the last report

Have a nice weekend!

Edited by powerofos
Posted

All the problems I mentioned are caused by the fact that the position X of column 0 cannot be dynamically obtained (horizontal scrolling) through the function after it is changed😖

Posted
35 minutes ago, powerofos said:

...the problem of self drawing and redrawing caused by horizontal scrolling

I'm sorry that this issue was not mentioned in the last report

No problem. So you have a horizontal scroll issue...
At least the 3 replaced lines in "2t" fixed the vertical scroll issue, when there is no horizontal scrollbar, that's a good thing already done.

 

Posted (edited)

@powerofos glad I didn't delete a few hours ago a text file named "keep a moment, who knows.txt", its content will be displayed below.

I'm sticking to the idea of creating a ghost hidden column 0, maybe it could solve your issue of horizontal scrolling and headers dragging, it will leave column 0 hidden and untouched.

This is just the basic (unfinished) changes you could try in version "2s" (not "2t") found in preceding page, to see where it goes. I tried it, now there is a horizontal scrollbar in the pic below ("strings" column width changed from 230 to 330) and its redraw looks fine when you drag and redrag it (as it's no more column 0)

71510908_2swithhiddencol0.png.61c623e6d6fed380a662e6670f3c4b6e.png

 

Basic changes in "2s" (or in a copy of "2s" to keep original untouched)

===========
Lines 12-14
old
Global $g_iRows = 1000, $g_iCols = 6, $g_hGui, $g_hListView, $g_hHeader, $g_hEdit
Global $g_aCols = ["Strings", "Integers", "Floats", "Dates", "Times", "R/C"], $g_aWidths = [230, 61, 124, 70, 60, 60]
Global $g_aColAligns[$g_iCols] = [2, 1, 1, 1, 1, 1] ; $HDF_LEFT = 0, $HDF_RIGHT = 1, $HDF_CENTER = 2

new
Global $g_iRows = 1000, $g_iCols = 1 + 6, $g_hGui, $g_hListView, $g_hHeader, $g_hEdit
Global $g_aCols = ["", "Strings", "Integers", "Floats", "Dates", "Times", "R/C"], $g_aWidths = [0, 330, 61, 124, 70, 60, 60]
Global $g_aColAligns[$g_iCols] = [0, 2, 1, 1, 1, 1, 1] ; $HDF_LEFT = 0, $HDF_RIGHT = 1, $HDF_CENTER = 2

===========
Lines 58-61
old
  $g_idComboCol = GUICtrlCreateCombo("0", 452, 9, 41, 20, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
  $g_iSearchCol = 0 ; default column where to search (changeable)
  Local $iSearchColPrev = $g_iSearchCol
  For $i = 1 To $g_iCols - 1

new
  $g_idComboCol = GUICtrlCreateCombo("1", 452, 9, 41, 20, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
  $g_iSearchCol = 1 ; default column where to search (changeable)
  Local $iSearchColPrev = $g_iSearchCol
  For $i = 2 To $g_iCols - 1

===========
Line 71
old
  _GUICtrlListView_SetExtendedListViewStyle($g_idListView, BitOr($LVS_EX_DOUBLEBUFFER, $LVS_EX_FULLROWSELECT))

new
  _GUICtrlListView_SetExtendedListViewStyle($g_idListView, BitOr($LVS_EX_DOUBLEBUFFER, $LVS_EX_FULLROWSELECT, $LVS_EX_HEADERDRAGDROP))

===========
Line 444
old
  $g_aArray = FAS_Random2DArrayAu3($g_iRows, "sifdtr", "abcdefghijklmnopqrstuvwxyz")

new
  $g_aArray = FAS_Random2DArrayAu3($g_iRows, "isifdtr", "abcdefghijklmnopqrstuvwxyz")

Unfortunately, the search function needs now to be amended, but well, that's a start and better than nothing.
I'm not sure I'll keep on digging into this as it's starting to be complicated, we'll see.
Hope it will help you and good luck :)

Edit: also please remember what LarsJ wrote about the issue of resizing columns in these LV ("No ListView column resizing by dragging header dividers")

"A workaround for all these HDN_DIVIDERDBLCLICK issues is to set correct column widths from the start, and then disable column resize through dragging/double-clicking header dividers by adding the HDS_NOSIZING style to the header control."

 

Edited by pixelsearch
$HDS_NOSIZING note
Posted (edited)

For me (2s with adjustment) all scroll options work fine.

There are still two minor things to fix.

Test.png.9ebe07435ca006a644c4a37898cd9204.png

P.S.

If the width of the columns cannot be changed, and all of the text is not visible, then it makes sense to try to show it through the ToolTip when you hover over the SubItem or Heading.

Edited by Norm73
Posted

@Norm73 Glad to hear that "2s with adjustment" works for you.
I was aware that the orange marker needs a little fix, but first I wanted to make sure that the basic adjustment works on your computer (it should work on powerofos's computer too)

So the idea is to have an additional empty hidden column 0, so we get rid of all issues concerning column 0 if it stays constantly at the leftmost position, which means we also need to prevent any other header to be dragged at leftmost position !

In the test script below, I succeeded to prevent this. Imagine column 0 being hidden in this test script, then when you launch it, this is what happens :
1) You can't drag header 0 anywhere, great !
2) If you try to drag any other header at the leftmost position (i.e. at the left of column 0) then it won't be accepted, which is what we want. All others dragging cases are accepted.

Thanks to  $tNMHEADER.pItem that I discovered recently on msdn

#include <GuiListView.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

$hGUI = GUICreate("ListView: prevent some dragging", 400, 300)
$hListView = GUICtrlCreateListView("Column 0|Column 1|Column 2|Column 3", 2, 2, 394, 268)
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOr($LVS_EX_FULLROWSELECT, $LVS_EX_HEADERDRAGDROP))
$g_hHeader = _GUICtrlListView_GetHeader($hListView)

GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
GUISetState()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
    Local $tNMHEADER = DllStructCreate($tagNMHEADER, $lParam)
    Local $iCode = DllStructGetData($tNMHEADER, "Code")

    Switch $iCode
        Case $HDN_ENDDRAG ; "sent by a header control when a drag operation has ended on one of its items."
            Local $iCol = DllStructGetData($tNMHEADER, "Item")
            Local $tHDITEM = DllStructCreate($tagHDITEM, $tNMHEADER.pItem)
            ConsoleWrite("$iCol = " & $iCol & "   $tHDITEM.Order = " & $tHDITEM.Order & @lf)
            ; if dragged header = column 0 (possible on hidden column ? [in another script]) OR
            ; if dragged header (> 0) is dropped at leftmost position (at the left of hidden column 0) ...
            ; ...then prevent header to be dragged (Return True)
            If $iCol = 0 Or $tHDITEM.Order = 0 Then Return True ; True prevents, False allows
    EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc

; see also "176a.au3" (for other very interesting use of $tNMHEADER.pItem)

But no hurry, please do not add this Case $HDN_ENDDRAG to "2s with adjustment" right now as it needs $tNMHEADER etc... When a new version will be ready, I'll include the fixes we're talking about, though I won't touch at "2s" and "2t" in the precedent page : they work fine when there is no horizontal scrollbar. New versions will probably be "2u" etc... though the alphabet end will soon be reached :D

Posted
10 hours ago, Norm73 said:

For me (2s with adjustment) all scroll options work fine.

Unfortunately, for me it doesn't work fine and I have an issue, when some kind of searches are done, for example :
* Tick "Show all rows" in context menu
* Search what you want (for example an "a" in the String column)
* Make sure the horizontal scrollbar is NOT at its leftmost position (drag it a bit on the right)
* Then when you click "Next" button (or keyboard F3), the whole GUI will minimize... thanks to the horizontal scrollbar when it's not at its leftmost position. If you start again and do same with the horizontal scrollbar placed at its leftmost position, then everything works fine. And this has nothing to do with dragged headers or not.

I already have a fix for this but it's really a strange issue. What's the fix ?
Comment 3 lines in Case $idNext and same 3 lines in Case $idPrev

;~     _GUICtrlListView_ClickItem($g_idListView, $i)
;~     If $iStart = 0 Then
;~     EndIf

(keep what's between If and EndIf of course)
Now the match row appears always at the top of LV (whatever the position of the horizontal scrollbar) and the Gui doesn't minimize.

I wonder if LarsJ already encountered an issue like that.

Posted (edited)

For @pixelsearch

  1. Drag and drop works as advertised.
  2. The described problem, with the disappearance of the window into the background, is also present for me.
Edited by Norm73
Posted
10 hours ago, Norm73 said:

Can this be somehow removed?

Maybe by checking the rectangle coords for the matching substring, for example :

overlapping.png.720cd515b80d39660a6e21c5b51c4b02.png

; Rectangle for matching substring
...
ConsoleWrite($tRect.Left & "   " & $tRect.Right & @lf)
135   142

As the blue rectangle goes from 135 to 142, which is outside the resized "Strings" column, then don't display the match, I'll try to think about it... when all the rest will be ok . By the way, the important orange marker is fixed now, no matter you drag a header or scroll horizontally. It will be added in next release.

I found an incredible post of LarsJ concerning "AutoIt messages and Windows messages" in this link. He explains everything very well and his post should really be placed in AutoIt wiki pages (my bad if it's already there)

Happy reading and re-reading it.

Posted
On 6/13/2021 at 2:27 AM, powerofos said:

_GUICtrlHeader_GetItemRect($g_hHeader, 0)

 The return value of getitemrect is static. It cannot dynamically update the position data of column 0 with the operation of the horizontal scroll bar of the listview...

...All the problems I mentioned are caused by the fact that the position X of column 0 cannot be dynamically obtained (horizontal scrolling) through the function after it is changed

Though the return value is static while you scroll horizontally, I was able to obtain the new X position during the scrolling or after the scrolling (or after a header dragging), it allowed the orange marker to be placed just above any column after an horizontal scroll. The complete code isn't ready for a new release but meanwhile, here is the basis :

1507580651_1-noscroll.png.7adec6761ed01347c33c724e7548ba99.png

0   330
200

2-scroll.png.42665206613dc0a099089af251a66292.png

0   330
121
...
Global $g_idEndDragDummy
...
$g_idEndDragDummy = GUICtrlCreateDummy()
...
Case $g_idEndDragDummy ; in main loop
    _MoveMarker(GUICtrlRead($g_idComboCol))
...
Case $LVN_ENDSCROLL ; in Notify handler (listview part)
    _MoveMarker(GUICtrlRead($g_idComboCol))
...
Case $HDN_ENDDRAG ; in Notify handler (header part)
    GUICtrlSendToDummy($g_idEndDragDummy)
    Return False ; allow changes
...
;========================================================================
Func _MoveMarker($iCol)

  Local Static $tPoint = DllStructCreate("int X;int Y")
  Local $aLisViewPos = WinGetPos($g_hListView) ; left & top will change when user moves GUI

  Local $aRect = _GUICtrlHeader_GetItemRect($g_hHeader, $iCol)
  ; ConsoleWrite($aRect[0] & "   " & $aRect[2] & @crlf)
  DllStructSetData($tPoint, "X", $aRect[0])
  DllStructSetData($tPoint, "Y", $aRect[1]) ; unused
  _WinAPI_ClientToScreen($g_hHeader, $tPoint)
  ; ConsoleWrite($tPoint.X & "   " & @crlf)
  ControlMove($g_hGui, "", $g_idMarker, $tPoint.X - $aLisViewPos[0] + 10, 40 - 3, $aRect[2] - $aRect[0] + 1, 3) ; 10 / 40 are LV coords
EndFunc   ;==>_MoveMarker

LarsJ says that functions shouldn't be called from windows message handlers (his great link in previous post) so I should modify the code to reflect this.

As you can see, though the rectangle is static (0 - 330, i.e. the width of our new String column) before and after the scroll in both pics, we also see "200" and "121" which corresponds to $tPoint.X in the 2nd ConsoleWrite of the function  _MoveMarker()

Thanks to the function _WinAPI_ClientToScreen() we can calculate $tPoint.X and it's not static anymore.
For the orange marker, I also needed WinGetPos($g_hListView) in case the user moves the GUI, ending in the following X position for the orange marker after an horizontal scroll, or a dragged header, or a right click on a header (which switches to a new search column) have been performed :

$tPoint.X - $aLisViewPos[0] + 10 ; 10 is a LV coord

Concerning your issue, during the horizontal scrolling, you could dynamically track this X position through $LVN_ENDSCROLL message as shown in the precedent basic code : it will return plenty of new X coords, for example :

$g_iRows = 1    $g_iCols = 7
Computed LV height = 69 pixels
0   330
200   
0   330
199   
0   330
198   
0   330
192   

...

0   330
126   
0   330
123   
0   330
122   
0   330
121   
>Exit code: 0

By the way, In the 2 pics above, there is a hidden Col 0 (having 0 width) which explains why it's written "1" in the Combobox, because I don't want to use LVM_GETITEMRECT anymore for column 0, it created a mess while using the mouse for vertical scrolling (in version "2t"). The advantage of having a hidden Col 0 (not draggable) brings fresh air when you drag any other header to any place, starting at 1+ header, fingers crossed !

Hope this helps and see you on next release :)

Posted (edited)
On 6/13/2021 at 6:46 PM, Norm73 said:

The described problem, with the disappearance of the window into the background, is also present for me.

Gladly the code isn't responsible for that. As discussed today in this thread, spudw2k is encountering the same behavior in a very basic script I presented there. There's a problem with _GUICtrlListView_ClickItem() when an horizontal scrollbar is present. Now we have to find a solution for that.

Edit: Trac Ticket #3827 created

Edited by pixelsearch
Posted (edited)

Hi everybody,
The attached script (version 2y) allows to drag and resize any column (even column 0) without having characters overlap other columns :)

Well... this is the end of my "journey through incremental search" as all functionalities have been added. Thanks to all contributors and a special thanks to LarsJ :bye:

1741669016_2y-nooverlap.png.870f7b451f5e0e653e67b4742f076bf8.png

1688560690_2y_2-arrayfromcsv.png.0967898f17dd4678d952b72aaaf5368b.png

Edit: June 22, 2021 * minor update (less code for computing col 0 coords, in Func WM_DRAWITEM, after an horizontal scrolling has been performed)

* added functionality : do not draw actual non-visible column(s), this makes a big difference when LV got many columns : the scrolling stays smooth (tested)

Edit: June 25, 2021 * Fixed issue with left-aligned columns in Func WM_DRAWITEM (thanks Norm73)

Incremental Search (2y).au3

Edited by pixelsearch
Issue fixed on June 25th, 2021
Posted

@LarsJ this thread is 5.5 years old and I notice that you never edit ZIP in your OP .... so I wonder do you have all changes/examples from this entire thread at one place ?
Maybe you have done some fixes/improvments ?
Could you merge them to single zip and attach in OP ?
 

mLipok

 

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST APIErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskSchedulerIE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related:How to get reference to PDF object embeded in IE * IE on Windows 11

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuffOnHungApp handlerAvoid "AutoIt Error" message box in unknown errors  * HTML editor

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Posted

Hello @pixelsearch,
Thanks for the latest version I'm busy with right now.
I stumbled upon one problem that appears if any column has Align set to 0.

If there is such a column, then after moving it to the left, it becomes empty.

For example:
Global $ g_aColAligns [$ g_iCols] = [2, 0, 1, 0, 1, 2]

Align.png.a32c738e49afa1057e49f8919446ea48.png

Posted (edited)

Hi Norm73,
Thanks for the detailed report :)
The issue can be easily fixed with a little modification. I got 2 possibilities for that :

* Actual code in "2y" : this is the issue you described, because $iKeep_Left = $tRect.Left only for right-aligned or centered columns (not really good)

; Subitem rectangle for right and center aligned columns
    If $g_aColAligns[$iCol] Then ; $HDF_LEFT = 0, $HDF_RIGHT = 1, $HDF_CENTER = 2
      DllCall( "gdi32.dll", "bool", "GetTextExtentPoint32W", "handle", $hDC, "wstr", $sItemText, "int", StringLen( $sItemText ), "struct*", $tSize ) ; _WinAPI_GetTextExtentPoint32
      ; Keep left coord of subitem before it's lost
      $iKeep_Left = $tRect.Left
      Switch $g_aColAligns[$iCol]
        Case 1 ; $HDF_RIGHT
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tSize, "X" ) - 6 )
        Case 2 ; $HDF_CENTER
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Left" ) + ( DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tRect, "Left" ) - DllStructGetData( $tSize, "X" ) ) / 2 - 3 )
      EndSwitch
    EndIf

1) 1st possible way to fix this : $iKeep_Left no more in the "If $g_aColAligns" test, so it will have a correct value even for left-aligned columns, as soon as you move the line $iKeep_Left = $tRect.Left before the "If $g_aColAligns" test

; Keep left coord of subitem before it's lost
    $iKeep_Left = $tRect.Left

    ; Subitem rectangle for right and center aligned columns
    If $g_aColAligns[$iCol] Then ; $HDF_LEFT = 0, $HDF_RIGHT = 1, $HDF_CENTER = 2
      DllCall( "gdi32.dll", "bool", "GetTextExtentPoint32W", "handle", $hDC, "wstr", $sItemText, "int", StringLen( $sItemText ), "struct*", $tSize ) ; _WinAPI_GetTextExtentPoint32
      Switch $g_aColAligns[$iCol]
        Case 1 ; $HDF_RIGHT
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tSize, "X" ) - 6 )
        Case 2 ; $HDF_CENTER
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Left" ) + ( DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tRect, "Left" ) - DllStructGetData( $tSize, "X" ) ) / 2 - 3 )
      EndSwitch
    EndIf

2) 2nd possible way  : Case 0 has been added ($HDF_LEFT) and the If $g_aColAligns" test is commented, then the +6 (pixels) found in Case 0 brings some space at the beginning of the left-aligned column, it seems enjoyable to bring a little distance between columns.

; Subitem rectangle for right and center aligned columns
;~  If $g_aColAligns[$iCol] Then ; $HDF_LEFT = 0, $HDF_RIGHT = 1, $HDF_CENTER = 2
      DllCall( "gdi32.dll", "bool", "GetTextExtentPoint32W", "handle", $hDC, "wstr", $sItemText, "int", StringLen( $sItemText ), "struct*", $tSize ) ; _WinAPI_GetTextExtentPoint32
      ; Keep left coord of subitem before it's lost
      $iKeep_Left = $tRect.Left
      Switch $g_aColAligns[$iCol]

        Case 0 ; $HDF_LEFT
          DllStructSetData( $tRect, "Left", $tRect.Left + 6)

        Case 1 ; $HDF_RIGHT
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tSize, "X" ) - 6 )
        Case 2 ; $HDF_CENTER
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Left" ) + ( DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tRect, "Left" ) - DllStructGetData( $tSize, "X" ) ) / 2 - 3 )
      EndSwitch
;~  EndIf

3) But as the message GetTextExtentPoint32W seems superfluous at this stage for left-aligned columns (in 2), then what follows seems better :

; Keep left coord of subitem before it's lost
    $iKeep_Left = $tRect.Left

    If $g_aColAligns[$iCol] Then ; $HDF_RIGHT = 1, $HDF_CENTER = 2
      DllCall( "gdi32.dll", "bool", "GetTextExtentPoint32W", "handle", $hDC, "wstr", $sItemText, "int", StringLen( $sItemText ), "struct*", $tSize ) ; _WinAPI_GetTextExtentPoint32
      Switch $g_aColAligns[$iCol]
        Case 1 ; $HDF_RIGHT
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tSize, "X" ) - 6 )
        Case 2 ; $HDF_CENTER
          DllStructSetData( $tRect, "Left", DllStructGetData( $tRect, "Left" ) + ( DllStructGetData( $tRect, "Right" ) - DllStructGetData( $tRect, "Left" ) - DllStructGetData( $tSize, "X" ) ) / 2 - 3 )
      EndSwitch
    Else ; $HDF_LEFT = 0
      DllStructSetData( $tRect, "Left", $tRect.Left + 6) ; if left-aligned column, add some space between columns
    EndIf

Please try any possibility and tell us which one suits you best, ok ?
Thanks

Edited by pixelsearch
added 3rd possibility

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...