View Issue Details

IDProjectCategoryView StatusLast Update
0014184LazarusLCLpublic2009-10-23 00:40
Reporterindianajones Assigned ToMartin Friebe  
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionfixed 
Product Version0.9.27 (SVN) 
Target Version0.9.28Fixed in Version0.9.27 (SVN) 
Summary0014184: Building Lazarus inside the Lazarus gives error
Description
Here is the following error:

/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/glgrab.pas(63,44) Warning: Converting pointers to signed integers may result in wrong comparison results and range errors, use an unsigned type instead.
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/glgrab.pas(64,50) Warning: Converting pointers to signed integers may result in wrong comparison results and range errors, use an unsigned type instead.
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/glgrab.pas(106,3) Note: Local variable "bytes" is assigned but never used
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/carbonprivate.pp(166,15) Note: Virtual method "TCarbonWindow.BoundsChanged;" has a lower visibility (protected) than parent class TCarbonWidget (public)
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/carbonbars.pp(73,20) Note: Virtual method "class TCarbonMovableBar.GetValidEvents:Set Of TCarbonControlEvent;" has a lower visibility (protected) than parent class TCarbonControl (public)
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/carbonbars.pp(74,15) Note: Virtual method "TCarbonMovableBar.IndicatorMoved;" has a lower visibility (protected) than parent class TCarbonControl (public)
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/carbonbars.pp(75,15) Note: Virtual method "TCarbonMovableBar.ValueChanged;" has a lower visibility (protected) than parent class TCarbonControl (public)
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/carboncanvas.pp(1592,6) Note: User defined: TODO: convert data if image format is incomatible with context
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/carboncanvas.pp(1666,6) Note: User defined: TODO: convert data if image format is incomatible with context
/Users/macintoshmacbook/lazarus/lcl/interfaces/carbon/carbonprivatecontrol.inc(1073,3) Note: Local variable "b" not used
"LCL" completed
"Package Registration" completed
"IDE Interface" completed
"SynEdit" completed
"CodeTools" completed
/Users/macintoshmacbook/lazarus/examples/testallform.pp(147,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(154,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(158,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(165,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(171,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(182,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(188,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(193,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(202,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(208,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(214,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(219,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(222,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(233,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(249,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(256,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(269,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(287,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(294,7) Error: Fields cannot appear after a method or property definition, start a new visibility section first
/Users/macintoshmacbook/lazarus/examples/testallform.pp(304,1) Fatal: There were 19 errors compiling module, stopping
Additional Information
FPC 2.3.1
Lazarus SVN 20928
Mac OS X 10.5.7
TagsNo tags attached.
Fixed in Revision20931
LazTarget0.9.28
Widgetset
Attached Files

Activities

Dmitry Boyarintsev

2009-07-23 11:35

developer   ~0029218

that's FPC 2.3.1 limitation. you can solve if by not building Examples, when rebuilding lazarus.

or by correcting testallform unit manually.

Dmitry Boyarintsev

2009-07-23 11:37

developer   ~0029219

i.e. just type 'private' before each field coming after a method:

...

      procedure EventOnKeyUp(Sender : TObject; var Key : Word; Shift : TShiftState);
//+++++++++++++ TApplication ++++++++++++++++++++++++++
   private // added here
      lblExeName : TLabel;
      rdbOk,rdbOkCancel,rdbAbortRetryIgnore,rdbYesNoCancel,rdbYesNo,rdbRetryCancel : TRadioButton;
      btnShowBox : TBitBtn;
      FBoxStyle : Integer;
      procedure BoxStyle(Sender : TObject);
      procedure ShowBox(Sender : TObject);
//+++++++++++++ TBevel ++++++++++++++++++++++++++++++++
   private // added here
      chbBevelStyle,
      chbBevelShape : TRadiogroup;
...

Dmitry Boyarintsev

2009-07-23 11:40

developer   ~0029220

here's .diff file

2009-07-23 11:41

 

testallform.pp.diff (6,267 bytes)   
Index: testallform.pp
===================================================================
--- testallform.pp	(revision 20874)
+++ testallform.pp	(working copy)
@@ -125,6 +125,7 @@
       TrackBar1, TrackBar2 : TTrackBar;
     //UpDown1           : TUpDown;
 //+++++++++++++ TestTools +++++++++++++++++++++++++++++
+   private
       AboutForm          : TForm;
       BenchForm         : Array[1..59] of TForm;
       EventForm         : TForm;
@@ -144,6 +145,7 @@
       procedure EventOnKeyDown(Sender : TObject; var Key : Word; Shift : TShiftState);
       procedure EventOnKeyUp(Sender : TObject; var Key : Word; Shift : TShiftState);
 //+++++++++++++ TApplication ++++++++++++++++++++++++++
+   private
       lblExeName : TLabel;
       rdbOk,rdbOkCancel,rdbAbortRetryIgnore,rdbYesNoCancel,rdbYesNo,rdbRetryCancel : TRadioButton;
       btnShowBox : TBitBtn;
@@ -151,10 +153,12 @@
       procedure BoxStyle(Sender : TObject);
       procedure ShowBox(Sender : TObject);
 //+++++++++++++ TBevel ++++++++++++++++++++++++++++++++ 
+   private
       chbBevelStyle,
       chbBevelShape : TRadiogroup;
       procedure BevelSettings(Sender : TObject);
 //+++++++++++++ TButton +++++++++++++++++++++++++++++++
+   private
       LCount      : Integer;
       btnCLRLotto : TBitBtn;
       lblLResult  : TLabel;
@@ -162,12 +166,14 @@
       procedure Button1Click(Sender : TObject);
       procedure ButtonTag(Sender : Integer);
 //+++++++++++++ TBitBtn +++++++++++++++++++++++++++++++
+   private
       cbbKind, cbbAlign : TComboBox;
       btnGlyph : TBitBtn; 
       procedure KindComboChange(Sender : TObject); 
       procedure AlignComboChange(Sender : TObject);
       procedure LoadGlyph(Sender : TObject);
 //+++++++++++++ TCanvas +++++++++++++++++++++++++++++++
+   private
       FPaint : Boolean;
       Start1, Start2 : Integer;
       cbbPaintType, cbbBrushStyle, cbbPenStyle : TComboBox;
@@ -179,18 +185,21 @@
       procedure ClearCanvas(Sender : TObject);
       procedure GradCanvas(Sender : TObject);
 //+++++++++++++ TCheckBox +++++++++++++++++++++++++++++
+   private
       lblPick, lblCount : TLabel;
       RandCH, CHCount : Integer;
       btnAgain : TBitBtn;
       procedure CheckClick(Sender : TObject);
       procedure AgainClick(Sender : Tobject);
 //+++++++++++++ TColorDialog ++++++++++++++++++++++++++
+   private
       btnColorSelect : TBitBtn;
       lblColorInt : TLabel;
       procedure ColorSelect(Sender : TObject);
       procedure SelectedColor(Sender : TObject);
 //+++++++++++++ TComboBox +++++++++++++++++++++++++++++
-      btnCbbAdd : TButton; 
+   private
+      btnCbbAdd : TButton;
       btnCbbRemove, btnMoveTo : TBitBtn;
       edtCbbAdd : TEdit;
       cbbMoveTo : TComboBox;
@@ -199,26 +208,31 @@
       procedure RemoveCbb(Sender : TObject);
       procedure MoveToCbb(Sender : TObject);
 //+++++++++++++ TForm +++++++++++++++++++++++++++++++++
+   private
       lblWidth, lblHeight, lblCWidth, lblCHeight : TLabel;
       cbbBorder, cbbPosition : TComboBox;
       btnKeyDown : TBitBtn;
       procedure FormBorder(Sender : TObject);
       procedure FormPosition(Sender : TObject);
 //+++++++++++++ TFontDialog +++++++++++++++++++++++++++
+   private
       lblWhatFont: TLabel;
     //blFontSize: TLabel;
     //lblFontStyle : TLabel;
       btnShowFont : TBitBtn;
       procedure SelectFont(Sender : TObject);
 //+++++++++++++ TIniFile ++++++++++++++++++++++++++++++
+   private
       edtString, edtFloat, edtInteger, edtDate, edtTime : TEdit;
       lblString, lblFloat, lblInteger, lblDate, lblTime : TLabel;
       btnUpdate : TBitBtn;
       procedure IniUpdate(Sender : TObject);
 //+++++++++++++ TLabel ++++++++++++++++++++++++++++++++
+   private
       cbbAlignment : TComboBox;
       procedure SelectAlignment(Sender : TObject);
 //+++++++++++++ TListBox ++++++++++++++++++++++++++++++
+   private
       btnRight, btnLeft, btnAdd, btnCopyToMem, btnSaveFile : TBitBtn;
       memAddTo : TMemo;
       edtAddLis1, edtAddLis2 : TEdit;
@@ -230,6 +244,7 @@
       procedure NewMemo(Sender : TObject);
       procedure SaveMemoAs(Sender : TObject);
       procedure OpenMemo(Sender : TObject);
+   private
       btnNew, btnSave, btnOpen : TBitBtn;
 //+++++++++++++ TOpenDialog +++++++++++++++++++++++++++
 
@@ -246,6 +261,7 @@
       procedure PanelAlignClick(Sender: TObject);
       procedure PanelNormClick(Sender:TObject);
 //+++++++++++++ TProgressBar ++++++++++++++++++++++++++
+   private
       chbProgText, chbProgDirect, chbProgOrient, chbProgEnable, chbSmooth : TCheckBox;
       ProgTime : TTimer;
       procedure ProgSettings(Sender : TObject);
@@ -253,6 +269,7 @@
 //+++++++++++++ TRadioGroup +++++++++++++++++++++++++++
       procedure RadioGroupClick(Sender : TObject);
 //+++++++++++++ TScreen +++++++++++++++++++++++++++++++
+   private
       lblScreenWidth, lblScreenHeight, lblPixels, lblFormCount : TLabel;
 //+++++++++++++ TSpeedButton ++++++++++++++++++++++++++
       SpeedB : Array[0..8] of TSpeedButton;
@@ -266,6 +283,7 @@
       procedure Timer1OnTimer(Sender : TObject);
       procedure TimeTrack(Sender : TObject);
 //+++++++++++++ TToggleBox ++++++++++++++++++++++++++++
+   private
       lblChecked, lblState : TLabel;
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -277,13 +295,14 @@
       procedure ShowTestForm(Sender : TObject);
       procedure ShowMessage0(Sender : TObject);
       procedure ShowMessage1(Sender : TObject);
+//+++++++++++++ Virtual MouseEnter/Leave ++++++++++++++
    protected
-//+++++++++++++ Virtual MouseEnter/Leave ++++++++++++++
       FFocusControl : TControl;
       procedure ApplicationIdle(Sender : TObject; var Done : Boolean);
       procedure VirOnEnter(Sender: TObject); 
       procedure VirOnLeave(Sender: TObject); 
 //+++++++++++++ About +++++++++++++++++++++++++++++++++
+   protected
       lblAbout, lblAuthor : TMemo;
       gbAbout : TGroupBox;
       btnBigOk : TBitBtn;
@@ -291,6 +310,7 @@
       procedure Notification(AComponent: TComponent; Operation : TOperation);override;
    public
       procedure EventWatch;
+   public
       lbEvents: TListBox;
       FLeft : Integer;
       Constructor Create(AOwner: TComponent); override;
testallform.pp.diff (6,267 bytes)   

Martin Friebe

2009-07-23 14:13

manager   ~0029222

please test and close if ok

Issue History

Date Modified Username Field Change
2009-07-23 09:01 indianajones New Issue
2009-07-23 09:01 indianajones Widgetset => Carbon
2009-07-23 11:35 Dmitry Boyarintsev Note Added: 0029218
2009-07-23 11:37 Dmitry Boyarintsev Note Added: 0029219
2009-07-23 11:40 Dmitry Boyarintsev Note Added: 0029220
2009-07-23 11:41 Dmitry Boyarintsev File Added: testallform.pp.diff
2009-07-23 14:07 Martin Friebe Status new => assigned
2009-07-23 14:07 Martin Friebe Assigned To => Martin Friebe
2009-07-23 14:13 Martin Friebe Fixed in Revision => 20931
2009-07-23 14:13 Martin Friebe LazTarget => 0.9.28
2009-07-23 14:13 Martin Friebe Widgetset Carbon =>
2009-07-23 14:13 Martin Friebe Status assigned => resolved
2009-07-23 14:13 Martin Friebe Fixed in Version => 0.9.27 (SVN)
2009-07-23 14:13 Martin Friebe Resolution open => fixed
2009-07-23 14:13 Martin Friebe Note Added: 0029222
2009-07-23 14:14 Martin Friebe Target Version => 0.9.28
2009-10-23 00:40 Marc Weustink Status resolved => closed