paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 22:40:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl/customdrawn: Cleanup of hints and warnings. Triggered by https://forum.lazarus.freepascal.org/index.php/topic,63029.msg477014/topicseen.html

Browse Source
This commit is contained in:
wp_xyz 2023-04-13 12:49:44 +02:00
parent 958711dd67
commit 5f4881799f
6 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/customdrawn/customdrawn.lpk
View File

@ -1,8 +1,9 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<Package Version="5">
<PathDelim Value="\"/>
<Name Value="customdrawn"/>
<Type Value="RunAndDesignTime"/>
<AddToProjectUsesSection Value="True"/>
<CompilerOptions>
<Version Value="11"/>
@ -12,9 +13,8 @@
</SearchPaths>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
<IgnoredMessages idx5028="True" idx5024="True" idx5023="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Files Count="8">
@ -52,7 +52,7 @@
<UnitName Value="customdrawn_windows7"/>
</Item8>
</Files>
<Type Value="RunAndDesignTime"/>
<CompatibilityMode Value="True"/>
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="IDEIntf"/>
@ -70,7 +70,6 @@
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
</CONFIG>

8
components/customdrawn/customdrawn_extra1.pas
View File

@ -40,7 +40,8 @@ type
implementation
{procedure TCDButtonDrawerGrad.DrawToIntfImage(ADest: TFPImageCanvas;
(*
procedure TCDButtonDrawerGrad.DrawToIntfImage(ADest: TFPImageCanvas;
CDButton: TCDButton);
begin
@ -105,7 +106,8 @@ begin
ARightBorder := 9;
end;
RegisterTrackBarDrawer(TCDTrackBarDrawerGraph.Create, dsExtra1);}
RegisterTrackBarDrawer(TCDTrackBarDrawerGraph.Create, dsExtra1);
*)
{ TCDDrawerExtra1 }
@ -123,7 +125,7 @@ procedure TCDDrawerExtra1.DrawTrackBar(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDPositionedCStateEx);
var
lDrawingBottom, StepsCount, i: Integer;
pStart, pEnd: integer; // for drawing the decorative bars
pStart: integer; // for drawing the decorative bars
dRect: TRect;
pStepWidth, pHalfStepWidth: Integer;
CDBarEdge: Integer;

2
components/customdrawn/customdrawn_wince.pas
View File

@ -239,7 +239,7 @@ procedure TCDDrawerWinCE.DrawTab(ADest: TCanvas; ADestPos: TPoint;
var
IsSelected, IsAddButton: Boolean;
lTabWidth, lTabHeight, lTabTopPos: Integer;
Points: array of TPoint;
Points: array of TPoint = nil;
lCaption: String;
lTabHeightCorrection: Integer = 0;
begin

6
components/customdrawn/customdrawn_windows7.pas
View File

@ -83,7 +83,7 @@ end;
function TSliceScaling.InternalGetBitmapElements(bmpArrayStates: TBitmapArray;
Number, BorderWidth, BorderHeight: integer): TBitmapArrays;
var
bmpArrayParts: TBitmapArrays;
bmpArrayParts: TBitmapArrays = nil;
i, tempWidth, tempHeight: integer;
begin
if (BorderWidth * 2 > bmpArrayStates[0].Width) or (BorderWidth < 0) then
@ -111,7 +111,7 @@ end;
function TSliceScaling.GetBitmap(Filename: string; Number: integer; ALoadFromResource: Boolean = False): TBitmapArray;
var
bmpArray: TBitmapArray;
bmpArray: TBitmapArray = nil;
temp: TBitmap;
i: integer;
s: TSize;
@ -139,7 +139,7 @@ end;
function TSliceScaling.GetBitmapPart(Source: TBitmap;
BorderWidth, BorderHeight: integer): TBitmapArray;
var
bmpArray: TBitmapArray;
bmpArray: TBitmapArray = nil;
begin
SetLength(bmpArray, 9);
Result := bmpArray;

2
components/customdrawn/customdrawnextras.pas
View File

@ -78,7 +78,7 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure EraseBackground(DC: HDC); override;
procedure EraseBackground({%H-}DC: HDC); override;
procedure Paint; override;
function GetStateBitmap(): TBitmap;
end;

3
lcl/interfaces/customdrawn/customdrawnproc.pas
View File

@ -312,13 +312,12 @@ end;
procedure SendFormToBack(ACDForm: TCDNonNativeForm);
var
lCount, lCurIndex: Integer;
lCurIndex: Integer;
begin
// Hide the form
ACDForm.Visible := False;
InitNonNativeForms();
lCount := NonNativeForms.Count;
lCurIndex := NonNativeForms.IndexOf(ACDForm);
{$IFDEF VerboseCDForms}
DebugLn(Format('SendFormToBack lOldIndex=%d lNewIndex=0', [lCurIndex]));