TCustomGrid ButtonStyle cbsButtonColumn

Für Fehler in Lazarus, um diese von anderen verifizieren zu lassen.

TCustomGrid ButtonStyle cbsButtonColumn

Beitragvon Michl » 25. Dez 2014, 00:16 TCustomGrid ButtonStyle cbsButtonColumn

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) 15-mal heruntergeladen
TestDrawGrid.zip
(3.37 KiB) 14-mal heruntergeladen
buttonstyle.png
Code: Alles auswählen
type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection; 
Michl
 
Beiträge: 2330
Registriert: 19. Jun 2012, 11:54
OS, Lazarus, FPC: Win7 Laz 1.7 Trunk FPC 3.1.1 Trunk | 
CPU-Target: 32Bit/64bit
Nach oben

• Themenende •

Zurück zu Lazarus - Bugs



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

porpoises-institution
accuracy-worried