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

TurboPower_iPro: Fix compilation of HtmlFileExp1 and HtmlFileExp2 demo projects.

Browse Source 
git-svn-id: trunk@64316 -
This commit is contained in:
wp 2021-01-01 15:50:39 +00:00
parent c87414e208
commit 7ec8d3b74b
4 changed files with 9 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/examples/htmfileexp1.lfm
View File

@ -9,7 +9,7 @@ object FHtmFileExp1: TFHtmFileExp1
ClientWidth = 777
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '1.7'
LCLVersion = '2.1.0.0'
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 525
@ -177,7 +177,7 @@ object FHtmFileExp1: TFHtmFileExp1
object OpenDialog1: TOpenDialog
Filter = 'Web Pages|*.html;*.htm'
FilterIndex = 0
left = 48
top = 80
Left = 48
Top = 80
end
end

16
components/turbopower_ipro/examples/htmfileexp1.pas
View File

@ -130,22 +130,6 @@ begin
PicCreated := True;
end;
Picture.LoadFromFile(FN);
end
else begin
PicCreated := False;
BitMap := Graphics.TBitMap.Create;
with TLinearBitmap.Create do
try
LoadFromFile (FN);
AssignTo (Bitmap);
Picture.Bitmap.Assign (BitMap);
PicCreated := True;
finally
Bitmap.Free;
Free;
end;
end;
{$ENDIF}
end;
except
if PicCreated then

6
components/turbopower_ipro/examples/htmfileexp2.lfm
View File

@ -8,7 +8,7 @@ object FHtmFileExp2: TFHtmFileExp2
ClientHeight = 327
ClientWidth = 569
OnCreate = FormCreate
LCLVersion = '1.7'
LCLVersion = '2.1.0.0'
object P_Top: TPanel
Left = 0
Height = 42
@ -154,7 +154,7 @@ object FHtmFileExp2: TFHtmFileExp2
object OpenDialog1: TOpenDialog
Filter = 'Web Pages|*.html;*.htm'
FilterIndex = 0
left = 26
top = 93
Left = 26
Top = 93
end
end

16
components/turbopower_ipro/examples/htmfileexp2.pas
View File

@ -126,22 +126,6 @@ begin
PicCreated := True;
end;
Picture.LoadFromFile(FN);
end
else begin
PicCreated := False;
BitMap := Graphics.TBitMap.Create;
with TLinearBitmap.Create do
try
LoadFromFile (FN);
AssignTo (Bitmap);
Picture.Bitmap.Assign (BitMap);
PicCreated := True;
finally
Bitmap.Free;
Free;
end;
end;
{$ENDIF}
end;
except
if PicCreated then