Skip to main content

Aristide Asprogerakas

Aristide Asprogerakas's Public Library

  • procedure TToolButton.MouseDown(Button: TMouseButton; Shift: TShiftState;  X, Y: Integer);  begin  inherited MouseDown(Button, Shift, X, Y);  if (Button = mbLeft) and Enabled then  begin  if State <> tbsDown then  begin  State:= tbsDown;  Invalidate;  end;  end;  end;
1 - 20 of 1123 Next › Last »
20 items/page

Highlighter, Sticky notes, Tagging, Groups and Network: integrated suite dramatically boosting research productivity. Learn more »

Join Diigo