Here is where the error is in my Code
This is the Code:
{=================================================================================}
procedure TFormGameSettings.pnlPlayerColor1Click(Sender: TObject);
begin
if PlayerColorDialog1.Execute then
begin
FSpieler1farbe := PlayerColorDialog1.Color;
PanelColorChange;
end;
end;
{=================================================================================}
procedure TFormGameSettings.pnlPlayerColor2Click(Sender: TObject);
begin
if PlayerColorDialog2.Execute then
begin
FSpieler1farbe := PlayerColorDialog2.Color;
PanelColorChange;
end;
end;
{=================================================================================}
i dont really know how to fix the problem im pretty new to delphi. Before i changed the color in the "PlayerColorDialog2.Color;" everything was fine know i get BOOLEAN.
Thank you for your time.
CodePudding user response:
"If ErrorInsight keeps on marking errors in code where clearly are none, try to close the project and reopen it!" @Delphi Coder
Your comment helped, I guess it was a bug.
Thanks a lot!