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

IDEIntf: clean up

Browse Source 
git-svn-id: trunk@15558 -
This commit is contained in:
mattias 2008-06-24 07:59:52 +00:00
parent dabde77f8b
commit b420930fb2
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ideintf/fieldslist.pas
View File

@ -65,7 +65,6 @@ implementation
procedure TFieldsListFrm.BitBtnOkClick(Sender: TObject); procedure TFieldsListFrm.BitBtnOkClick(Sender: TObject);
var var
i: integer; i: integer;
NewName:string;
NewField: TField; NewField: TField;
fModified: boolean; fModified: boolean;
PreActive: boolean; PreActive: boolean;

1
ideintf/graphpropedits.pas
View File

@ -192,6 +192,7 @@ begin
begin begin
if TheDialog.Modified and FileExists(TheDialog.FileName) then if TheDialog.Modified and FileExists(TheDialog.FileName) then
begin begin
DebugLn(['TGraphicPropertyEditor.Edit ',dbgsname(GetTypeData(GetPropType)^.ClassType)]);
{$Warnings off} {$Warnings off}
// TGraphic itself is an abstract class, so the compiler will warn // TGraphic itself is an abstract class, so the compiler will warn
if AGraphic = nil then begin if AGraphic = nil then begin