Downloads for XE or older are LMD 2020 installers.Īll releases contain 32bit + 64bit support, latest ServicePack required! This is a LMD 2022 release and should not be used at the same time with older release packages. Precompiled packages include demo projects. LMD VCL Complete 2022 DescriptionĬontains LMD-Tools, IDE-Tools, LMD ElPack and NG Complete in one installer. But the grid was still drawn as a single line with the same text.Precompiled installation packages always require latest version of IDE - otherwise packages may not work. 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.
0 kommentar(er)
