paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 00:28:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples, sqlite_mushrooms:

Browse Source 
- increased height of the TDBText DBText1
   - removed a slash for the path of Mushroom_Report.lrf in the PrintClick procedure (now the report can be opened on Linux - tested on Ubuntu 12.04)
   - fixed bad test for frReport1EnterRect procedure

patch by Jurassic Pork, bug #25511

git-svn-id: trunk@43755 -
This commit is contained in:
maxim 2014-01-17 21:44:43 +00:00
parent 4cd110d9c9
commit 81d67ab408
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/database/sqlite_mushrooms/unit1.lfm
View File

@ -179,7 +179,7 @@ object Form1: TForm1
end
object DBText1: TDBText
Left = 88
Height = 20
Height = 24
Top = 48
Width = 240
Alignment = taCenter

8
examples/database/sqlite_mushrooms/unit1.pas
View File

@ -106,7 +106,7 @@ end;
procedure TForm1.Bt_PrintClick(Sender: TObject);
begin
frReport1.LoadFromFile(ExtractFilePath(application.ExeName) +
'\Mushroom_Report.lrf');
'Mushroom_Report.lrf');
frReport1.ShowReport();
end;
procedure TForm1.DBEdit1Change(Sender: TObject);
@ -213,9 +213,9 @@ end;
procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
begin
if View.Name = 'Picture2' then
if DBEdit1.Text <> '' then
TFrPictureView(View).Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) +
if (View.Name = 'Picture2') AND
(frDBDataSet1.DataSet.FieldByName('Image_Link').AsString <> '') then
TFrPictureView(View).Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) +
'images' + DirectorySeparator + frDBDataSet1.DataSet.FieldByName('Image_Link').AsString);
end;