paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 04:18:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-fpgui: Disable compiler define causing writeln() IO errors under Windows. Issue #35478, patch from Graeme.

Browse Source 
git-svn-id: trunk@61123 -
This commit is contained in:
juha 2019-05-03 19:45:26 +00:00
parent 98ea746922
commit 182c72e0da
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/fpgui/fpguiproc.pas
View File

@ -37,7 +37,7 @@ function KeycodeToWindowsVirtKey(KeyCode: word): Byte;
function DebugMessage(msg: TfpgMessageRec): string;
implementation
{$DEFINE FPGUIDEBUGCOLOR}
{.$DEFINE FPGUIDEBUGCOLOR}
{
Converts from TColor to TfpgColor
@ -48,12 +48,17 @@ var
RGBColor: TColorRef;
RGBTriple: fpg_base.TRGBTriple;
begin
if (AColor and $FF000000)<>0 then begin
if AColor=clDefault then begin
if (AColor and $FF000000)<>0 then
begin
if AColor=clDefault then
begin
Result:=fpg_base.clWindowBackground;
exit;
end else begin
if (AColor and $80000000)<>0 then begin
end
else
begin
if (AColor and $80000000)<>0 then
begin
Result:=GetSysColorRGB(AColor and $FF);
exit;
end;