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

Customdrawn: Cleanup. Issues #40387 and #40388.

Browse Source
This commit is contained in:
Juha 2023-07-19 11:16:27 +03:00
parent 051c6c7065
commit 1574149093
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/customdrawncontrols.pas
View File

@ -2044,8 +2044,8 @@ end;
destructor TCDEdit.Destroy;
begin
inherited Destroy;
FLines.Free;
inherited Destroy;
//FCaretTimer.Free; Don't free here because it is assigned with a owner
end;

4
lcl/interfaces/customdrawn/customdrawnobject_x11.inc
View File

@ -13,10 +13,6 @@
}
// The version from FreePascal crash except in FPC 2.7.1+ from 10 Dec 2011 +
function XOpenIM(para1: PDisplay; para2: PXrmHashBucketRec; para3: Pchar; para4: Pchar): PXIM; cdecl; external;
function XCreateIC(para1: PXIM; para2: array of const): PXIC; cdecl; external;
procedure MyXConnectionWatchProc(display: PDisplay; client_data: TXPointer;
fd: cint; opening: XLib.TBool; watch_data: PXPointer); cdecl;
begin