equal
deleted
inserted
replaced
44 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
44 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
45 var r: TSDL_Rect; |
45 var r: TSDL_Rect; |
46 begin |
46 begin |
47 r:= rect^; |
47 r:= rect^; |
48 if Clear then |
48 if Clear then |
49 SDL_FillRect(Surface, @r, SDL_MapRGB(Surface^.format, 0, 0, 0)); |
49 SDL_FillRect(Surface, @r, SDL_MapRGBA(Surface^.format, 0, 0, 0, 0)); |
50 |
50 |
51 BorderColor:= SDL_MapRGB(Surface^.format, BorderColor shr 16, BorderColor shr 8, BorderColor and $FF); |
51 BorderColor:= SDL_MapRGB(Surface^.format, BorderColor shr 16, BorderColor shr 8, BorderColor and $FF); |
52 FillColor:= SDL_MapRGB(Surface^.format, FillColor shr 16, FillColor shr 8, FillColor and $FF); |
52 FillColor:= SDL_MapRGB(Surface^.format, FillColor shr 16, FillColor shr 8, FillColor and $FF); |
53 |
53 |
54 r.y:= rect^.y + cFontBorder div 2; |
54 r.y:= rect^.y + cFontBorder div 2; |