아래의 예제를 실행해보시면 참고가 되실려나요...?
procedure TForm1.Button1Click(Sender: TObject);
var
tmpPattern : smallint;
tmpfg,tmpBg: tcolor;
begin
with F1Book1 do
begin
row := 2;
col := 2;
text := '123';
SetPattern(1,clyellow,clwhite);
getPattern(tmppattern,tmpfg,tmpbg);
if tmpfg = clyellow then begin
showmessage('yes');
end;
end;
end;
아래의 예제를 실행해보시면 참고가 되실려나요...?
procedure TForm1.Button1Click(Sender: TObject);
var
tmpPattern : smallint;
tmpfg,tmpBg: tcolor;
begin
with F1Book1 do
begin
row := 2;
col := 2;
text := '123';
SetPattern(1,clyellow,clwhite);
getPattern(tmppattern,tmpfg,tmpbg);
if tmpfg = clyellow then begin
showmessage('yes');
end;
end;
end;