The new TEdgeBrowser component wraps Microsoft WebView2 component. But the grid was still drawn as a single line with the same text.RAD Studio 10.4 is going to bring support for working with web content through a new Chromium-based Edge browser control in VCL applications. The result should have been empty cells on the new grid. I commented out the executable code that was supposed to draw the text. Canvas.FillRect was supposed to draw filled squares over data cells, over which new text would be drawn This is where I discovered that the program is already not working as it should. Inherited DrawColumnCell(Rect, DataCol, Column, State) Procedure TMdDbGrid.DrawColumnCell (const Rect: TRect DataCol: Integer PostMessage (Handle, WM_SIZE, 0, MakeLong(Width, Height)) the visible rows in the private UpdateRowCount method send a WM_SIZE message to let the base component recompute RowHeights := PixelsPerRow * FLinesPerRow RowCount := 1 + (Height - PixelsTitle) div (PixelsPerRow * FLinesPerRow) ĭefaultRowHeight := PixelsPerRow * FLinesPerRow PixelsTitle := Canvas.TextHeight('Wg') + 4 PixelsPerRow := Canvas.TextHeight('Wg') + 3 Procedure TMdDbGrid.SetLinesPerRow(Value: Integer) RegisterComponents('M圜omponents', ) Ĭonstructor TMdDbGrid.Create(AOwner: TComponent) Read FLinesPerRow write SetLinesPerRow default 1 Procedure DrawColumnCell(const Rect: TRect DataCol: Integer Ĭolumn: TColumn State: TGridDrawState) override Ĭonstructor Create (AOwner: TComponent) override Procedure SetLinesPerRow (Value: Integer) SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,įorms, Dialogs, DB, StdCtrls, ExtCtrls, Grids, DBGrids It seems to does draw what I want, but I can't see it! I checked it by drawing a simple rectangle in OnDrawColumn event and moved PageControl up and down to check.Įdit2:Sorry for testing your patience, Tom Brunberg, and here is the code: (Also I have uploaded the files at ) unit MdDbGrid

Though Canvas draws on the form, it draws under it's elements. Okay, looks like I've found the source of the problem. It acts like a standart DBgrid, no word wrap happened For certain reasons I can't use additional components such as EhLib or DevExpress QuantumGrid, so I'm trying to make my own component, derivative from standart DBGrid.īut I don't have enough in-depth knowledge of Delphi, and thus tried to use example fromīut.

Download delphi component