Ver Fonte

Cosmetic

Reinier Olislagers há 11 anos atrás
pai
commit
e8fced65f5
2 ficheiros alterados com 3 adições e 7 exclusões
  1. 1 1
      neweditfield.pas
  2. 2 6
      querywindow.pas

+ 1 - 1
neweditfield.pas

@@ -210,7 +210,7 @@ procedure TfmNewEditField.cbTypeEditingDone(Sender: TObject);
 begin
   seSize.Value:= dmSysTables.GetDefaultTypeSize(FDBIndex, cbType.Text);
 
-  {todo: low priority allow/disallow gui elements when using domain datatypes.
+  {todo: (low priority) allow/disallow gui elements when using domain datatypes.
    Check what can be overridden (e.g. collate for text-type domain fields)}
   // Allow character set, lblCollation for text type fields; otherwise disable
   case cbType.Text of

+ 2 - 6
querywindow.pas

@@ -346,15 +346,10 @@ begin
   end;
 end;
 
-{ TQueryThread }
-
-
-
 
 { ApplyClick: Save Updates for the query }
 
 procedure TfmQueryWindow.ApplyClick(Sender: TObject);
-//todo: review this and perhaps use regular FPC databound controls? autogenerated updatesql etc
 var
   i, x: Integer;
   TableName: string;
@@ -563,7 +558,7 @@ begin
     end;
 
     if (Pos('select', MassagedSQL) = 1) then
-      { todo: low priority misses insert...returning,
+      { todo: (low priority) misses insert...returning,
        update...returning, merge.. returning...}
       Result:= qtSelectable
     else
@@ -578,6 +573,7 @@ begin
   end;
 end;
 
+{ TQueryThread }
 
 { DoJob: Execute thread job: open query, execute, commit, rollback, etc }