moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00
Code Issues Releases Wiki Activity

Tried to fix the DTM Editor.

Browse Source
This commit is contained in:
Niels 2010-08-04 14:08:03 +02:00
parent 5826ca19f0
commit 59fe8feb5e
1 changed files with 15 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
Extensions/dtm_editor.sex
View File

@ -7,7 +7,7 @@ var
{$i mml.simba}
const
Version = '0.5';
Version = '0.6';
ZoomPixels = 3; //Should be an odd number (1, 3, 5, 7, ..)
var
@ -37,6 +37,15 @@ var
MarkCol: Integer;
PaintDTM, BufferChanged: Boolean;
procedure FreeAndNil(var Bmp: TMufasaBitmap);
begin
if (Bmp <> nil) then
begin
Bmp.Free;
Bmp := nil;
end;
end;
function GetLine(p1, p2: TPoint): TPointArray;
var
dx, dy: Extended;
@ -321,13 +330,7 @@ end;
procedure ResetBuffer;
begin
{
Freeing the BmpBuffer here causes access violations.
It will have to investigated later.
if (bmpBuffer <> nil) then
bmpBuffer.Free;
}
FreeAndNil(bmpBuffer);
bmpBuffer := bmp.Copy(0, 0, bmp.Width - 1, bmp.Height - 1);
BufferChanged := False;
end;
@ -518,11 +521,7 @@ begin
edTolerance.Text := '0';
shColour.Brush.Color := clWhite;
if (bmpOverlay <> nil) then
begin
bmpOverlay.Free;
bmpOverlay := nil;
end;
FreeAndNil(bmpOverlay);
ResetBuffer;
UpdateBitmap(True, False);
frm.ActiveControl := lb;
@ -661,10 +660,7 @@ begin
PaintDTM := True;
if (bmpOverlay <> nil) then
begin
bmpOverlay.Free;
bmpOverlay := nil;
end
FreeAndNil(bmpOverlay)
else
ResetBuffer;
UpdateBitmap(True, False);
@ -1292,10 +1288,8 @@ begin
CreateForm;
Result := frm.ShowModal;
finally
if (bmpOverlay <> nil) then
bmpOverlay.Free;
if (bmpBuffer <> nil) then
bmpBuffer.Free;
FreeAndNil(bmpOverlay);
FreeAndNil(bmpBuffer);
bmp.Free;
frm.Free;
end;