Changeset 105

Timestamp:

May 6, 2019, 10:32:47 AM (5 years ago)

Author:

chronos

Message:

• Fixed: Resolved compiler warnings and notes.
• Modified: Update packages.

Location:

trunk

Files:

• Forms/UFormSourceCode.lfm (modified) (9 diffs)
• Forms/UFormSourceCode.pas (modified) (1 diff)
• Packages/Common/Languages/UJobProgressView.cs.po (modified) (2 diffs)
• Packages/Common/Languages/UJobProgressView.po (modified) (1 diff)
• Packages/Common/UJobProgressView.lfm (modified) (2 diffs)
• Packages/Common/UJobProgressView.lrj (added)
• Packages/Common/UJobProgressView.lrt (deleted)
• Packages/Common/UJobProgressView.pas (modified) (1 diff)
• Packages/Common/UMemory.pas (modified) (1 diff)
• Packages/CoolTranslator/CoolTranslator.lpk (modified) (1 diff)
• Packages/CoolTranslator/UCoolTranslator.pas (modified) (4 diffs)
• Packages/TemplateGenerics/Generic/GenericMatrix.inc (modified) (7 diffs)
• Packages/TemplateGenerics/Specialized/SpecializedStream.pas (modified) (3 diffs)
• Packages/TemplateGenerics/TemplateGenerics.lpk (modified) (1 diff)
• Target/UTargetC.pas (modified) (1 diff)
• UBFHighlighter.pas (modified) (1 diff)

trunk/Forms/UFormSourceCode.lfm

@@ -1 +1 @@
 object FormSourceCode: TFormSourceCode
   Left = 459
-  Height = 589
+  Height = 491
   Top = 278
-  Width = 672
+  Width = 560
   Caption = 'Source code'
-  ClientHeight = 589
-  ClientWidth = 672
-  DesignTimePPI = 144
+  ClientHeight = 491
+  ClientWidth = 560
+  DesignTimePPI = 120
   OnCreate = FormCreate
-  LCLVersion = '2.0.0.4'
+  LCLVersion = '2.0.2.0'
   inline SynEdit1: TSynEdit
     Left = 0
@@ -16 +16 @@
     Width = 672
     Align = alClient
-    Font.Height = -16
+    Font.Height = -13
     Font.Name = 'Courier New'
     Font.Pitch = fpFixed
@@ -28 +28 @@
     OnKeyUp = MemoSourceKeyUp
     OnMouseDown = MemoSourceMouseDown
-    Gutter.Width = 80
+    Gutter.Width = 67
     Gutter.MouseActions = <>
     RightGutter.Width = 0
@@ -478 +478 @@
     inline SynLeftGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks
-        Width = 36
+        Width = 30
         MouseActions = <>
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
-        Width = 21
+        Width = 17
         MouseActions = <>
         MarkupInfo.Background = clBtnFace
@@ -492 +492 @@
       end
       object SynGutterChanges1: TSynGutterChanges
-        Width = 6
+        Width = 5
         MouseActions = <>
         ModifiedColor = 59900
@@ -505 +505 @@
       object SynGutterCodeFolding1: TSynGutterCodeFolding
         AutoSize = False
-        Width = 14
+        Width = 12
         MouseActions = <>
         MarkupInfo.Background = clNone
@@ -516 +516 @@
   object PopupMenuSource: TPopupMenu
     Images = Core.ImageListMain
-    left = 154
-    top = 154
+    left = 128
+    top = 128
     object MenuItem23: TMenuItem
       Action = FormMain.ABreakpointToggle
@@ -590 +590 @@
   object ActionList1: TActionList
     Images = Core.ImageListMain
-    left = 154
-    top = 67
+    left = 128
+    top = 56
     object AGenerateNumber: TAction
       Caption = 'Generate number'
@@ -644 +644 @@
     DefaultFilter = 'Soubory Java (*.java)|*.java'
     Enabled = False
-    left = 486
-    top = 316
+    left = 405
+    top = 263
   end
 end

trunk/Forms/UFormSourceCode.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, SynEdit, SynHighlighterIni, Forms, Controls,
-  Graphics, Dialogs, StdCtrls, Menus, ActnList, strutils, SynEditTypes,
+  Graphics, Dialogs, StdCtrls, Menus, ActnList, strutils,
   SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, UBFHighlighter;
 

trunk/Packages/Common/Languages/UJobProgressView.cs.po

