pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix JvMM demos for Linux. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6881 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-28 20:08:30 +00:00
parent d295accb2e
commit c04df98dba
29 changed files with 477 additions and 391 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/jvcllaz/examples/JvPicClip/main.pas
View File

@ -87,13 +87,11 @@ end;
procedure TForm1.CreateCombinedImage(ABitmap: TBitmap;
out ANumCols, ANumRows: Integer);
const
W = 24;
H = 24;
var
pic: TPicture;
c, r, i: Integer;
L: TStrings;
W, H: Integer;
begin
L := TStringList.Create;
try
@ -132,6 +130,16 @@ begin
L.Add('../design/JvCustomControls/images/tjvvalidateedit.png'); // 32
ANumCols := 8;
ANumRows := 4;
pic := TPicture.Create;
try
pic.LoadFromFile(L[0]);
W := pic.Width;
H := pic.Height;
finally
pic.Free;
end;
ABitmap.SetSize(ANumCols * W, ANumRows * H);
ABitmap.Canvas.Brush.Color := clWhite;
Abitmap.Canvas.FillRect(0, 0, ABitmap.Width, ABitmap.Height);