Array
(
)

Shift Scroll

Rcasistemas
|
MVP
    05 jan 2006

Pessoal, coloquei o codigo abaixao para usar o Scroll do Mouse + o shift para aumentar e diminuir a fonte do meu RichEdit.

#Código


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


Michael
   - 05 jan 2006

Use o parâmetro Handled do evento TMouseWheelEvent:

#Código

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


Rcasistemas
|
MVP
    05 jan 2006

Obrigado kra.. ficou 100¬ 8)

Abraços