Thank you, Sir.
I think there should be a separate section or at least a topic soon, so people could find and post fast enough
, but here's what I've found so far:
************************************************
Package:
pl_Shapes
Unit:
TplShapeObjects
everywhere called function DrawArrowHead(canvas, ...) should be DrawArrowHead(acanvas, ..) in order to have a proper drawing of the arrow. In other words parameter 'canvas' should be 'acanvas'.
line #
1247,
1250,
1542,
1545,
1605,
1607,
DrawArrowHead(canvas, ....
should be
DrawArrowHead(acanvas, ...
Just a suggestion: if you can add for example
private
fArrowSize: byte;
fArrowFill: Boolean;
public
property ArrowSize: byte read fArrowSize write fArrowSize;
property ArrowFill: boolean read fArrowFill write fArrowFill;
to all the shapes that has an ability to have an arrow drawn. At the moment arrow head size and fill is hard-coded. Code should be then
DrawArrowHead(acanvas, BtnPoints[1], BtnPoints[0], fArrowSize, fArrowFill);
instead of current
DrawArrowHead(acanvas, BtnPoints[1], BtnPoints[0], 5, True);
Example code I've provided above is for TplLine component.
************************************************
Package:
pl_lNet
Unit:
lhttp.pp
Test scenario:
using TLHTTPClientComponent, no matter created runtime by code or designtime on a form, if using ASocket.Disconnect() inside DoneInput event
procedure TfrmTest.LHTTPClientComponent1DoneInput(ASocket: TLHTTPClientSocket);
begin
ASocket.Disconnect(); // <- if using this one!!!
end;
there is 1 unfreed block for every time .Disconnect method is executed.
In order to solve this lines #
1000 and #
1001 if FCurrentInput <> nil then
FreeAndNil(FCurrentInput);
should be commented.
I see almindor already fixed the other bugs I've found so far.
Also, regarding Typhon IDE, please Mr Sternas, fix the issue with missing main window. This happens when Typhon is minimized, then right-click on it on the task bar and close (OS: Windows).
Way to resolve:
<?xml version="1.0" encoding="utf-8"?>
<CONFIG>
<Settings HeaderColor="536870912"/>
<MainConfig>
<Nodes ChildCount="4">
<Item1 Name="MainIDE" Type="CustomSite" WindowState="Minimized">
...
should be
<?xml version="1.0" encoding="utf-8"?>
<CONFIG>
<Settings HeaderColor="536870912"/>
<MainConfig>
<Nodes ChildCount="4">
<Item1 Name="MainIDE" Type="CustomSite">
State Minimized for main window is not a good thing
That's for now. Hope the information was useful and these minor bugs will be resolved.
Regards,
Markov