Cosmetic

comparison.pas

@@ -1619,11 +1619,11 @@ begin
 
     // todo: verify if this character set clause works correctly
     if Trim(CharacterSet) <> '' then
-      FQueryWindow.meQuery.Lines.Add('characterset '+CharacterSet);
+      FQueryWindow.meQuery.Lines.Add('characterset ' + CharacterSet);
 
     // todo: verify if this collation clause works correctly
     if Trim(Collation) <> '' then
-      FQueryWindow.meQuery.Lines.Add('collation '+Collation);
+      FQueryWindow.meQuery.Lines.Add('collation ' + Collation);
 
     if Trim(DefaultValue) <> '' then
     begin

edittable.lfm

@@ -83,7 +83,6 @@ object fmEditTable: TfmEditTable
     Scrollbars = ssAutoBoth
     TabOrder = 1
     TitleStyle = tsNative
-    OnTitleClick = DBGrid1TitleClick
   end
   object Datasource1: TDataSource
     DataSet = sqEditTable

edittable.lrs

@@ -28,9 +28,8 @@ LazarusResources.Add('TfmEditTable','FORMDATA',[
   +'olLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysShowSelection'#15'dgConfirmDel'
   +'ete'#14'dgCancelOnExit'#19'dgHeaderHotTracking'#18'dgHeaderPushedLook'#17'd'
   +'gAutoSizeColumns'#0#10'Scrollbars'#7#10'ssAutoBoth'#8'TabOrder'#2#1#10'Titl'
-  +'eStyle'#7#8'tsNative'#12'OnTitleClick'#7#17'DBGrid1TitleClick'#0#0#11'TData'
-  +'Source'#11'Datasource1'#7'DataSet'#7#11'sqEditTable'#4'left'#3#216#1#3'top'
-  +#2'0'#0#0#9'TSQLQuery'#11'sqEditTable'#9'FieldDefs'#14#0#14'AutoCalcFields'#8
-  +#11'AfterScroll'#7#22'sqEditTableAfterScroll'#6'Params'#14#0#4'left'#3'e'#1#3
-  +'top'#2#20#0#0#0
+  +'eStyle'#7#8'tsNative'#0#0#11'TDataSource'#11'Datasource1'#7'DataSet'#7#11's'
+  +'qEditTable'#4'left'#3#216#1#3'top'#2'0'#0#0#9'TSQLQuery'#11'sqEditTable'#9
+  +'FieldDefs'#14#0#14'AutoCalcFields'#8#11'AfterScroll'#7#22'sqEditTableAfterS'
+  +'croll'#6'Params'#14#0#4'left'#3'e'#1#3'top'#2#20#0#0#0
 ]);

edittable.pas

@@ -23,7 +23,6 @@ type
     Panel1: TPanel;
     sqEditTable: TSQLQuery;
     procedure bbSaveClick(Sender: TObject);
-    procedure DBGrid1TitleClick(Column: TColumn);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure sqEditTableAfterScroll(DataSet: TDataSet);
@@ -75,16 +74,6 @@ begin
   end;
 end;
 
-procedure TfmEditTable.DBGrid1TitleClick(Column: TColumn);
-begin
-  {todo: implement sorting a la
-  http://wiki.lazarus.freepascal.org/Grids_Reference_Page#Sorting_columns_or_rows_in_DBGrid_with_sort_arrows_in_column_header}
-{ if sqEditTable.IndexFieldNames = Column.Field.FieldName then
-   sqEditTable.IndexFieldNames := Column.Field.FieldName //+ 'DESC'
- else
-   sqEditTable.IndexFieldNames := Column.Field.FieldName}
-end;
-
 procedure TfmEditTable.sqEditTableAfterScroll(DataSet: TDataSet);
 begin
   laPos.Caption:= IntToStr(sqEditTable.RecNo) + ' of ' + IntToStr(sqEditTable.RecordCount);