@@ -10 +10 @@
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"X-Generator: Poedit 1.8.8\n"
+"X-Generator: Poedit 2.2\n"
 
 #: ujobprogressview.sestimatedtime
@@ -24 +24 @@
 msgstr "Dokončené"
 
-#: ujobprogressview.soperations
-msgid "Operations:"
-msgstr ""
-
 #: ujobprogressview.spleasewait
 msgid "Please wait..."

trunk/Packages/Common/Languages/UJobProgressView.po

@@ -14 +14 @@
 msgstr ""
 
-#: ujobprogressview.soperations
-msgid "Operations:"
-msgstr ""
-
 #: ujobprogressview.spleasewait
 msgid "Please wait..."

trunk/Packages/Common/UJobProgressView.lfm

@@ -15 +15 @@
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.8.2.0'
+  LCLVersion = '2.0.2.0'
   object PanelOperationsTitle: TPanel
     Left = 0
@@ -241 +241 @@
     Interval = 100
     OnTimer = TimerUpdateTimer
-    left = 264
+    left = 320
     top = 8
   end

trunk/Packages/Common/UJobProgressView.pas

@@ -175 +175 @@
   STotalEstimatedTime = 'Total estimated time: %s';
   SFinished = 'Finished';
-  SOperations = 'Operations:';
 
 procedure Register;

trunk/Packages/Common/UMemory.pas

@@ -112 +112 @@
 procedure TMemory.WriteMemory(Position: Integer; Memory: TMemory);
 begin
-  Move(Memory.FData, PByte(@FData + Position)^, Memory.Size);
+  Move(Memory.FData, PByte(PByte(@FData) + Position)^, Memory.Size);
 end;
 
 procedure TMemory.ReadMemory(Position: Integer; Memory: TMemory);
 begin
-  Move(PByte(@FData + Position)^, Memory.FData, Memory.Size);
+  Move(PByte(PByte(@FData) + Position)^, Memory.FData, Memory.Size);
 end;
 

trunk/Packages/CoolTranslator/CoolTranslator.lpk

@@ -15 +15 @@
       <Parsing>
         <SyntaxOptions>
+          <SyntaxMode Value="Delphi"/>
           <CStyleOperator Value="False"/>
           <AllowLabel Value="False"/>

trunk/Packages/CoolTranslator/UCoolTranslator.pas

@@ -200 +200 @@
   PropInfo: PPropInfo;
   PropList: PPropList;
-  Excludes: TComponentExcludes;
 begin
   Count := GetTypeData(Component.ClassInfo)^.PropCount;
@@ -253 +252 @@
           if (UpperCase(PropType.Name) = 'TTRANSLATESTRING') then
           //if not IsExcluded(Component, PropInfo^.Name) then
-              SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetWideStrProp(Component, PropInfo)));
+              SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, string(GetWideStrProp(Component, PropInfo))));
         end;
         tkClass: begin
@@ -415 +414 @@
         Lang := ParamStr(i + 1);
   end;
-  if Lang = '' then
+  if Lang = '' then begin
+    T := '';
     LazGetLanguageIDs(Lang, T);
+  end;
 
   if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin
@@ -432 +433 @@
 function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
 var
-  T: string;
   Lang: string;
 begin

trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

@@ -23 +23 @@
     function GetItem(Index: TIndex): TGMatrixItem;
     function GetCapacity: TIndex;
-    function GetLast: TGMatrixItem;
-    function GetFirst: TGMatrixItem;
     procedure SetCapacity(const AValue: TIndex);
-    procedure SetLast(AValue: TGMatrixItem);
-    procedure SetFirst(AValue: TGMatrixItem);
     procedure PutItemXY(X: TGMatrixIndexX; Y: TGMatrixIndexY; const AValue: TGMatrixItem); virtual;
     procedure PutItem(Index: TIndex; const AValue: TGMatrixItem); virtual;
     procedure SetCount(const AValue: TIndex);
   public
-    function Add(Item: TGMatrixItem): TIndex;
-    procedure AddMatrix(Values: array of TRow);
-    procedure AddList(List: TGMatrix);
     procedure Assign(Source: TGMatrix);
     procedure Clear; virtual;
     procedure Contract;
     function CreateIndex(X: TGMatrixIndexY; Y: TGMatrixIndexX): TIndex;
-    procedure Delete(Index: TIndex); virtual;
-    procedure DeleteItems(Index, Count: TIndex);
-    function EqualTo(List: TGMatrix): Boolean;
     procedure Expand;
