TBitmap + SetSize
 

Estimados amigos del foro tengo el siguiente codigo:

Código Delphi [-]

procedure TForm1.FormCreate(Sender: TObject);
begin
  QRCodeBitmap := TBitmap.Create;
  Update;
end


procedure TForm1.Update;
var
  QRCode: TDelphiZXingQRCode;
  Row, Column: Integer;
begin
  QRCode := TDelphiZXingQRCode.Create;
  try


    QRCode.Data := edtText.Text;
    QRCode.Encoding := TQRCodeEncoding(cmbEncoding.ItemIndex);
    QRCode.QuietZone := StrToIntDef(edtQuietZone.Text, 4);
    QRCodeBitmap.SetSize  (QRCode.Rows, QRCode.Columns);

    //QRCodeBitmap.s
    for Row := 0 to QRCode.Rows - 1 do
    begin
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if (QRCode.IsBlack[Row, Column]) then
        begin
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack;
        end else
        begin
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
        end;
      end;
    end;
  finally
    QRCode.Free;
  end;
  PaintBox1.Repaint;
end;

En la parte que pinte de rojo me sale el siguiente error:

UnRedeclared identifier 'SetSize'

Por favor me pueden ayudar

Gracias y saludos

Buenas.

Que versión de Delphi usas?

"TBitmap.setsize has been introduced in Delphi 2006 ..."

Échale un ojo a esto : http://stackoverflow.com/questions/8...t-to-a-tbitmap

Saludos,

TBirmap + SetSize
 

Gracias por responder, y tenias razon la version de Delphi era el problema yo estoy trabajando en delphi 2007

Saludos Marcelo Carazas