necesito un componente para aclarar/oscurecer imagen

[kapullok_2006]

por lo visto deseo poder hacer ésto,o si no es posible,una función.

También adaptar una foto al tamaño del bitbutton.

Una última cosa,si pincho en un Timage del Form1.image1Onclick(),para acceder a otro form2,y pinco en bitbtn de copia de fotos,me dá error en la
línea de código donde está el 'and',se supone q la condición está bien:

procedure TForm2.Suma_copia0Click(Sender: TObject);
begin
while (Form1.Image1.OnClick) and (cantidades.Count > i) do
begin
copia1:=StrToFloat(cantidades.Strings[i]);
copia1:=copia1+1;
cantidades.Strings[i]:= FloatToStr(copia1);
Form2.Edit1.Text:=FloatToStr(copia1);
Form2.Edit2.Text:=FloatToStr(1.50*copia1)+'€';
end;

Se dice un warning de que no encuentra los parámetros,¿puede q haya q añadir algo en 'uses'?

Saludos,gracias.

[Neftali [Germán.Estévez]]

Empezado por kapullok_2006

necesito un componente para aclarar/oscurecer imagen

En la unit GraphUtils está la función ColorAdjustLuma, para ajustar la luminosidad de un pixel. deberás hacer un recorrido por todos los pixels de la imagen para aplicarles esta función.

[[seoane]]

O usar el truco59