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

* Fixed RawImage.Description.AlphaLineEnd (it is not always dword based)

Browse Source 
git-svn-id: trunk@5595 -
This commit is contained in:
marc 2004-06-22 23:55:51 +00:00
parent 18789bbcf6
commit 19d93ec6a4
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/interfaces/gtk/gtkobject.inc
View File

@ -2149,7 +2149,7 @@ begin
// ColorCount // ColorCount
Desc^.ColorCount:=0; Desc^.ColorCount:=0;
// BitsPerPixel // BitsPerPixel
case Desc^.Depth of case Desc^.Depth of //TODO MWE: Isn't this Visual^.bits_per_rgb
0..8: Desc^.BitsPerPixel:=Desc^.Depth; 0..8: Desc^.BitsPerPixel:=Desc^.Depth;
9..16: Desc^.BitsPerPixel:=16; 9..16: Desc^.BitsPerPixel:=16;
17..32: Desc^.BitsPerPixel:=32; 17..32: Desc^.BitsPerPixel:=32;
@ -2158,7 +2158,7 @@ begin
// LineEnd // LineEnd
case Desc^.Depth of case Desc^.Depth of
0..8: Desc^.LineEnd:=rileByteBoundary; 0..8: Desc^.LineEnd:=rileByteBoundary;
9..32: Desc^.LineEnd:=rileDWordBoundary; 9..32: Desc^.LineEnd:=rileDWordBoundary; //TODO MWE: Isn't there a word boundary (9..16) ?
else Desc^.LineEnd:=rileQWordBoundary; else Desc^.LineEnd:=rileQWordBoundary;
end; end;
// Precisions and Shifts // Precisions and Shifts
@ -2335,9 +2335,16 @@ begin
DebugLn('RawImage=',RawImageDescriptionAsString(@RawImage)); DebugLn('RawImage=',RawImageDescriptionAsString(@RawImage));
{$ENDIF} {$ENDIF}
// consistency checks // See also GetWindowRawImageDescription
RawImage.Description.AlphaLineEnd:=rileDWordBoundary; // RawImage.Description.AlphaLineEnd:=rileDWordBoundary;
case AnImage^.Depth of
0..8: RawImage.Description.AlphaLineEnd:=rileByteBoundary;
9..32: RawImage.Description.AlphaLineEnd:=rileDWordBoundary; //TODO MWE: Isn't there a word boundary (9..16) ?
else RawImage.Description.AlphaLineEnd:=rileQWordBoundary;
end;
RawImage.Description.AlphaBitsPerPixel:=AnImage^.bpp; RawImage.Description.AlphaBitsPerPixel:=AnImage^.bpp;
// consistency checks
if RawImage.Description.AlphaBitsPerPixel<>AnImage^.Depth then if RawImage.Description.AlphaBitsPerPixel<>AnImage^.Depth then
RaiseGDBException('RawImage.Description.AlphaBitsPerPixel<>AnImage^.Depth '+IntToStr(RawImage.Description.AlphaBitsPerPixel)+'<>'+IntToStr(AnImage^.Depth)); RaiseGDBException('RawImage.Description.AlphaBitsPerPixel<>AnImage^.Depth '+IntToStr(RawImage.Description.AlphaBitsPerPixel)+'<>'+IntToStr(AnImage^.Depth));
@ -3162,16 +3169,6 @@ begin
DebugLn('[WARNING] Obsolete messagecall to LM_LV_ADDITEM for ', Sender.ClassName); DebugLn('[WARNING] Obsolete messagecall to LM_LV_ADDITEM for ', Sender.ClassName);
{$EndIf} {$EndIf}
LM_LV_SELECTITEM:
{$IfDef GTK2}
DebugLn('TODO: TGtkWidgetSet.IntSendMessage3 LM_LV_SELECTITEM');
{$Else}
DebugLn('[WARNING] Obsolete messagecall to LM_LV_SELECTITEM for ', Sender.ClassName);
{$EndIf}
LM_LV_SHOWITEM:
DebugLn('[WARNING] Obsolete messagecall to LM_LV_SHOWITEM for ', Sender.ClassName);
LM_BRINGTOFRONT: LM_BRINGTOFRONT:
begin begin
{ Assert(False, 'Trace:TODO:bringtofront'); { Assert(False, 'Trace:TODO:bringtofront');
@ -9200,6 +9197,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.509 2004/06/22 23:55:51 marc
* Fixed RawImage.Description.AlphaLineEnd (it is not always dword based)
Revision 1.508 2004/06/19 00:06:47 mattias Revision 1.508 2004/06/19 00:06:47 mattias
fixed compilation fixed compilation