View difference between Paste ID: vQ70z1qH and 720LRLSk

 type
   TForm1 = class(TForm)
     Button1: TButton;
-    ADOConnection1: TADOConnection;
+
     DataSource1: TDataSource;
     DBGrid1: TDBGrid;
-    TntDBGrid1: TTntDBGrid;
+
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 uses
   Printers,
-  uDebug,
+
   gtUtils3,
-  //TntUnicode,
+
-  TntWideAdoMemoField,
+
   gtCstPDFEng,
-  TntDB,
+
 
 {$R *.dfm}
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Self.BiDiMode := bdRightToLeft;
   SysLocale.MiddleEast := True;
   Self.Font.Name := 'Tahoma';
 
   ADODataSet1.LoadFromFile('data.xml');
-{function WideStringIsRTL(const S: WideString): Boolean;
+
 
-  I: Integer;
+
 var
-  Result := False;
+  FEngine: TgtPDFEngine {TgtCustomDocumentEngine};
-  for I := 1 to Length(S) do
+
-    if UnicodeIsRTL(Word(S[I])) then
+
   I, NoColumns: Integer;
-      Result := True;
+
   S: WideString;
 begin
-end;}
+
 
-function FieldGetAsText(Field: TField): WideString;
+  with {IgtDocumentEngine} (FEngine) do
   begin
-  if Field.IsNull then
+
-    Result := '' else
+
-    Result := TntDB.GetWideText(Field);
+
     FEngine.BiDiMode := bdRightToLeft;
     Page.PaperSize := A4;
     // Page.Orientation := Printers.poLandscape;  // poPortrait, poLandscape
     BeginDoc;
-  ADODataSet1.Connection := nil;
+
-  // ADODataSet1.LoadFromFile('data.xml');
+
-  ADODataSet1.LoadFromFile('data_100.xml');
+
     TextFormatting.Alignment := haCenter;
     TextFormatting.BeforeSpace := 125;
-  TntDBGrid1.BiDiMode := bdRightToLeft;
+
     Font.Color := clBlue;
 
     (*
     Font.Size := 18;
     Font.Style := [fsBold];
     BeginPara;
-  FEngine: TgtPDFEngine{TgtCustomDocumentEngine};
+    TextOut('Advanced Drawing Functions');
     EndPara;
     *)
 
     Font.Size := 7;
-  F: TField;
+
-  S: WideString;
+
 
-  function FixGuid(S: string): WideString;
+
     begin
-    S := StringReplace(S, '{', '{ ', []);
+
-    S := StringReplace(S, '}', ' }', []);
+
-    S := StringReplace(S, '-', ' - ', [rfReplaceAll]);
+
-    Result := S;
+
       InternalMargin := gtRect(5, 5, 5, 5);
     end;
 
     ds := ADODataSet1;
-  with {IgtDocumentEngine}(FEngine) do
+
     LColumns := BeginTable(40 {X}, 220 {Y}, NoColumns);
 
     for I := 0 to NoColumns - 1 do
     begin
       // TgtColumn(LColumns[I]).Width := DBGrid1.Columns[I].Width;
       TgtColumn(LColumns[I]).Width := 220; // TODO: calculate. if not specified then TableSettings.ColumnWidth is used
       TgtColumn(LColumns[I]).Title := DBGrid1.Columns[I].Title.Caption; // ???
 
       TgtColumn(LColumns[I]).Alignment := haRight;
     end;
 
     ds.First;
     while not ds.Eof do
     begin
       NewRow;
       for I := 0 to ds.FieldCount - 1 do
-    // Alert(Page.Width);
+
         S := ds.Fields[I].AsString;
         TextOut(I, S);
       end;
       ds.Next;
     end;
-    // TextOut('Advanced Drawing Functions');
+
-    // TextOut('????, ?? ?????');
+
-    // TextOut('{ 50C57EF2 - FF37 - 431F - 8E94 - 33BB33127B99 }');
+
-    // TextOut('{50C57EF2-FF37-431F-8E94-33BB33127B99}');
+
   end;
 
   FEngine.Free;
 end;