function CanvasToGBText(mCanvas: TCanvas; mRect: TRect;
mBackColor: TColor = clWhite): String; { 文本花式 }
var
I, J: Integer;
S: string;
begin
Result := '';
for J := mRect.Top to mRect.Bottom do begin
S := '';
for I := mRect.Left to mRect.Right do
begin
if mCanvas.Pixels[I, J]=mBackColor then Result := Result + '■'
else Result := Result + '□';
end;
Result := Result + S + #13#10;
end;
end; { CanvasToGBText }
function CanvasToGBText(mCanvas: TCanvas; mRect: TRect;
mBackColor: TColor = clWhite): String; { 文本花式 }
var
I, J: Integer;
S: string;
begin
Result := '';
for J := mRect.Top to mRect.Bottom do begin
S := '';
for I := mRect.Left to mRect.Right do
begin
if mCanvas.Pixels[I, J]=mBackColor then Result := Result + Form1.ComboBox1.Text
else Result := Result + Form1.ComboBox2.Text;
end;
Result := Result + S + #13#10;
end;
end; { CanvasToGBText }