Skip to content
Permalink
Browse files

Fix compiler warnings, and add documentation

  • Loading branch information...
ansgarbecker committed Jun 12, 2019
1 parent fb2e3ef commit 51e55433d32e905258ee3d13d7043234e3492e60
Showing with 2 additions and 3 deletions.
  1. +0 −3 source/main.pas
  2. +2 −0 source/texteditor.pas
@@ -1621,9 +1621,6 @@ procedure TMainForm.FormCreate(Sender: TObject);
OldSnippetsDir, CurrentSnippetsDir, TargetSnippet: String;
Files: TStringDynArray;
dti: TDBDatatypeCategoryIndex;
mii: TMenuItemInfo;
MainMenu: hMenu;
Buffer: array[0..79] of Char;
begin
caption := APPNAME;

@@ -99,7 +99,9 @@ procedure TfrmTextEditor.SetText(text: String);
var
Detected, Item: TMenuItem;
begin
// Apply text string, and detect type of line breaks in it
FDetectedLineBreaks := ScanLineBreaks(text);
Detected := nil;
if FDetectedLineBreaks = lbsNone then
FDetectedLineBreaks := TLineBreaks(AppSettings.ReadInt(asLineBreakStyle));
for Item in popupLinebreaks.Items do begin

0 comments on commit 51e5543

Please sign in to comment.
You can’t perform that action at this time.