paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 17:12:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: reduced warnings

Browse Source 
git-svn-id: trunk@35528 -
This commit is contained in:
mattias 2012-02-21 10:18:07 +00:00
parent 59696974ad
commit 40d3ff8228
4 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/linkscanner.pas
View File

@ -670,6 +670,7 @@ function dbgs(const ModeSwitches: TCompilerModeSwitches): string;
var
ms: TCompilerModeSwitch;
begin
Result:='';
for ms:=Low(TCompilerModeSwitches) to high(TCompilerModeSwitches) do
if ms in ModeSwitches then begin
Result:=Result+CompilerModeSwitchNames[ms]+',';

4
lcl/graphtype.pp
View File

@ -907,7 +907,7 @@ end;
function TRawImageDescription.GetDescriptionFromMask: TRawImageDescription;
begin
Result.Init;
Result{%H-}.Init;
Result.Format := ricfGray;
Result.Width := Width;
@ -934,7 +934,7 @@ end;
function TRawImageDescription.GetDescriptionFromAlpha: TRawImageDescription;
begin
Result.Init;
Result{%H-}.Init;
Result.Format := ricfGray;
Result.Width := Width;

6
lcl/intfgraphics.pas
View File

@ -820,7 +820,7 @@ end;
function QueryDescription(AFlags: TRawImageQueryFlags; AWidth: Integer = -1; AHeight: integer = -1): TRawImageDescription;
begin
Exclude(AFlags, riqfUpdate);
Result.Init;
Result{%H-}.Init;
QueryDescription(Result, AFlags, AWidth, AHeight);
end;
@ -838,7 +838,7 @@ end;
function GetDescriptionFromDevice(ADC: HDC; AWidth, AHeight: integer): TRawImageDescription;
begin
Result.Init;
Result{%H-}.Init;
if not RawImage_DescriptionFromDevice(ADC, Result) then Exit;
if AWidth <> -1 then Result.Width := AWidth;
if AHeight <> -1 then Result.Height := AHeight;
@ -846,7 +846,7 @@ end;
function GetDescriptionFromBitmap(ABitmap: HBitmap; AWidth: Integer = -1; AHeight: integer = -1): TRawImageDescription;
begin
Result.Init;
Result{%H-}.Init;
if not RawImage_DescriptionFromBitmap(ABitmap, Result) then Exit;
if AWidth <> -1 then Result.Width := AWidth;
if AHeight <> -1 then Result.Height := AHeight;

2
lcl/widgetset/wsimglist.pp
View File

@ -173,7 +173,7 @@ var
i: integer;
begin
impl := TDefaultImageListImplementor.Create(AList);
Result._Init(impl);
Result{%H-}._Init(impl);
if AData <> nil then
begin