Shift Scroll

05/01/2006

Pessoal, coloquei o codigo abaixao para usar o [b:fb06e291a3]Scroll do Mouse + o shift[/b:fb06e291a3] para aumentar e diminuir a fonte do meu RichEdit.

procedure TFMainView.RchEdtMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ssShift in Shift then
    begin
      if WheelDelta > 0 then
        begin
          RchEdt.Font.Size := RchEdt.Font.Size +1;
        end
      else if WheelDelta < 0 then
        begin
          RchEdt.Font.Size := RchEdt.Font.Size -1;
        end;
    end;
end;


Como faço para qdo o codigo acima for executado, a rolagem do richedit ficar parada???

Abraços


Rcasistemas

Currículo

Respostas

05/01/2006

Michael

Use o parâmetro [b:84c942a3cd]Handled [/b:84c942a3cd]do evento [b:84c942a3cd]TMouseWheelEvent[/b:84c942a3cd]:

procedure TFMainView.RchEdtMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ssShift in Shift then
  begin
    if WheelDelta > 0 then
      RchEdt.Font.Size := RchEdt.Font.Size +1
    else if WheelDelta < 0 then
      RchEdt.Font.Size := RchEdt.Font.Size -1;
    Handled := True; // Adicione isso aqui
  end;
end;


[]´s


Responder Citar

05/01/2006

Rcasistemas Currículo

Obrigado kra.. ficou 100¬ 8)

Abraços


Responder Citar