Browse Source

Fix missing 'r'

Leandro Diaz 7 months ago
parent
commit
4a1781acff
1 changed files with 0 additions and 2 deletions
  1. 0 2
      bccombobox.pas

+ 0 - 2
bccombobox.pas

@@ -434,9 +434,7 @@ procedure TBCComboBox.ListBoxDrawItem(Control: TWinControl; Index: Integer;
 var
 var
   aCanvas: TCanvas;
   aCanvas: TCanvas;
   padding: integer;
   padding: integer;
-  {$IFDEF DARWIN}
   r: TRect;
   r: TRect;
-  {$ENDIF}
 begin
 begin
   if Index = 0 then
   if Index = 0 then
   begin
   begin