procedure TForm1.FormPaint(Sender: TObject);
var
  i, j, s, sizex, sizey, pos, x, y : Integer;
  ws : WideString;
  rect : TRect;
begin
  s := 0; // To max 65535

  sizex := 66;
  sizey := 1000;

  for i:=0 to sizex-1 do
  begin
    for j:=0 to sizey-1 do begin

      pos := s+(j*sizex)+i;
      if (pos>65535) then
        break;

      ws := WideChar(pos);
      rect := Self.GetClientRect;
      Canvas.Font.Name := 'Arial';
      Canvas.Font.Size := 12;

      x := i*24;
      y := (j*18)-VertScrollBar.Position;

      if (x>=0) and (y>=0) and (x < Self.ClientWidth) and (y

    Like224
    Dislike28
    
9400cookie-checkWideChar in Delphino