paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 00:59:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: fix testall example (issue #0013679)

Browse Source 
git-svn-id: trunk@19903 -
This commit is contained in:
paul 2009-05-10 07:54:53 +00:00
parent 9c665c7bc8
commit 298c34c425
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/testallform.pp
View File

@ -950,7 +950,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];
Glyph.LoadFromLazarusResource('topendialog'); LoadGlyphFromLazarusResource('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 >>';
@ -2250,7 +2250,7 @@ SpeedButton1 := TSpeedButton.Create(Self);
Hint := 'SpeedButton1'; Hint := 'SpeedButton1';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph.LoadFromLazarusResource('laz_open'); LoadGlyphFromLazarusResource('laz_open');
Visible := True; Visible := True;
end; end;
@ -2269,7 +2269,7 @@ SpeedButton2 := TSpeedButton.Create(Self);
Hint := 'SpeedButton1'; Hint := 'SpeedButton1';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph.LoadFromLazarusResource('laz_save'); LoadGlyphFromLazarusResource('laz_save');
Enabled := True; Enabled := True;
Visible := True; Visible := True;
end; end;
@ -2288,7 +2288,7 @@ SpeedButton3 := TSpeedButton.Create(Self);
Hint := 'SpeedButton1'; Hint := 'SpeedButton1';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph.LoadFromLazarusResource('item_font'); LoadGlyphFromLazarusResource('item_font');
Enabled := True; Enabled := True;
Visible := True; Visible := True;
end; end;
@ -2307,7 +2307,7 @@ SpeedButton4 := TSpeedButton.Create(Self);
Hint := 'SpeedButton4'; Hint := 'SpeedButton4';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph.LoadFromLazarusResource('tcolordialog'); LoadGlyphFromLazarusResource('tcolordialog');
Enabled := True; Enabled := True;
Visible := True; Visible := True;
end; end;