paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 13:19:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: formatting

Browse Source 
git-svn-id: trunk@26974 -
This commit is contained in:
paul 2010-08-02 02:52:27 +00:00
parent 1952bfcff4
commit 3ecb4329dc
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -1501,20 +1501,21 @@ end;
procedure SetGDIColorRef(var GDIColor: TGDIColor; NewColorRef: TColorRef);
begin
if GDIColor.ColorRef=NewColorRef then exit;
if GDIColor.ColorRef = NewColorRef then Exit;
FreeGDIColor(@GDIColor);
GDIColor.ColorRef := NewColorRef;
end;
Procedure AllocGDIColor(DC: hDC; GDIColor: PGDIColor);
procedure AllocGDIColor(DC: hDC; GDIColor: PGDIColor);
var
RGBColor : Longint;
begin
if DC=0 then ;
if not (cfColorAllocated in GDIColor^.ColorFlags) then begin
if not (cfColorAllocated in GDIColor^.ColorFlags) then
begin
RGBColor := ColorToRGB(GDIColor^.ColorRef);
With GDIColor^.Color do begin
with GDIColor^.Color do
begin
Red := gushort(GetRValue(RGBColor)) shl 8;
Green := gushort(GetGValue(RGBColor)) shl 8;
Blue := gushort(GetBValue(RGBColor)) shl 8;