Gegeben aktuellen Trunk-Lazarus, stable fpc.
Ich habe ein Frame und eine Applikation die das Frame lädt, darinnen einige Komponenten, unter anderen ein Panel mit beinhalteten DBGrid, DS und Query. Jetzt lösche ich das DBGrid und fürge ein WorksheetGrid und eine WorkbookSource ein. Das nächste kompilieren geht gut. Dann speicher ich nochmals ab, beende Lazarus.
Beim nächsten Start von Lazarus kommt die Fehlermeldung:
Code: Alles auswählen
In Datei
C:\.....\irgendwas.lfm
Control '' has no parent window
Control '' has no parent window
und das LFM wird geöffnet. Wenn man sich das ansieht, so gibt es keinen Grund. Man sieht auch im DIFF das es keine Probleme geben sollte.
Hat wer einen Tipp für mich ?
Code: Alles auswählen
Versuche/Frames/frschicht.lfm | 71 +++++++---------------------
1 file changed, 17 insertions(+), 54 deletions(-)
diff --git a/Versuche/Frames/frschicht.lfm b/Versuche/Frames/frschicht.lfm
index 0a7f2a2..7f2d36f 100644
--- a/frschicht.lfm
+++ b/frschicht.lfm
@@ -90,66 +90,22 @@ inherited Schicht: TSchicht
ClientHeight = 705
ClientWidth = 1006
TabOrder = 1
- object DBGrid3: TDBGrid
+ object sWorksheetGrid1: TsWorksheetGrid
Left = 1
Height = 703
Top = 1
Width = 1004
+ FrozenCols = 0
+ FrozenRows = 0
+ ReadFormulas = False
+ WorkbookSource = sWorkbookSource1
Align = alClient
- Color = clWindow
- Columns = <
- item
- Title.Caption = 'A1'
- Width = 100
- FieldName = 'A1'
- end
- item
- Title.Caption = 'B1'
- Width = 200
- FieldName = 'B1'
- end
- item
- Title.Caption = 'C1'
- Width = 100
- FieldName = 'C1'
- end
- item
- Title.Caption = 'D1'
- Width = 100
- FieldName = 'D1'
- end
- item
- Title.Caption = 'E1'
- Width = 100
- FieldName = 'E1'
- end
- item
- Title.Caption = 'F1'
- Width = 100
- FieldName = 'F1'
- end
- item
- Title.Caption = 'G1'
- Width = 100
- FieldName = 'G1'
- end
- item
- Title.Caption = 'H1'
- Width = 100
- FieldName = 'H1'
- end
- item
- Title.Caption = 'I1'
- Width = 100
- FieldName = 'I1'
- end>
- DataSource = DS_Schicht
- Options = [dgEditing, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- ReadOnly = True
+ AutoAdvance = aaDown
+ ColCount = 27
+ DefaultColWidth = 64
+ DefaultRowHeight = 22
+ RowCount = 101
TabOrder = 0
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
end
end
object DS_Schicht: TDataSource[2]
@@ -288,4 +244,11 @@ inherited Schicht: TSchicht
Size = 200
end
end
+ object sWorkbookSource1: TsWorkbookSource[4]
+ AutoDetectFormat = False
+ FileFormat = sfUser
+ Options = []
+ left = 632
+ top = 224
+ end
end
Edit:
Wenn ich die workbooksource lösche (im lfm und pas), dann Lazarus neu starte, so gibt es keinen Fehler.
Dann eine neue Workbooksource darauf, speichern, Lazarus schliessen, öffnen, kein Problem.
Dann das Workbookgrid und die Workbooksource verbinden, das Frame schliessen und neu öffnen -> Bumm und der Fehler ist da.