Visor de Nibles

[[seoane]]

Vamos a probar con gráficos.

Lo primero es hacer una bonita función que nos dibuje los bits:

Código Delphi [-]
procedure PintarBits(Canvas: TCanvas; Numero: Cardinal);
var
  i,j: Cardinal;
begin
  j:= 0;
  i:= $80000000;
  while i > 0 do
  begin
    if Numero >= i then
    begin
      Numero:= Numero - i;
      Canvas.Brush.Color:= clYellow;
    end else
      Canvas.Brush.Color:= clSkyBlue;
    Canvas.Rectangle(j,0,j+10,10);
    i:= i shr 1;
    inc(j,10);
  end;
end;

Esta función nos dibuja una tira de 10 pixeles de alto y 320 de ancho, en el que cada bit se representa por un cuadrado, de color amarillo para los unos y azul para los ceros. Siendo el bit menos significativo el cuadrado de la derecha.

Ahora tenemos que decidir donde dibujar, podemos hacerlo sobre un TImage, un TPictureBox, un TBitmap o incluso sobre el propio formulario. Vamos a utilizar la opción del TPictureBox.

Colocamos en el formulario un TPictureBox de 320x10, y en su evento OnPaint colocamos los siguiente:

Código Delphi [-]
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PintarBits(PaintBox1.Canvas,Numero);
end;

Donde "Numero" es una variable global de tipo Cardinal que almacena el numero que queremos dibujar. Ahora bien, como le asignamos un valor, pues por ejemplo en el evento de un ratón colocamos lo siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Numero:= $AAAAAAAA;
  PintarBits(PaintBox1.Canvas,Numero);
end;

En el código anterior le asignamos un valor fijo, te dejo a ti usar el valor de un TEdit por ejemplo. Pero ahora lo que seria interesante es poder modificar los bits pulsando con el ratón sobre ellos, pues nada en el evento OnMouseUp del TPictureBox colocamos esto:

Código Delphi [-]
procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: Cardinal;
begin
  i:= x div 10;
  if i < 32 then
  begin
    i:= 1 shl (31 - i);
    Numero:= Numero xor i;
    PintarBits(PaintBox1.Canvas,Numero);
    // Aqui podriamos mostrar el numero en un TEdit, por ejemplo
  end;
end;

Bueno, creo que con esto llega por ahora ...