@AET

народ помагите разобрать
как можно зделать здвик окна на паскале

0

@Evklid

с использованием модуля graph.tpu например, если я вас правильно понял

Процедура SetViewPort.

Устанавливает прямоугольное окно на графическом экране. Заголовок:

Procedure SetViewPort(XI,Y1,X2,Y2: Integer; ClipOn: Boolean);

Здесь X1...Y2 - координаты левого верхнего (XI,Y1) и правого нижнего (X2,Y2) углов окна; ClipOn - выражение типа Boolean, определяющее «отсечку» не умещающихся в окне элементов изображения.

Координаты окна всегда задаются относительно левого верхнего угла экрана. Если параметр ClipOn имеет значение True, элементы изображения, не умещающиеся в пределах окна, отсекаются, в противном случае границы окна игнорируются. Для управления этим параметром можно использовать такие определенные в модуле константы:
const

ClipOn = True; {Включить отсечку}

ClipOff = False; {He включать отсечку}

0

@AET

не понял это алгаритм сжатия а причем тут графика

0

@AET

народ можете помоч есть исходние алгоритма LZSS но результат нето исходник прекрепил там и 3 фаила RE.01 RE.011 RE.03.
RE.01 не сжат его надо сжать при сжати выходит RE.011 он должен быть похож на RE.03 фаил можете помоч что я там делаю не так

Вложения

Delphi6.zip (46.6 Кб, 98 просмотров)

0

@AET

ну чтотут есть каие нибудь размышления

0