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

fixed mem leak

Browse Source 
git-svn-id: trunk@9630 -
This commit is contained in:
mattias 2006-07-18 17:37:21 +00:00
parent b17384ebc1
commit 4baf95a5f5
3 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
examples/checkbox.pp
View File

@ -56,8 +56,7 @@ type
ToggleBox : TToggleBox;
label1 : TLabel;
label2 : TLabel;
FPixmap : TPixMap;
constructor Create(AOwner: TComponent); override;
constructor Create(AOwner: TComponent); override;
procedure LoadMainMenu;
Procedure FormKill(Sender : TObject);
procedure mnuQuitClicked(Sender : TObject);
@ -77,9 +76,9 @@ Form1 : TForm1;
constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Caption := 'CheckBox Demo V.02';
LoadMainMenu;
inherited Create(AOwner);
Caption := 'CheckBox Demo V.02';
LoadMainMenu;
end;
procedure TForm1.Button1Click(Sender : TObject);
@ -225,9 +224,6 @@ begin
Button2.Caption := 'Toggle checkbox';
Button2.OnClick := @Button2Click;
FPixMap:= TPixmap.Create;
FPixmap.LoadFromFile('../images/btn_newform.xpm');
Button11 := TSpeedButton.Create(Self);
Button11.GroupIndex:= 1;
Button11.Layout:= blGlyphTop;
@ -238,7 +234,7 @@ begin
Button11.Width:= 45;
Button11.Height:= 55;
Button11.Flat:= true;
Button11.Glyph:= FPixmap;
Button11.Glyph.LoadFromFile('../images/btn_newform.xpm');
// Button11.Spacing:= -1;
// Button11.Margin:= 4;
Button11.Visible:= true;

24
lcl/editbtn.pas
View File

@ -621,10 +621,14 @@ end;
{ TFileNameEdit }
constructor TFileNameEdit.Create(AOwner: TComponent);
var
ABitmap: TBitmap;
begin
inherited Create(AOwner);
FDialogFiles:=TStringList.Create;
Glyph:=CreateFileOpenBitmap;
ABitmap:=CreateFileOpenBitmap;
Glyph:=ABitmap;
ABitmap.Free;
end;
destructor TFileNameEdit.Destroy;
@ -732,9 +736,13 @@ end;
{ TDirectoryEdit }
constructor TDirectoryEdit.Create(AOwner: TComponent);
var
ABitmap: TBitmap;
begin
inherited Create(AOwner);
Glyph:=CreateDirectoryBitmap;
ABitmap:=CreateDirectoryBitmap;
Glyph:=ABitmap;
ABitmap.Free;
end;
destructor TDirectoryEdit.Destroy;
@ -816,6 +824,8 @@ end;
{ TDateEdit }
constructor TDateEdit.Create(AOwner: TComponent);
var
ABitmap: TBitmap;
begin
inherited Create(AOwner);
FDate:=Now;
@ -827,7 +837,9 @@ begin
CancelCaption:='Cancel';
ReadOnly:=true;
Color:=clBtnFace;
Button.Glyph:=CreateDateGlyph;//.LoadFromLazarusResource('DateEditGlyph'); //GlyphFromBitmapOrResource(DateGlyph,ResBtnCalendar)
ABitmap:=CreateDateGlyph;
Button.Glyph:=ABitmap;
ABitmap.Free;
Button.OnClick:= @DoButtonClick;
// OnChange:=@Change;
// OnDblClick:=@DoButtonClick;
@ -978,9 +990,13 @@ begin
end;
constructor TCalcEdit.Create(AOwner: TComponent);
var
ABitmap: TBitmap;
begin
inherited Create(AOwner);
Glyph:=CreateCalcBitmap;
ABitmap:=CreateCalcBitmap;
Glyph:=ABitmap;
ABitmap.Free;
FdialogTitle:=rsCalculator;
end;

6
packager/packageeditor.pas
View File

@ -1248,12 +1248,8 @@ procedure TPackageEditorForm.SetupComponents;
end;
procedure LoadBitBtnGlyph(ABitBtn: TBitBtn; const ResName: string);
var Pixmap: TPixmap;
begin
Pixmap:=TPixmap.Create;
Pixmap.TransparentColor:=clWhite;
Pixmap.LoadFromLazarusResource(ResName);
ABitBtn.Glyph:=Pixmap;
ABitBtn.Glyph.LoadFromLazarusResource(ResName);
end;
begin