| 413 |
|
link := link div 256; |
| 414 |
|
images[i] := TOniImage.Create; |
| 415 |
|
images[i].LoadFromTXMP(ConnectionID, link); |
| 416 |
– |
SetLength(FImages, 1); |
| 417 |
– |
NewImage(width, height, ifA1R5G5B5, FImages[0]); |
| 416 |
|
end; |
| 417 |
+ |
SetLength(FImages, 1); |
| 418 |
+ |
NewImage(width, height, images[0].Format {ifA1R5G5B5}, FImages[0]); |
| 419 |
|
for y := 0 to rows - 1 do |
| 420 |
|
begin |
| 421 |
|
for x := 0 to cols - 1 do |
| 425 |
|
y_start := 0; |
| 426 |
|
for i := 0 to x do |
| 427 |
|
if i < x then |
| 428 |
< |
x_start := x_start + images[i].Image[0].Width; |
| 428 |
> |
x_start := x_start + images[i].Image[1].Width; |
| 429 |
|
for i := 0 to y do |
| 430 |
|
if i < y then |
| 431 |
< |
y_start := y_start + images[i].Image[0].Height; |
| 432 |
< |
CopyRect(images[imgid].Image[0], 0, 0, images[imgid].Image[0].Width, |
| 433 |
< |
images[imgid].Image[0].Height, FImages[0], x_start, y_start); |
| 431 |
> |
y_start := y_start + images[i].Image[1].Height; |
| 432 |
> |
CopyRect(images[imgid].Image[1], 0, 0, images[imgid].Image[1].Width, |
| 433 |
> |
images[imgid].Image[1].Height, FImages[0], x_start, y_start); |
| 434 |
|
end; |
| 435 |
|
end; |
| 436 |
|
for i := 0 to linkcount - 1 do |