-    function Extract(Item: TGMatrixItem): TGMatrixItem;
     procedure Exchange(Index1, Index2: TIndex);
-    property First: TGMatrixItem read GetFirst write SetFirst;
     procedure FillAll(Value: TGMatrixItem);
     procedure Fill(Start, Count: TIndex; Value: TGMatrixItem);
     function Implode(RowSeparator, ColSeparator: string; Converter: TToStringConverter): string;
-    procedure Explode(Text, Separator: string; Converter: TFromStringConverter; SlicesCount: Integer = -1);
-    function IndexOf(Item: TGMatrixItem; Start: TIndex): TIndex;
-    function IndexOfList(List: TGMatrix; Start: TIndex): TIndex;
-    procedure Insert(Index: TIndex; Item: TGMatrixItem);
-    procedure InsertList(Index: TIndex; List: TGMatrix);
-    procedure InsertArray(Index: TIndex; Values: array of TGMatrixItem);
-    procedure Move(CurIndex, NewIndex: TIndex);
-    procedure MoveItems(CurIndex, NewIndex, Count: TIndex);
     procedure Merge(Index: TIndex; Source: TGMatrix; Proc: TMerge);
     procedure Replace(Index: TIndex; Source: TGMatrix);
-    function Remove(Item: TGMatrixItem): TIndex;
     procedure Reverse;
     procedure ReverseHorizontal;
     procedure ReverseVertical;
-    procedure Sort(Compare: TSortCompare);
-    procedure SetArray(Values: array of TGMatrixItem);
     property Count: TIndex read FCount write SetCount;
     property Capacity: TIndex read GetCapacity write SetCapacity;
@@ -71 +48 @@
     property Items[Index: TIndex]: TGMatrixItem
       read GetItem write PutItem;
-    property Last: TGMatrixItem read GetLast write SetLast;
   end;
 
@@ -78 +54 @@
 
 {$IFDEF IMPLEMENTATION_USES}
-
-uses
-  RtlConsts;
 
 resourcestring
@@ -137 +110 @@
 
 procedure TGMatrix.SetCapacity(const AValue: TIndex);
-var
-  Y: TGMatrixIndexY;
 begin
   if (Capacity.X <> AValue.X) and (Capacity.Y <> AValue.Y) then begin
-(*    SetLength(FItems, AValue.Y);
-    Y := 0;
-    while Y < Length(FItems) do begin
-      SetLength(FItems[Y], AValue.X);
-      Y := Y + 1;
-    end;
-  end;
-  *)
     SetLength(FItems, AValue.Y, AValue.X);
   end;
@@ -244 +207 @@
 end;
 
