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

MG: fixed loading TListView from stream

Browse Source 
git-svn-id: trunk@1205 -
This commit is contained in:
lazarus 2002-02-09 01:48:05 +00:00
parent 3b1c66300d
commit cd5087d8c3
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/controls.pp
View File

@ -973,6 +973,8 @@ function IdentToCursor(const Ident: string; var Cursor: Longint): Boolean;
function GetKeyShiftState: TShiftState;
procedure RaiseGDBException(const Msg: string);
implementation
@ -992,6 +994,21 @@ var
DragStartPos : TPoint;
//DragThreshold : Integer;
{------------------------------------------------------------------------------
procedure RaiseGDBException(const Msg: string);
Raises an exception.
gdb does not catch fpc Exception objects, therefore this procedure raises
a standard AV which is catched by gdb.
------------------------------------------------------------------------------}
procedure RaiseGDBException(const Msg: string);
begin
writeln('ERROR in gtk-interface: ',Msg);
// creates an exception, that gdb catches:
writeln('Creating gdb catchable error:');
if (length(Msg) div (length(Msg) div 10000))=0 then ;
end;
{------------------------------------------------------------------------------}
{ CNSendMessage }
{------------------------------------------------------------------------------}
@ -1357,6 +1374,9 @@ end.
{ =============================================================================
$Log$
Revision 1.76 2002/10/09 11:46:04 lazarus
MG: fixed loading TListView from stream
Revision 1.75 2002/10/01 10:41:47 lazarus
MG: fixed mem leak