Galkov писал(а):
nesco, ты читать УМЕЕШЬ, блин, или нет
0: begin
if ((x2 - x1) = 0) or ((y2 - y1) = 0) then begin
x1 := 0; y1 := 0; wsz := Width; hsz := Height;
end else begin
wsz := x2 - x1; hsz := y2 - y1;
end;
hRect := MakeRect(x1, y1, wsz, hsz);
end;
Galkov писал(а):
А задача стояла пристая, и типовая до предела: донести возможности COM-объекета, откопанного tsdima (не говорящего, правда - где) до пользователя.
Поиск
Друзья
Администрация