From 0f17452ff7e0c893ac936588564c85c6468a428c Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 16 Apr 2009 10:37:43 +0200 Subject: Removed compiler warnings from UI Designer project. --- .gitattributes | 3 +++ uidesigner/icons.inc | 3 ++- uidesigner/uidesigner.lpi | 2 +- uidesigner/vfddesigner.pas | 9 +-------- uidesigner/vfdpropeditgrid.pas | 1 - 5 files changed, 7 insertions(+), 11 deletions(-) create mode 100644 .gitattributes diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 00000000..21569803 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,3 @@ +*.pas diff=pascal +*.lpr diff=pascal +*.pp diff=pascal diff --git a/uidesigner/icons.inc b/uidesigner/icons.inc index 8a288283..8e99cf96 100644 --- a/uidesigner/icons.inc +++ b/uidesigner/icons.inc @@ -597,7 +597,7 @@ 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 0, 0); -Const +{Const stdimg_vfd_scrollbar : Array[0..773] of byte = ( 66, 77, 6, 3, 0, 0, 0, 0, 0, 0, 54, 0, 0, 0, 40, 0, 0, 0, 24, 0, 0, 0, 10, 0, 0, 0, 1, 0, 24, 0, 0, 0, 0, 0, @@ -645,6 +645,7 @@ 229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229, 27, 55,229); +} Const stdimg_vfd_arrow : Array[0..701] of byte = ( diff --git a/uidesigner/uidesigner.lpi b/uidesigner/uidesigner.lpi index c11ea49f..ec91edc2 100644 --- a/uidesigner/uidesigner.lpi +++ b/uidesigner/uidesigner.lpi @@ -23,7 +23,7 @@ - + diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index c866f3bb..a9d5daa7 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -30,13 +30,9 @@ interface fpg_widget, fpg_form, fpg_dialogs, - fpg_label, - fpg_edit, - fpg_button, fpg_listbox, fpg_memo, fpg_combobox, - fpg_checkbox, fpg_menu, vfdresizer, vfdforms, @@ -143,8 +139,7 @@ implementation uses vfdmain, - TypInfo, - fpg_tab; + TypInfo; { TWidgetDesigner } @@ -311,7 +306,6 @@ procedure TFormDesigner.MsgMouseUp(var msg: TfpgMessageRec); pwg: TfpgWidget; shift: boolean; x, y: integer; - pmenu: TfpgPopupMenu; begin // writeln('TFormDesigner.MsgMouseUp'); FDragging := False; @@ -712,7 +706,6 @@ procedure TFormDesigner.EditTabOrder; var frm: TWidgetOrderForm; n, fi: integer; - cd: TWidgetDesigner; identlevel: integer; taborder: integer; diff --git a/uidesigner/vfdpropeditgrid.pas b/uidesigner/vfdpropeditgrid.pas index 2af4daad..4eab4255 100644 --- a/uidesigner/vfdpropeditgrid.pas +++ b/uidesigner/vfdpropeditgrid.pas @@ -37,7 +37,6 @@ interface fpg_basegrid, fpg_grid, fpg_checkbox, - vfdforms, vfdwidgetclass, vfdprops, vfdformparser; -- cgit v1.2.3-54-g00ecf