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

Diigo is about better ways to research, share and collaborate on information. Learn more »

Join Diigo