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

* Fixed compilation and some memleaks

Browse Source 
git-svn-id: trunk@14954 -
This commit is contained in:
marc 2008-04-24 23:48:27 +00:00
parent c82d2dcc96
commit aecb127993
2 changed files with 10 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
examples/testallform.pp
View File

@ -93,7 +93,6 @@ type
PaintBox1 : TPaintBox; PaintBox1 : TPaintBox;
Panel1 : TPanel; Panel1 : TPanel;
PixMap1 : TPixMap; PixMap1 : TPixMap;
png : TPortableNetworkGraphic;
PopupMenu1 : TPopupMenu; PopupMenu1 : TPopupMenu;
Hello : TMenuItem; Hello : TMenuItem;
Doctor : TMenuItem; Doctor : TMenuItem;
@ -915,9 +914,7 @@ Bevel1 := TBevel.Create(Self);
Width := 100; Width := 100;
end; end;
//++++++++++++++++++++++++++++++++++ TBitBtn1 +++++++++++++++++++++++++++++++++++++++ //++++++++++++++++++++++++++++++++++ TBitBtn1 +++++++++++++++++++++++++++++++++++++++
png := TPortableNetworkGraphic.Create;
png.LoadFromLazarusResource('topendialog');
BitBtn1 := TBitBtn.Create(Self); BitBtn1 := TBitBtn.Create(Self);
With BitBtn1 do With BitBtn1 do
begin begin
@ -953,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 := png; Glyph.LoadFromLazarusResource('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 >>';
@ -2237,9 +2234,6 @@ ScrollBar1 := TScrollBar.Create(Self);
Visible := True; Visible := True;
end;} end;}
//++++++++++++++++++++++++++++++++++++ SpeedButton1..4 ++++++++++++++++++++++++++++++ //++++++++++++++++++++++++++++++++++++ SpeedButton1..4 ++++++++++++++++++++++++++++++
png := TPortableNetworkGraphic.Create;
png.LoadFromLazarusResource('open');
SpeedButton1 := TSpeedButton.Create(Self); SpeedButton1 := TSpeedButton.Create(Self);
With SpeedButton1 do With SpeedButton1 do
begin begin
@ -2256,12 +2250,10 @@ SpeedButton1 := TSpeedButton.Create(Self);
Hint := 'SpeedButton1'; Hint := 'SpeedButton1';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph := png; Glyph.LoadFromLazarusResource('open');
Visible := True; Visible := True;
end; end;
png := TPortableNetworkGraphic.Create;
png.LoadFromLazarusResource('menu_save');
SpeedButton2 := TSpeedButton.Create(Self); SpeedButton2 := TSpeedButton.Create(Self);
With SpeedButton2 do With SpeedButton2 do
@ -2277,14 +2269,11 @@ SpeedButton2 := TSpeedButton.Create(Self);
Hint := 'SpeedButton1'; Hint := 'SpeedButton1';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph := png; Glyph.LoadFromLazarusResource('menu_save');
Enabled := True; Enabled := True;
Visible := True; Visible := True;
end; end;
png := TPortableNetworkGraphic.Create;
png.LoadFromLazarusResource('item_font');
SpeedButton3 := TSpeedButton.Create(Self); SpeedButton3 := TSpeedButton.Create(Self);
With SpeedButton3 do With SpeedButton3 do
begin begin
@ -2299,14 +2288,11 @@ SpeedButton3 := TSpeedButton.Create(Self);
Hint := 'SpeedButton1'; Hint := 'SpeedButton1';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph := png; Glyph.LoadFromLazarusResource('item_font');
Enabled := True; Enabled := True;
Visible := True; Visible := True;
end; end;
png := TPortableNetworkGraphic.Create;
png.LoadFromLazarusResource('tcolordialog');
SpeedButton4 := TSpeedButton.Create(Self); SpeedButton4 := TSpeedButton.Create(Self);
With SpeedButton4 do With SpeedButton4 do
begin begin
@ -2321,7 +2307,7 @@ SpeedButton4 := TSpeedButton.Create(Self);
Hint := 'SpeedButton4'; Hint := 'SpeedButton4';
Color := clBtnFace; Color := clBtnFace;
ShowHint := True; ShowHint := True;
Glyph:=png; Glyph.LoadFromLazarusResource('tcolordialog');
Enabled := True; Enabled := True;
Visible := True; Visible := True;
end; end;

6
examples/testtools.inc
View File

@ -1427,11 +1427,12 @@ begin
Hint := FileN [i] + '(normal buton)'; Hint := FileN [i] + '(normal buton)';
end; end;
Color := clBtnFace; Color := clBtnFace;
Glyph := Pixmap1; Glyph.Assign(Pixmap1);
Enabled := True; Enabled := True;
Visible := True; Visible := True;
ShowHint := true; ShowHint := true;
end; end;
FreeAndNil(Pixmap1);
end; end;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@ -1784,7 +1785,8 @@ begin
finally finally
S.Free; S.Free;
end; end;
BitBtn1.Glyph := PixMap1; BitBtn1.Glyph.Assign(PixMap1);
FreeAndNil(PixMap1);
end; end;
lbEvents.Items.Add('<<< WORKS WITH STREAM.PIXMAPS >>>'); lbEvents.Items.Add('<<< WORKS WITH STREAM.PIXMAPS >>>');