function ModifAlphaBlendValue(Alpha: integer; Value: integer): integer; begin Result:= Alpha + Value; if Result > 255 then Result:= 255 else if Result < 50 then Result:= 50; end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_ADD: if (ssCtrl in Shift) then AlphaBlendValue:= ModifAlphaBlendValue(AlphaBlendValue, 5); VK_SUBTRACT : if (ssCtrl in Shift) then AlphaBlendValue:= ModifAlphaBlendValue(AlphaBlendValue, -5); end; end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var A: integer; begin A:= AlphaBlendValue; if (ssCtrl in Shift) and (Key = VK_ADD) then // Ctrl + A:= A + 5 else if (ssCtrl in Shift) and (Key = VK_SUBTRACT) then // Ctrl - A:= A - 5; if A < 50 then A:= 50 else if A > 255 then A:= 255; AlphaBlendValue:= A; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question