paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 07:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: Fix resource loading in TestAll project.

Browse Source 
git-svn-id: trunk@51813 -
This commit is contained in:
bart 2016-03-03 11:30:47 +00:00
parent c108514394
commit c83e1c15e5
2 changed files with 9 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/testall.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
@ -44,27 +44,11 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="9"/>
<SearchPaths>
</SearchPaths>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

14
examples/testallform.pp
View File

@ -960,7 +960,7 @@ BitBtn1 := TBitBtn.Create(Self);
Font.Pitch := fpDefault;
Font.Size := 10;
Font.Style := BitBtn1.Font.Style+[fsBold];
LoadGlyphFromLazarusResource('topendialog');
LoadGlyphFromResourceName(hInstance,'topendialog');
//height := 28; Has to be set before Glyph
//HelpContext := 0; Identifier not found
Hint := 'Settings for BitBtn1 >>';
@ -2251,7 +2251,7 @@ SpeedButton1 := TSpeedButton.Create(Self);
Hint := 'SpeedButton1';
Color := clBtnFace;
ShowHint := True;
LoadGlyphFromLazarusResource('laz_open');
LoadGlyphFromResourceName(hInstance,'laz_open');
Visible := True;
end;
@ -2267,10 +2267,10 @@ SpeedButton2 := TSpeedButton.Create(Self);
Left := 35;
Top := 28;
Flat := False;
Hint := 'SpeedButton1';
Hint := 'SpeedButton2';
Color := clBtnFace;
ShowHint := True;
LoadGlyphFromLazarusResource('laz_save');
LoadGlyphFromResourceName(hInstance,'laz_save');
Enabled := True;
Visible := True;
end;
@ -2286,10 +2286,10 @@ SpeedButton3 := TSpeedButton.Create(Self);
Left := 60;
Top := 28;
Flat := False;
Hint := 'SpeedButton1';
Hint := 'SpeedButton3';
Color := clBtnFace;
ShowHint := True;
LoadGlyphFromLazarusResource('item_font');
LoadGlyphFromResourceName(hInstance,'item_font');
Enabled := True;
Visible := True;
end;
@ -2308,7 +2308,7 @@ SpeedButton4 := TSpeedButton.Create(Self);
Hint := 'SpeedButton4';
Color := clBtnFace;
ShowHint := True;
LoadGlyphFromLazarusResource('tcolordialog');
LoadGlyphFromResourceName(hInstance,'tcolordialog');
Enabled := True;
Visible := True;
end;