TCustomGrid ButtonStyle cbsButtonColumn

Für Fehler in Lazarus, um diese von anderen verifizieren zu lassen.
Antworten
Michl
Beiträge: 2505
Registriert: Di 19. Jun 2012, 12:54

TCustomGrid ButtonStyle cbsButtonColumn

Beitrag von Michl »

Hallo wertes Forum,

die Größe der Buttons passen nicht in die Zellen eines Grids.

Ich würde gern einen Patch im Bugtracker hochladen. Kann mal jemand den Patch (für Trunc) und das angefügte Minimalbsp unter Linux probieren, ob der Patch generell funktioniert oder ob ich IFDEF MSWINDOWS für den Patch einfügen muss?!

z.B. so?!

Code: Alles auswählen

procedure TCustomGrid.DrawButtonCell(const aCol, aRow: Integer; aRect: TRect;
  const aState: TGridDrawState);
var
  details: TThemedElementDetails;
begin
//  {$IFDEF MSWINDOWS}
  Dec(aRect.Right);
  Dec(aRect.Bottom);
//  {$ELSE}
//  InflateRect(aRect, -2, 0);
//  {$ENDIF}
  if gdPushed in aState then 
...

Danke

Michael
Dateianhänge
grids.pas.patch
(776 Bytes) 81-mal heruntergeladen
TestDrawGrid.zip
(3.37 KiB) 84-mal heruntergeladen
buttonstyle.png

Code: Alles auswählen

type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection; 

Antworten