-function TGMatrix.Extract(Item: TGMatrixItem): TGMatrixItem;
-var
-  I: TIndex;
-begin
-(*  I := IndexOf(Item);
-  if I >= 0 then begin
-    Result := Item;
-    Delete(I);
-  end else
-    raise EListError.CreateFmt(SListIndexError, [0]);
-    *)
-end;
-
-function TGMatrix.IndexOf(Item: TGMatrixItem; Start: TIndex): TIndex;
-begin
-(*  Result := Start;
-  while (Result < FCount) and
-  not CompareMem(Addr(FItems[Result]), Addr(Item), SizeOf(TGMatrixItem)) do
-    Result := Result + 1;
-  if Result = FCount then Result := -1;
-  *)
-end;
-
-procedure TGMatrix.Insert(Index: TIndex; Item: TGMatrixItem);
-begin
-(*  if (Index < 0) or (Index > FCount ) then
-    raise EListError.CreateFmt(SListIndexError, [Index]);
-  if FCount = Capacity then Expand;
-  if Index < FCount then
-    System.Move(FItems[Index], FItems[Index + 1], (FCount - Index) * SizeOf(TGMatrixItem));
-  FItems[Index] := Item;
-  FCount := FCount + 1;
-  *)
-end;
-
-procedure TGMatrix.InsertList(Index: TIndex; List: TGMatrix);
-var
-  I: TIndex;
-begin
-(*  I := 0;
-  while (I < List.Count) do begin
-    Insert(Index + I, List[I]);
-    I := I + 1;
-  end;
-  *)
-end;
-
-function TGMatrix.IndexOfList(List: TGMatrix; Start: TIndex): TIndex;
-var
-  I: TIndex;
-begin
-(*  if List.Count > 0 then begin
-    Result := IndexOf(List[0], Start);
-    if Result <> -1 then begin
-      I := 1;
-      while I < List.Count do begin
-        if not CompareMem(Addr(FItems[Result + I]), Addr(List.FItems[I]), SizeOf(TGMatrixItem)) then begin
-          Result := -1;
-          Break;
-        end;
-        I := I + 1;
-      end;
-    end;
-  end else Result := -1;
-  *)
-end;
-
-function TGMatrix.GetLast: TGMatrixItem;
-begin
-(*  if FCount = 0 then
-    raise EListError.CreateFmt(SListIndexError, [0])
-  else
-    Result := Items[FCount - 1];
-    *)
-end;
-
-procedure TGMatrix.SetLast(AValue: TGMatrixItem);
-begin
-(*  if FCount = 0 then
-    raise EListError.CreateFmt(SListIndexError, [0])
-  else
-    Items[FCount - 1] := AValue;
-    *)
-end;
-
-function TGMatrix.GetFirst: TGMatrixItem;
-begin
-(*  if FCount = 0 then
-    raise EListError.CreateFmt(SListIndexError, [0])
-  else
-    Result := Items[0];
-    *)
-end;
-
-procedure TGMatrix.SetFirst(AValue: TGMatrixItem);
-begin
-(*  if FCount = 0 then
-    raise EListError.CreateFmt(SListIndexError, [0])
-  else
-    Items[0] := AValue;
-    *)
-end;
-
-procedure TGMatrix.Move(CurIndex, NewIndex: TIndex);
-var
-  Temp: TGMatrixItem;
-begin
-(*  if ((CurIndex < 0) or (CurIndex > Count - 1)) then
-    raise EListError.CreateFmt(SListIndexError, [CurIndex]);
-  if ((NewIndex < 0) or (NewIndex > Count -1)) then
-    raise EListError.CreateFmt(SlistIndexError, [NewIndex]);
-  Temp := FItems[CurIndex];
-  if NewIndex > CurIndex then begin
-    System.Move(FItems[CurIndex + 1], FItems[CurIndex], (NewIndex - CurIndex) * SizeOf(TGMatrixItem));
-  end else
-  if NewIndex < CurIndex then begin
-    System.Move(FItems[NewIndex], FItems[NewIndex + 1], (CurIndex - NewIndex) * SizeOf(TGMatrixItem));
-  end;
-  FItems[NewIndex] := Temp;
-  //Delete(CurIndex);
-  //Insert(NewIndex, Temp);*)
-end;
-
-procedure TGMatrix.MoveItems(CurIndex, NewIndex, Count: TIndex);
-var
-  S: Integer;
-  D: Integer;
-begin
-(*  if CurIndex < NewIndex then begin
-    S := CurIndex + Count - 1;
-    D := NewIndex + Count - 1;
-    while S >= CurIndex do begin
-      Move(S, D);
-      S := S - 1;
-      D := D - 1;
-    end;
-  end else
-  if CurIndex > NewIndex then begin
-    S := CurIndex;
-    D := NewIndex;
-    while S < (CurIndex + Count) do begin
-      Move(S, D);
-      S := S + 1;
-      D := D + 1;
-    end;
-  end;*)
-end;
-
-function TGMatrix.Remove(Item: TGMatrixItem): TIndex;
-begin
-(*  Result := IndexOf(Item);
-  if Result <> -1 then
-    Delete(Result); *)
-end;
-
-function TGMatrix.EqualTo(List: TGMatrix): Boolean;
-var
-  I: TIndex;
-begin
-(*  Result := Count = List.Count;
-  if Result then begin
-    I := 0;
-    while I < Count do begin
-      if not CompareMem(Addr(FItems[I]), Addr(List.FItems[I]), SizeOf(TGMatrixItem)) then begin
-        Result := False;
-        Break;
-      end;
-      I := I + 1;
-    end;
-  end; *)
-end;
-
 procedure TGMatrix.Reverse;
 var
@@ -464 +255 @@
 end;
 
-procedure TGMatrix.Sort(Compare: TSortCompare);
-begin
-(*  if FCount > 1 then
-    QuickSort(0, FCount - 1, Compare); *)
-end;
-
-procedure TGMatrix.AddMatrix(Values: array of TRow);
-var
-  I: TIndex;
-begin
-(*  I := 0;
-  while I <= High(Values) do begin
-    Add(Values[I]);
-    I := I + 1;
-  end; *)
-end;
-
-procedure TGMatrix.SetArray(Values: array of TGMatrixItem);
-var
-  I: TIndex;
-begin
-(*  Clear;
-  I := 0;
-  while I <= High(Values) do begin
-    Add(Values[I]);
-    I := I + 1;
-  end; *)
-end;
-
-procedure TGMatrix.InsertArray(Index: TIndex; Values: array of TGMatrixItem);
-var
-  I: TIndex;
-begin
-(*  I := 0;
-  while I <= High(Values) do begin
-    Insert(Index + I, Values[I]);
-    I := I + 1;
-  end; *)
-end;
-
 function TGMatrix.Implode(RowSeparator, ColSeparator: string; Converter: TToStringConverter): string;
 var
@@ -525 +276 @@
 end;
 
-procedure TGMatrix.Explode(Text, Separator: string; Converter: TFromStringConverter; SlicesCount: Integer = -1);
-begin
-(*  Clear;
-  while (Pos(Separator, Text) > 0) and
-  ((Count < (SlicesCount - 1)) or (SlicesCount = -1)) do begin
-    Add(Converter(Copy(Text, 1, Pos(Separator, Text) - 1)));
-    System.Delete(Text, 1, Pos(Separator, Text) + Length(Separator) - 1);
-  end;
-  Add(Converter(Text)); *)
-end;
-
-function TGMatrix.Add(Item: TGMatrixItem): TIndex;
-begin
-(*  if FCount = Capacity then
-    Self.Expand;
-  FItems[FCount] := Item;
-  Result := FCount;
-  FCount := FCount + 1; *)
-end;
-
-procedure TGMatrix.AddList(List: TGMatrix);
-var
-  I: TIndex;
-begin
-(*  I := 0;
-  while I < List.Count do begin
-    Add(List[I]);
-    I := I + 1;
-  end; *)
-end;
-
 procedure TGMatrix.Clear;
 begin
   Count := CreateIndex(0, 0);
   Capacity := CreateIndex(0, 0);
-end;
-
-procedure TGMatrix.Delete(Index: TIndex);
-begin
-(*  if (Index < 0) or (Index >= FCount) then
-    raise EListError.CreateFmt(SListIndexError, [Index]);
-  FCount := FCount - 1;
-  System.Move(FItems[Index + 1], FItems[Index], (FCount - Index) * SizeOf(TGMatrixItem));
-  Contract;
-  *)
-end;
-
-procedure TGMatrix.DeleteItems(Index, Count: TIndex);
-var
-  I: TIndex;
-begin
-(*  I := Index;
-  while I < (Index + Count) do begin
-    Delete(Index);
-    I := I + 1;
-  end;
-  *)
 end;
 

trunk/Packages/TemplateGenerics/Specialized/SpecializedStream.pas

@@ -113 +113 @@
 function TMemoryStreamByte.WriteBuffer(var Buffer; Count: Integer): Integer;
 begin
-
+  Result := 0;
 end;
 
@@ -137 +137 @@
 function TMemoryStreamByte.ReadBuffer(var Buffer; Count: Integer): Integer;
 begin
-
+  Result := 0;
 end;
 
@@ -143 +143 @@
   ): Integer;
 begin
