Procházet zdrojové kódy

Repaint only when needed

lainz před 6 roky
rodič
revize
28acc00a8c
1 změnil soubory, kde provedl 9 přidání a 2 odebrání
  1. 9 2
      bccombobox.pas

+ 9 - 2
bccombobox.pas

@@ -94,9 +94,16 @@ end;
 
 procedure TBCComboBox.ListBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
+var
+  TempItem: integer;
 begin
-  FHoverItem := FListBox.ItemAtPos(Point(x, y), True);
-  FListBox.Repaint;
+  TempItem := FListBox.ItemAtPos(Point(x, y), True);
+
+  if TempItem <> FHoverItem then
+  begin
+    FHoverItem := TempItem;
+    FListBox.Repaint;
+  end;
 end;
 
 procedure TBCComboBox.ListBoxSelectionChange(Sender: TObject; User: boolean);