Skip to content

Commit

Permalink
Add files via upload
Browse files Browse the repository at this point in the history
  • Loading branch information
@vrwallace
vrwallace committed Apr 1, 2024
1 parent 35c8f82 commit 70cbe2f
Show file tree
Hide file tree
Showing 2 changed files with 42 additions and 35 deletions.
64 changes: 32 additions & 32 deletions project1.lps
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<TopLine Value="174"/>
<CursorPos X="5" Y="216"/>
<TopLine Value="207"/>
<CursorPos X="125" Y="209"/>
<UsageCount Value="38"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
Expand All @@ -31,123 +31,123 @@
<JumpHistory HistoryIndex="29">
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="69" Column="27" TopLine="43"/>
<Caret Line="328" Column="26" TopLine="319"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="352" Column="5" TopLine="320"/>
<Caret Line="712" Column="31" TopLine="699"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="704" Column="23" TopLine="657"/>
<Caret Line="273" Column="5" TopLine="265"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="227" Column="94" TopLine="206"/>
<Caret Line="306" Column="42" TopLine="291"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="233" Column="28" TopLine="206"/>
<Caret Line="318" Column="19" TopLine="290"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="349" Column="27" TopLine="303"/>
<Caret Line="689" Column="3" TopLine="681"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="703" Column="27" TopLine="657"/>
<Caret Line="270" Column="5" TopLine="243"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="233" Column="28" TopLine="206"/>
<Caret Line="269" Column="36" TopLine="243"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="349" Column="27" TopLine="303"/>
<Caret Line="318" Column="36" TopLine="291"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="703" Column="27" TopLine="657"/>
<Caret Line="735" Column="106" TopLine="723"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="233" Column="28" TopLine="212"/>
<Caret Line="340" Column="27" TopLine="325"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="328" Column="26" TopLine="320"/>
<Caret Line="624" Column="115" TopLine="608"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="90" Column="14" TopLine="64"/>
<Caret Line="654" Column="29" TopLine="608"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="328" Column="26" TopLine="319"/>
<Caret Line="657" Column="31" TopLine="611"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="712" Column="31" TopLine="699"/>
<Caret Line="142" Column="17" TopLine="115"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="273" Column="5" TopLine="265"/>
<Caret Line="165" Column="78" TopLine="131"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="306" Column="42" TopLine="291"/>
<Caret Line="216" Column="5" TopLine="174"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="318" Column="19" TopLine="290"/>
<Caret Line="257" Column="26" TopLine="211"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="689" Column="3" TopLine="681"/>
<Caret Line="262" Column="33" TopLine="252"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="270" Column="5" TopLine="243"/>
<Caret Line="264" Column="15" TopLine="252"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="269" Column="36" TopLine="243"/>
<Caret Line="653" Column="35" TopLine="610"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="318" Column="36" TopLine="291"/>
<Caret Line="662" Column="35" TopLine="616"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="735" Column="106" TopLine="723"/>
<Caret Line="772" Column="24" TopLine="735"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="340" Column="27" TopLine="325"/>
<Caret Line="26" Column="21"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="624" Column="115" TopLine="608"/>
<Caret Line="27" Column="21"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="654" Column="29" TopLine="608"/>
<Caret Line="83" Column="21" TopLine="37"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="657" Column="31" TopLine="611"/>
<Caret Line="159" Column="14" TopLine="122"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="142" Column="17" TopLine="115"/>
<Caret Line="216" Column="41" TopLine="178"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="165" Column="78" TopLine="131"/>
<Caret Line="222" Column="2" TopLine="189"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="216" Column="5" TopLine="174"/>
<Caret Line="209" Column="125" TopLine="207"/>
</Position>
</JumpHistory>
<RunParams>
Expand Down
13 changes: 10 additions & 3 deletions unit1.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -206,13 +206,20 @@ procedure TFileTailThread.TailFile;
end;

procedure TFileTailThread.UpdateMemo;
var
LastLineIndex: Integer;
begin


// Scroll to the last line to make it visible
//Memo1.Perform(EM_SCROLL, SB_BOTTOM, 0);

while Form1.Memo1.Lines.Count > 10000 do
Form1.Memo1.Lines.Delete(0);
// Update the TMemo on Form1
//Form1.Memo1.Lines.Add(FNewData);
Form1.Memo1.Lines.text:=Form1.Memo1.Lines.text+FNewData;
LastLineIndex := form1.Memo1.Lines.Count - 1;
// Form1.Memo1.Lines.text:=Form1.Memo1.Lines.text+FNewData;
form1.Memo1.Lines[LastLineIndex] := form1.Memo1.Lines[LastLineIndex] + FNewData;
//Form1.Memo1.Perform(EM_SCROLL, SB_BOTTOM, 0);

end;

Expand Down

0 comments on commit 70cbe2f

Please sign in to comment.