-
+  Result := 0;
 end;
 

trunk/Packages/TemplateGenerics/TemplateGenerics.lpk

@@ -17 +17 @@
       <Parsing>
         <SyntaxOptions>
+          <SyntaxMode Value="Delphi"/>
           <CStyleOperator Value="False"/>
           <AllowLabel Value="False"/>

trunk/Target/UTargetC.pas

@@ -123 +123 @@
     Process := TProcess.Create(nil);
     Process.CurrentDirectory := ExtractFilePath(CompilerPath);
-    Process.CommandLine := LongFileName(CompilerPath) + ' ' + LongFileName(CompiledFile) + ' -o ' +
-      LongFileName(ExtractFilePath(CompiledFile) + ExtractFileNameOnly(CompiledFile) + CompiledExtension);
+    Process.Executable := LongFileName(CompilerPath);
+    Process.Parameters.Add(LongFileName(CompiledFile));
+    Process.Parameters.Add('-o');
+    Process.Parameters.Add(LongFileName(ExtractFilePath(CompiledFile) + ExtractFileNameOnly(CompiledFile) + CompiledExtension));
     Process.Options := [poWaitOnExit];
     Process.Execute;

trunk/UBFHighlighter.pas

@@ -53 +53 @@
 
 uses
-  Classes, SysUtils, Graphics, SynEditTypes, SynEditHighlighter;
+  Classes, SysUtils, Graphics, SynEditHighlighter;
 
 type