|
아래와 같은 델파이 소스가 있는데요. 빌더로 변환좀 부탁합니다.
특히 " with (aEditLink.GetEditControl as TImagePicker) do "
부분만 설명 좀 부탁드립니다.
그리고 빌더 코드로 하면은요.. 어떻게...
procedure TForm1.AdvStringGrid1GetEditorProp(Sender: TObject; aCol,
aRow: Integer; aEditLink: TEditLink);
begin
case acol of
2:begin
with (aEditLink.GetEditControl as TImagePicker) do
begin
BeginUpdate;
Items.Clear;
with Items.Add do
begin
Caption:='Germany';
ImageIndex:=0;
end;
with Items.Add do
begin
Caption:='UK';
ImageIndex:=1;
end;
with Items.Add do
begin
Caption:='USA';
ImageIndex:=2;
end;
with Items.Add do
begin
Caption:='Japan';
ImageIndex:=3;
end;
with Items.Add do
begin
Caption:='Italy';
ImageIndex:=4;
end;
with Items.Add do
begin
Caption:='France';
ImageIndex:=5;
end;
EndUpdate;
end;
end;
end;
end;
|