Well it works fine when I change colours:
Simba Code:
{$I SRL/SRL.Simba}
type
TFormGUI = record
XFormGUI: TForm;
pPanel: TPanel;
end;
var
FormGUI: TFormGUI;
procedure FormGUI_Init;
begin
with FormGUI do
begin
XFormGUI := CreateForm;
pPanel := TPanel.Create(XFormGUI);
with XFormGUI do
begin
Left := 376;
Top := 175;
BorderStyle := bsNone;
Caption := 'FormGUI';
ClientHeight := 128;
ClientWidth := 505;
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'Tahoma';
Font.Style := [];
PixelsPerInch := 96;
end;
with pPanel do
begin
Parent := XFormGUI;
Left := 8;
Top := 5;
Width := 489;
Height := 117;
Caption := 'Control Panel';
TabOrder := 1;
Color := 255;
end;
end;
end;
procedure FormGUI_SafeInit;
var
v: TVariantArray;
begin
SetLength(v, 0);
ThreadSafeCall('FormGUI_Init', v);
end;
function FormGUI_ShowModal: Boolean;
begin
FormGUI.XFormGUI.SHOW;
Result:= FormGUI.XFormGUI.Showing;
end;
function FormGUI_SafeShowModal: Boolean;
var
v: TVariantArray;
begin
SetLength(v, 0);
Result := ThreadSafeCall('FormGUI_ShowModal', v);
end;
Procedure FreeFormGUI;
begin
FreeForm(FormGUI.XFormGUI);
end;
begin
SetupSRL;
FormGUI_SafeInit;
FormGUI_SafeShowModal;
AddOnTerminate('FreeFormGUI');
Repeat
Wait(1000);
Until(False);
end.