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

ops, fixes a couple of AVs introduced in customdrawn by previous commits

Browse Source 
git-svn-id: trunk@33177 -
This commit is contained in:
sekelsenmat 2011-10-30 14:29:42 +00:00
parent 4c6c91f237
commit cfde01b99c
1 changed files with 35 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
components/customdrawn/customdrawncontrols.pas
View File

@ -825,8 +825,6 @@ var
ABmp: TBitmap = nil;
lCanvas: TFPImageCanvas = nil;
begin
inherited Paint;
PrepareCurrentDrawer();
ABmp := TBitmap.Create;
@ -1462,7 +1460,6 @@ var
ABmp: TBitmap = nil;
lCanvas: TFPImageCanvas = nil;
begin
inherited Paint;
ABmp := TBitmap.Create;
try
ABmp.Width := Width;
@ -1732,39 +1729,60 @@ finalization
// Standard Tab
for i := 0 to CDDRAWSTYLE_COUNT-1 do
begin
RegisteredButtonDrawers[TCDDrawStyle(i)].Free;
RegisteredButtonDrawers[TCDDrawStyle(i)] := nil;
if RegisteredButtonDrawers[TCDDrawStyle(i)] <> nil then
begin
RegisteredButtonDrawers[TCDDrawStyle(i)].Free;
RegisteredButtonDrawers[TCDDrawStyle(i)] := nil;
end;
end;
for i := 0 to CDDRAWSTYLE_COUNT-1 do
begin
RegisteredEditDrawers[TCDDrawStyle(i)].Free;
RegisteredEditDrawers[TCDDrawStyle(i)] := nil;
if RegisteredEditDrawers[TCDDrawStyle(i)] <> nil then
begin
RegisteredEditDrawers[TCDDrawStyle(i)].Free;
RegisteredEditDrawers[TCDDrawStyle(i)] := nil;
end;
end;
for i := 0 to CDDRAWSTYLE_COUNT-1 do
begin
RegisteredGroupBoxDrawers[TCDDrawStyle(i)].Free;
RegisteredGroupBoxDrawers[TCDDrawStyle(i)] := nil;
if RegisteredGroupBoxDrawers[TCDDrawStyle(i)] <> nil then
begin
RegisteredGroupBoxDrawers[TCDDrawStyle(i)].Free;
RegisteredGroupBoxDrawers[TCDDrawStyle(i)] := nil;
end;
end;
for i := 0 to CDDRAWSTYLE_COUNT-1 do
begin
RegisteredCheckBoxDrawers[TCDDrawStyle(i)].Free;
RegisteredCheckBoxDrawers[TCDDrawStyle(i)] := nil;
if RegisteredCheckBoxDrawers[TCDDrawStyle(i)] <> nil then
begin
RegisteredCheckBoxDrawers[TCDDrawStyle(i)].Free;
RegisteredCheckBoxDrawers[TCDDrawStyle(i)] := nil;
end;
end;
// Common Controls Tab
for i := 0 to CDDRAWSTYLE_COUNT-1 do
begin
RegisteredTrackBarDrawers[TCDDrawStyle(i)].Free;
RegisteredTrackBarDrawers[TCDDrawStyle(i)] := nil;
if RegisteredTrackBarDrawers[TCDDrawStyle(i)] <> nil then
begin
RegisteredTrackBarDrawers[TCDDrawStyle(i)].Free;
RegisteredTrackBarDrawers[TCDDrawStyle(i)] := nil;
end;
end;
for i := 0 to CDDRAWSTYLE_COUNT-1 do
begin
RegisteredListViewDrawers[TCDDrawStyle(i)].Free;
RegisteredListViewDrawers[TCDDrawStyle(i)] := nil;
if RegisteredListViewDrawers[TCDDrawStyle(i)] <> nil then
begin
RegisteredListViewDrawers[TCDDrawStyle(i)].Free;
RegisteredListViewDrawers[TCDDrawStyle(i)] := nil;
end;
end;
for i := 0 to CDDRAWSTYLE_COUNT-1 do
begin
RegisteredCustomTabControlDrawers[TCDDrawStyle(i)].Free;
RegisteredCustomTabControlDrawers[TCDDrawStyle(i)] := nil;
if RegisteredCustomTabControlDrawers[TCDDrawStyle(i)] <> nil then
begin
RegisteredCustomTabControlDrawers[TCDDrawStyle(i)].Free;
RegisteredCustomTabControlDrawers[TCDDrawStyle(i)] := nil;
end;
end;
end.