BrightnessChange(form1.Image1.Picture.Bitmap, TrackBarBrightnessChange.value, form1.ProgressBar1);

Question

procedure TForm2.ButtonOKBrightnessChangeClick(Sender: TObject); 
begin 
form1.ProgressBar1.Position:=0; 
  form1.ProgressBar1.Visible:=true;   BrightnessChange(form1.Image1.Picture.Bitmap, 
                  TrackBarBrightnessChange.value, 
                  form1.ProgressBar1); 
  form1.ProgressBar1.Visible:=false;   self.Close; 
 form1.IsImageChanged:=true; 
form1.Image1.Repaint; 
  form1.Repaint;   form1.undouse;end; 
请哪位大哥帮个忙帮我把红色代码注释一下！
小弟在先谢谢了！
还有我想知道BrightnessChange(form1.Image1.Picture.Bitmap, TrackBarBrightnessChange.value, form1.ProgressBar1); BrightnessChange这个方法怎么来的？这三个参数是什么意思？

Answer 1

你好像以前问过吧,BrightnessChange是自定义的,你要看源码

Answer 2

procedure TForm2.ButtonOKBrightnessChangeClick(Sender: TObject); 
begin 
form1.ProgressBar1.Position:=0; 
  form1.ProgressBar1.Visible:=true;   BrightnessChange(form1.Image1.Picture.Bitmap,   //调用这个过程，括号里面是传的参数
                  TrackBarBrightnessChange.value, 
                  form1.ProgressBar1); 
  form1.ProgressBar1.Visible:=false;   self.Close; //关闭本窗体
form1.IsImageChanged:=true; //form1窗体的这个属性置成true
form1.Image1.Repaint;   //form1窗体的Image1控件重画
  form1.Repaint;   //form1重画  form1.undouse;  //调用form1的undouse这个过程
  end;