Уважаемые форумчане возник у меня вопрос и ищу я из него решение. Мне нужно сгенерировать 2d-код для последующего считывания сканером. Наткнулся на библиотеку aztecgen. Картинка формируется у меня следующим образом:




Код рисуется, но почему то всегда урезанный вдвое. Тут либо думать почему код рисуется неправильно, либо костыльным методом загонять в data двойную строку.
Если использовать двойную строку, хочется хотя бы обрезать лишнее, а для этого нужно вырезать внутренний квадрат из квадрата (см рис). С рисованием у меня тоже не ахти... Поэтому на повестке у меня 2 вопроса:
1) Что не так с функцией рисования?
2) Как вырезать внутрении квадратик и поместить его в TImage - расстояние до него со всех краев одинаковое и равно 1/4 ширины или высоты рисунка. Ширина и высота рисунка не кратна 2

Соколинский Борис, ок сейчас попробуем

Соколинский Борис, не помогло

function generateMatrixToimg(data: string, img: TBitMap): boolean;
var
matrix: PAGMatrix;
p: PAGByte;
x,y: Cardinal;
rec: TRect;
begin
Result := False;
if ag_generate(matrix, PChar(data), Length(Data), nil) = AG_SUCCESS then
begin
p := matrix^.data;
img.Height := matrix^.Height;
img.Width := matrix^.Width;
img.canvas.brush.color := clBlack;
for y := 1 to matrix^.height do
begin
for x := 1 to matrix^.width do
begin
if p^ <> 0 then
begin
rec.Left := x-1;
rec.top := y-1;
rec.right := x;
rec.bottom := y;
img.canvas.Fillrect(rec);
end;

Inc(p);
end;
end;
Result := True;
ag_release_matrix(matrix);
end;
end;

// а ниже через кнопочку создание битмапа вызов функции и присвоение битмапа имеджу

Image.Picture.Bitmap.Assign(img)

Попробовал даже в тестовом проекте, все равно половину обрезает. Может подскажете по 2-му пути что можно сделать?

wadman, ну да. DelphiXE

wadmandartveider13Может подскажете по 2-му пути что можно сделать?
Дай угадаю: юникодная делфи?

dartveider13


Ептить колотить. И правда Ваша. Так все отлично генерирует.)))) Вот сколько раз натыкаюсь уже на эти стринги... Надо читать матчасть.
Спасибо Вам огромное. Все удачно сформировалось.