paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 09:21:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Removes TWidgetset.DebugLog in favor of DebugLn, reverting my previous stance on the subject

Browse Source 
git-svn-id: trunk@33863 -
This commit is contained in:
sekelsenmat 2011-11-30 09:30:31 +00:00
parent 2c0508fb0b
commit 71e316ef50
3 changed files with 0 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
docs/xml/lcl/interfacebase.xml
View File

@ -687,32 +687,6 @@
<element name="TWidgetSet.GetLCLCapability.ACapability">
<short></short>
</element>
<!-- procedure Visibility: public -->
<element name="TWidgetSet.DebugLogLn">
<short></short>
<descr>
</descr>
<errors>
</errors>
<seealso>
</seealso>
</element>
<element name="TWidgetSet.DebugLogLn.s">
<short></short>
</element>
<!-- procedure Visibility: public -->
<element name="TWidgetSet.DebugLog">
<short></short>
<descr>
</descr>
<errors>
</errors>
<seealso>
</seealso>
</element>
<element name="TWidgetSet.DebugLog.s">
<short></short>
</element>
<!-- function Visibility: public -->
<element name="TWidgetSet.DCGetPixel">
<short></short>

12
lcl/include/interfacebase.inc
View File

@ -104,18 +104,6 @@ begin
end;
end;
procedure TWidgetSet.DebugLogLn(const s: string);
begin
if Assigned(LCLProc.DebugText) then
WriteLn(LCLProc.DebugText^, s);
end;
procedure TWidgetSet.DebugLog(const s: string);
begin
if Assigned(LCLProc.DebugText) then
Write(LCLProc.DebugText^, s);
end;
procedure TWidgetSet.DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean);
begin
end;

3
lcl/interfacebase.pp
View File

@ -162,9 +162,6 @@ type
function LCLPlatform: TLCLPlatform; virtual; abstract;
function GetLCLCapability(ACapability: TLCLCapability): PtrUInt; virtual;
procedure DebugLogLn(const s: string); virtual;
procedure DebugLog(const s: string); virtual;
function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; virtual; abstract;
procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); virtual; abstract;
procedure DCRedraw(CanvasHandle: HDC); virtual; abstract;