paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 05:16:48 +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> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@ -44,27 +44,11 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="11"/>
<SearchPaths>
</SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

14
examples/testallform.pp
View File

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