Home

Page 110
Page 110
background image

Система

transColor

 0];

//Запускаем цикл перебора строк картинки
//для определения области окна без фона
for i := 0 to

 1 do

begin

 := -1;

//Запускаем цикл перебора столбцов картинки
for j

 0 to i_width - 1 do

begin

if

 < 0 then

begin

if

 i] <> transColor then

i_left

 j;

end

else

if

 i] = transColor then

begin

i_right := j;

rectRgn :=

 i,

 i + 1) ;

if Result = 0 then

Result

 rectRgn

else

begin

 Result, rectRgn,

end;

 -1;

end;

end;

if i_left >= 0 then

begin

rectRgn :=

 i,

 i + 1);

if Result

 0 then

Result := rectRgn

else

begin

 Result, rectRgn,


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.