bk/2024-06-21-1433

Author: Cesar4D

Src/IDE/Shortcuts/DelphiAIDev.IDE.Shortcuts.pas

@@ -22,8 +22,6 @@   TDelphiAIDevIDEShortcuts = class(TNotifierObject, IOTAKeyboardBinding)
     procedure BindKeyboard(const BindingServices: IOTAKeyBindingServices);
   public
     class function New: IOTAKeyboardBinding;
-    constructor Create;
-    destructor Destroy; override;
   end;
 
 procedure RefreshRegister;
@@ -63,16 +61,6 @@ class function TDelphiAIDevIDEShortcuts.New: IOTAKeyboardBinding;
   Result := Self.Create;
 end;
 
-constructor TDelphiAIDevIDEShortcuts.Create;
-begin
-
-end;
-
-destructor TDelphiAIDevIDEShortcuts.Destroy;
-begin
-  inherited;
-end;
-
 function TDelphiAIDevIDEShortcuts.GetBindingType: TBindingType;
 begin
   Result := btPartial;
@@ -90,51 +78,24 @@ function TDelphiAIDevIDEShortcuts.GetName: string;
 
 procedure TDelphiAIDevIDEShortcuts.BindKeyboard(const BindingServices: IOTAKeyBindingServices);
 begin
-  Exit;
-
   BindingServices.AddKeyBinding([Shortcut(VK_RETURN, [])], Self.KeyProcBlockReturn, nil);
   BindingServices.AddKeyBinding([Shortcut(VK_RETURN, [ssAlt])], Self.KeyProcBlockReturnAndAlt, nil);
 end;
 
 procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
 begin
