제가 썼던 무식한 방법인데 말은 잘 듣더군요...





참고로 Query및 기타는 알아서 버리세요...



var cmonth,cdate : String;

ds : array[1..42] of String;

ts : array[1..42] of String;

cs : array[1..42] of Tcolor;

i,j : Integer;

begin

cmonth := IntToStr(gntemm.ItemIndex + 1);

if Length(cmonth) = 1 then

cmonth := '0' + cmonth;

For i := 1 to 42 do

begin

ds[i] := '';

ts[i] := '';

cs[i] := clBlack;

end;

Query4.Close;

Query4.ParamByName('Pgntemm').AsString := gnteyy.Text + '-' + cmonth;

Query4.Open;



cdate := gnteyy.Text + '-' + cmonth + '-01';

i := DayOfWeek(StrToDate(cdate));

Repeat

ds[i] := copy(Query4gntedd.Value,9,2);

ts[i] := Query4gntenm.Value;

if (Query4gntegb.Value >= '3') and (Query4gntegb.Value <= '7') then

cs[i] := clRed

else

if Query4gntegb.Value >= '2' then

cs[i] := clBlue

else

cs[i] := clBlack;

i := i + 1;

Query4.Next;

until

Query4.Eof;



d1.Caption := ds[1]; d1.Font.Color := cs[1]; t1.Caption := ts[1];

d2.Caption := ds[2]; d2.Font.Color := cs[2]; t2.Caption := ts[2];

d3.Caption := ds[3]; d3.Font.Color := cs[3]; t3.Caption := ts[3];

d4.Caption := ds[4]; d4.Font.Color := cs[4]; t4.Caption := ts[4];

d5.Caption := ds[5]; d5.Font.Color := cs[5]; t5.Caption := ts[5];

d6.Caption := ds[6]; d6.Font.Color := cs[6]; t6.Caption := ts[6];

d7.Caption := ds[7]; d7.Font.Color := cs[7]; t7.Caption := ts[7];

d8.Caption := ds[8]; d8.Font.Color := cs[8]; t8.Caption := ts[8];

d9.Caption := ds[9]; d9.Font.Color := cs[9]; t9.Caption := ts[9];

d10.Caption := ds[10]; d10.Font.Color := cs[10]; t10.Caption := ts[10];

d11.Caption := ds[11]; d11.Font.Color := cs[11]; t11.Caption := ts[11];

d12.Caption := ds[12]; d12.Font.Color := cs[12]; t12.Caption := ts[12];

d13.Caption := ds[13]; d13.Font.Color := cs[13]; t13.Caption := ts[13];

d14.Caption := ds[14]; d14.Font.Color := cs[14]; t14.Caption := ts[14];

d15.Caption := ds[15]; d15.Font.Color := cs[15]; t15.Caption := ts[15];

d16.Caption := ds[16]; d16.Font.Color := cs[16]; t16.Caption := ts[16];

d17.Caption := ds[17]; d17.Font.Color := cs[17]; t17.Caption := ts[17];

d18.Caption := ds[18]; d18.Font.Color := cs[18]; t18.Caption := ts[18];

d19.Caption := ds[19]; d19.Font.Color := cs[19]; t19.Caption := ts[19];

d20.Caption := ds[20]; d20.Font.Color := cs[20]; t20.Caption := ts[20];

d21.Caption := ds[21]; d21.Font.Color := cs[21]; t21.Caption := ts[21];

d22.Caption := ds[22]; d22.Font.Color := cs[22]; t22.Caption := ts[22];

d23.Caption := ds[23]; d23.Font.Color := cs[23]; t23.Caption := ts[23];

d24.Caption := ds[24]; d24.Font.Color := cs[24]; t24.Caption := ts[24];

d25.Caption := ds[25]; d25.Font.Color := cs[25]; t25.Caption := ts[25];

d26.Caption := ds[26]; d26.Font.Color := cs[26]; t26.Caption := ts[26];

d27.Caption := ds[27]; d27.Font.Color := cs[27]; t27.Caption := ts[27];

d28.Caption := ds[28]; d28.Font.Color := cs[28]; t28.Caption := ts[28];

d29.Caption := ds[29]; d29.Font.Color := cs[29]; t29.Caption := ts[29];

d30.Caption := ds[30]; d30.Font.Color := cs[30]; t30.Caption := ts[30];

d31.Caption := ds[31]; d31.Font.Color := cs[31]; t31.Caption := ts[31];

d32.Caption := ds[32]; d32.Font.Color := cs[32]; t32.Caption := ts[32];

d33.Caption := ds[33]; d33.Font.Color := cs[33]; t33.Caption := ts[33];

d34.Caption := ds[34]; d34.Font.Color := cs[34]; t34.Caption := ts[34];

d35.Caption := ds[35]; d35.Font.Color := cs[35]; t35.Caption := ts[35];

d36.Caption := ds[36]; d36.Font.Color := cs[36]; t36.Caption := ts[36];

d37.Caption := ds[37]; d37.Font.Color := cs[37]; t37.Caption := ts[37];

d38.Caption := ds[38]; d38.Font.Color := cs[38]; t38.Caption := ts[38];

d39.Caption := ds[39]; d39.Font.Color := cs[39]; t39.Caption := ts[39];

d40.Caption := ds[40]; d40.Font.Color := cs[40]; t40.Caption := ts[40];

d41.Caption := ds[41]; d41.Font.Color := cs[41]; t41.Caption := ts[41];

d42.Caption := ds[42]; d42.Font.Color := cs[42]; t42.Caption := ts[42];





백운검 wrote:

> 달력 컴프넌트 TCalendar 객체에서 토요일,일요일에 색깔을 넣어주고 싶어요

> 제발 방법좀 가르쳐 주세요..

> 델파이 3.0을 사용하고 있어요.

> 힌트라도 좀 주세요.(감사합니다. ^^)