ScrollBarでRGB値を調節

解決

message 2007-01-30 03:49:14 No: 24652

ScrollBar３つで、RGB値を調整するというようにしてるのですが、エラーがでます。ScrollBarのMaxは255、Minは0となっています。
内容はこれです。

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
  i1,i2,i3:integer;
begin
  //パネルの位置を変数に代入
  i1:=scrollbar1.Position;
  i2:=scrollbar2.Position;
  i3:=scrollbar3.Position;

//パネルの色を設定
panel1.color:=RGB(i1,i2,i3); //←ここです。

  //ラベルに値を代入
  label4.Caption:=inttostr(i1);
  label5.Caption:=inttostr(i2);
  label6.Caption:=inttostr(i3);
end;

end.

[Pascal エラー] RGB.pas(46): E2029 '.' が必要な場所に '(' があります

これを全部まねたつもりなんですけど・・・。
http://kakinotane.s7.xrea.com/delphi/d2/s004.html

ウォレス 2007-01-30 05:57:15 No: 24653

私の環境ではエラーは出ませんでしたよ〜。

BDS2006 WinXP SP2

自前環境依存 2007-01-30 06:41:34 No: 24654

>panel1.color:=RGB(i1,i2,i3); //←ここです。

>[Pascal エラー] RGB.pas(46): E2029 '.' が必要な場所に '(' があります

これは、「usesした自前のRGBユニットを呼び出すのネ」とコンパイラが認識してるということ。
WinAPI(RGBマクロ)を呼出したいのなら、
Windows.RGB();

message 2007-01-30 17:57:45 No: 24655

ありがとうございます。
Panel1.Color:=Windows.RGB(i1.i2.i3);
でOKでした。
でもなんでエラーになってしまったのか・・・。

もにゃ 2007-01-30 19:12:00 No: 24656

ファイル名がRGB.pasだからでしょ。
ファイル命名規則を調べたほうが他人にソース見せたとき恥かかなくてすみますよ。

message 2007-01-30 23:07:42 No: 24657

もにゃさんの指摘どおりでした。
今後気をつけます(>_<)