-  TUtils.ShowMsg(GetCurrentLine(CnOtaGetTopMostEditView));
+  TUtils.AddLog(GetCurrentLineOrBlock(CnOtaGetTopMostEditView));
   BindingResult := krUnhandled;
 end;
 
 procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturnAndAlt(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
 begin
-  TUtils.ShowMsg('Enter and Alt' + GetCurrentLine(CnOtaGetTopMostEditView));
+  TUtils.AddLog('Enter and Alt' + GetCurrentLineOrBlock(CnOtaGetTopMostEditView));
   BindingResult := krUnhandled;
 end;
 initialization
 
 finalization
   UnRegisterSelf;
 
-//procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturnAndAlt(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
-//var
-//  LIOTAProject: IOTAProject;
-//begin
-//  LIOTAProject := TUtilsOTA.GetCurrentProject;
-//  if LIOTAProject = nil then
-//  begin
-//    BindingResult := krUnhandled;
-//    Exit;
-//  end;
-
-//  if TUtils.FileNameIsDelphiAIDeveloperDPROJ(LIOTAProject.FileName) then
-//  begin
-//    BindingResult := krUnhandled;
-//    Exit;
-//  end;
-//
-//  TUtils.ShowMsg('Enter and Alt' + GetCurrentLine(CnOtaGetTopMostEditView));
-
-//  if(C4DWizardSettingsModel.BlockKeyInsert)then
-//    BindingResult := krHandled
-//  else
-//    BindingResult := krUnhandled;
-//end;
-
 end.

Src/Test/Test.pas

@@ -2,9 +2,22 @@
 
 interface
 
+type
+  TTest = class
+  private
+    FId: Integer;
+    FNome: string;
+    FEndereco: string;
+  public
+    class procedure LoadClient;
+  end;
+
 implementation
 
-//minha pergunta aqui
 
+class procedure TTest.LoadClient;
+begin
+
+end;
 
 end.

Src/Utils/DelphiAIDev.Utils.CnWizard.pas

@@ -27,10 +27,14 @@ function CnOtaGetTopMostEditView: IOTAEditView;
 function CnOtaEditPosToLinePos(EditPos: TOTAEditPos; EditView: IOTAEditView = nil): Integer;
 function OTAEditPos(Col: SmallInt; Line: Longint): TOTAEditPos;
 function CnOtaGetCurrLineText(var Text: string; var LineNo: Integer; var CharIndex: Integer; View: IOTAEditView = nil): Boolean;
-function GetCurrentLine(const AEditView: IOTAEditView): string;
+function GetCurrentLineOrBlock(const AEditView: IOTAEditView): string;
 
 implementation
 
+uses
+  DelphiAiDev.Utils,
+  DelphiAiDev.Utils.OTA;
+
 function QuerySvcs(const Instance: IUnknown; const Intf: TGUID; out Inst): Boolean;
 begin
   Result := (Instance <> nil) and Supports(Instance, Intf, Inst);
@@ -98,7 +102,7 @@ function CnOtaGetCurrLineText(var Text: string; var LineNo: Integer; var CharInd
   OutStr: AnsiString;
 begin
   Result := False;
-  //teste
+
   if not Assigned(View)then
     View := CnOtaGetTopMostEditView;
   if not Assigned(View) then
@@ -130,14 +134,11 @@ function CnOtaGetCurrLineText(var Text: string; var LineNo: Integer; var CharInd
   Result := True;
 end;
 
-function GetCurrentLine(const AEditView: IOTAEditView): string;
+function GetCurrentLineOrBlock(const AEditView: IOTAEditView): string;
 var
-  TextLen: Integer;
-  StartPos: Integer;
-  EndPos: Integer;
-  LineNo: Integer;
-  CharIndex: Integer;
-  LineText: String;
+  LLineText: string;
+  LLineNo: Integer;
+  LCharIndex: Integer;
 begin
   Result := '';
 //  if IsEditControl(Screen.ActiveControl) and Assigned(AEditView) then
@@ -148,32 +149,11 @@ function GetCurrentLine(const AEditView: IOTAEditView): string;
     Exit;
 
   if AEditView.Block.IsValid then
-  begin
-//    StartPos := CnOtaEditPosToLinePos(OTAEditPos(AEditView.Block.StartingColumn,
-//      AEditView.Block.StartingRow), AEditView);
-//    EndPos := CnOtaEditPosToLinePos(OTAEditPos(AEditView.Block.EndingColumn,
-//      AEditView.Block.EndingRow), AEditView);
-//    TextLen := AEditView.Block.Size;
-//
-//  {$IFDEF UNICODE}
-//    CnOtaInsertTextIntoEditorAtPosW(AEditView.Block.Text, StartPos, AEditView.Buffer);
-//  {$ELSE}
-//    CnOtaInsertTextIntoEditorAtPos(ConvertEditorTextToText(AEditView.Block.Text), StartPos, AEditView.Buffer);
-//  {$ENDIF}
-//    AEditView.CursorPos := CnOtaLinePosToEditPos(StartPos + TextLen);
-//    AEditView.Block.BeginBlock;
-//    AEditView.CursorPos := CnOtaLinePosToEditPos(EndPos + TextLen);
-//    AEditView.Block.EndBlock;
-//
-//    AEditView.Paint;
-  end
+    Result := TUtilsOTA.GetBlockTextSelect
   else
   begin
-    CnOtaGetCurrLineText(LineText, LineNo, CharIndex);
-    Result := LineText;
-
-    //Inc(LineNo);
-    //CnOtaInsertSingleLine(LineNo, LineText, AEditView);
+    CnOtaGetCurrLineText(LLineText, LLineNo, LCharIndex);
+    Result := LLineText;
   end;
 end;
 

Src/Utils/DelphiAIDev.Utils.pas

@@ -141,18 +141,23 @@ class procedure TUtils.AddLog(const AMessage: string);
 begin
   try
     if not(DirectoryExists(DIRECTORY)) then
-      ForceCurrentDirectory(DIRECTORY);
+      ForceDirectories(DIRECTORY);
 
-    LFileName := DIRECTORY + FormatDateTime('yyyy-mm-dd', Now) + 'txt';
+    LFileName := DIRECTORY + FormatDateTime('yyyy-mm-dd', Now) + '.txt';
     AssignFile(LTextFile, LFileName);
+    if not FileExists(LFileName)then
+      Rewrite(LTextFile);
     Append(LTextFile);
     Writeln(LTextFile, AMessage);
     CloseFile(LTextFile);
   except
+//    on E: Exception do
+//      ShowMsg('Unable to generate log. Message: ' + E.Message + sLineBreak + 'Filename: ' + LFileName);
   end;
 end;
 
 class function TUtils.GetFileName(const AExtension: string): string;
+
 var
   LFileName: string;
   LSaveDialog: TSaveDialog;