hkbrazerzkidai.blogg.se - Free pascal win 8

#Free pascal win 8 windows

LRect2.Left := LRect.Left + ((LRect.Width - LSize.cx) div 2) LRect2.Top := Rect.Top + (Rect.Bottom - Rect.Top - LSize.cy) div 2 LSize.cy := GetSystemMetrics(SM_CYMENUCHECK) LSize.cx := GetSystemMetrics(SM_CXMENUCHECK) Please pay attention to how the the element to be drawn is selected depending of the current state and the current text. Now according to the value and the state of the checkbox is draw. (for this sample the Value 1 means checked otherwise means unchecked). Then I calculate the bounds of the checkbox and get the text for the column. LStyleService.DrawText(, LDetails, LText, LRect2, LTextFormat, LColor) įor the checkbox columns, the process start in the same way, first check if the item is highlighted and then the bar is drawn. LTextFormat := TTextFormatFlags(DT_SINGLELINE or DT_VCENTER or DT_LEFT or DT_END_ELLIPSIS) LRect2.Left := LRect2.Left + ListView_Padding LStyleService.DrawElement(, LDetails, LRect) LColor := LStyleService.GetSystemColor(clHighlightText) LDetails := LStyleService.GetElementDetails(tgCellSelected) LColummnType := TColumnType(TListView(Sender).Columns.Tag) Now I will iterate over all the columns of the Listview resolving the current column type, the text stored in the current item and calculating the bounds of the current item.įor i := 0 to TListView(Sender).Columns.Count - 1 do := LStyleService.GetSystemColor(clWindow) Procedure TFrmMain.LvSampleDataDrawItem(Sender: TCustomListView Item: TListItem Rect: TRect State: TOwnerDrawState) Next I will erase any previous content of the current row by filling with the current clWindow color.Ĭheck how the clWindow const is used in the TCustomStyleServices.GetSystemColor function to return the current Window Background color.

#Free pascal win 8 windows

Note : The StyleServices method returns an instance of a TCustomStyleServices type, which allow to gain access to all the styling functionality of the current active style ( Windows or VCL Style). (Format('Sample text 2', )) Īnd now I can start to draw the TListView items using the the OnDrawItem event.įirst I will store a reference to the StyleServices function (In this way I’m avoiding call the same function again and again). Next we need fill the listview with some sample data (This doesn’t requires much explanation right?). TColumnType = (ctText, ctCheck, ctProgress) Please pay attention to the Tag property of the Columns, I’m using this to store the type of the column ( TColumnType is a custom type). Procedure AddColumn(const AColumnName : String AWidth : Integer AColumnType : TColumnType) įColumns.Add(AColumnName, ()) įColumns.Caption := AColumnName įColumns.Tag := Integer(AColumnType) I’m using a TDictionary to hold the columns reference in that way I prevent create one variable per column and also I can access the columns by a Name. I will start creating the columns of the TListview in runtime (just for personal preference.). These controls must looks perfect under the Windows UI and the VCL Styles.

Ok, So I’m planning create a TListview in report mode and draw some controls like a checkbox and progressbar.

Note: Before to use the OnDrawItem event you must set the value of the property TListView.

Rect : The bounds of the item (including the subitems).

(you can use this object to read the data of the ListView).

Item : The list item which need to be drawn.

Sender : The ListView which is raising the event.

Item: TListItem Rect: TRect State: TOwnerDrawState) of object TLVDrawItemEvent = procedure(Sender: TCustomListView The OnDrawItem is an event handler of type So on this post I will show you how you can ownerdraw a TListView to be compatible with the native Windows Look and feel and the VCL Styles.įirst, there is lot of ways to ownerdraw a TListView, but on this post we will focus only in the OnDrawItem event, because offers more flexibility than the OnCustomDrawXXX events handlers . There is a lot of resources of how ownerdraw a Delphi TListView, but most of them are deprecated and don’t take into account the VCL Styles and the StyleServices.