paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 01:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed image loading

Browse Source 
git-svn-id: trunk@15731 -
This commit is contained in:
michael 2008-07-10 13:08:15 +00:00
parent 8a3217a900
commit 650156f484
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tools/lazdatadesktop/datapanel.pp
View File

@ -25,7 +25,7 @@ unit datapanel;
interface
uses
Classes, SysUtils, Controls, ExtCtrls, StdCtrls, DB, dbgrids, dbCtrls,
Graphics, Classes, SysUtils, Controls, ExtCtrls, StdCtrls, DB, dbgrids, dbCtrls,
buttons;
Type
@ -127,7 +127,12 @@ end;
Procedure TDataPanel.CreateControls;
Var
P : TPixMap;
begin
P:=TPixMap.Create;
try
// Top panel;
FTopPanel:=TPanel.Create(Self);
FTopPanel.Parent:=Self;
@ -155,7 +160,8 @@ begin
FExportSB.Top:=4;
FExportSB.Height:=22;
FExportSB.Width:=22;
FExportSB.Glyph.LoadFromLazarusResource('qrybtn_export');
P.LoadFromLazarusResource('qrybtn_export');
FExportSB.Glyph.Assign(P);
FExportSB.Flat:=True;
FExportSB.OnClick:=@DoExport;
FCodeSB:=TSpeedButton.Create(Self);
@ -164,9 +170,13 @@ begin
FCodeSB.Top:=4;
FCodeSB.Height:=22;
FCodeSB.Width:=22;
FCodeSB.Glyph.LoadFromLazarusResource('qrybtn_code');
P.LoadFromLazarusResource('qrybtn_code');
FCodeSB.Glyph.Assign(P);
FCodeSB.Flat:=True;
FCodeSB.OnClick:=@DoCode;
Finally
FreeAndNil(P);
end;
end;
procedure TDataPanel.Checkbuttons;