From 4a2d4438e39f790bee0552e756dccaf97aed54a2 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Fri, 14 Oct 2011 14:17:17 +0000 Subject: [PATCH] Minor fix for newer LCL git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2075 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/fpbrowser/mainform.lfm | 8 ++++---- applications/fpbrowser/mainform.lrs | 8 ++++---- applications/fpbrowser/mainform.pas | 2 +- 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/applications/fpbrowser/mainform.lfm b/applications/fpbrowser/mainform.lfm index 4454d14ac..1f0db8dc2 100644 --- a/applications/fpbrowser/mainform.lfm +++ b/applications/fpbrowser/mainform.lfm @@ -3,7 +3,7 @@ object formBrowser: TformBrowser Height = 439 Top = 186 Width = 621 - ClientHeight = 412 + ClientHeight = 419 ClientWidth = 621 Color = clBtnFace Font.Color = clWindowText @@ -18,7 +18,7 @@ object formBrowser: TformBrowser object panelBottom: TPanel Left = 0 Height = 18 - Top = 394 + Top = 401 Width = 621 Align = alBottom Alignment = taLeftJustify @@ -37,7 +37,7 @@ object formBrowser: TformBrowser end object labelProgress: TLabel Left = 319 - Height = 16 + Height = 17 Top = 3 Width = 21 Caption = 'Idle' @@ -46,7 +46,7 @@ object formBrowser: TformBrowser end object pageBrowser: TPageControl Left = 0 - Height = 394 + Height = 401 Top = 0 Width = 621 Align = alClient diff --git a/applications/fpbrowser/mainform.lrs b/applications/fpbrowser/mainform.lrs index ed76dfa8f..2c495bf27 100644 --- a/applications/fpbrowser/mainform.lrs +++ b/applications/fpbrowser/mainform.lrs @@ -2,19 +2,19 @@ LazarusResources.Add('TformBrowser','FORMDATA',[ 'TPF0'#12'TformBrowser'#11'formBrowser'#4'Left'#3'G'#1#6'Height'#3#183#1#3'To' - +'p'#3#186#0#5'Width'#3'm'#2#12'ClientHeight'#3#156#1#11'ClientWidth'#3'm'#2#5 + +'p'#3#186#0#5'Width'#3'm'#2#12'ClientHeight'#3#163#1#11'ClientWidth'#3'm'#2#5 +'Color'#7#9'clBtnFace'#10'Font.Color'#7#12'clWindowText'#11'Font.Height'#2 +#243#9'Font.Name'#6#5'Arial'#4'Menu'#7#8'MainMenu'#8'OnCreate'#7#10'FormCrea' +'te'#9'OnDestroy'#7#11'FormDestroy'#6'OnShow'#7#8'FormShow'#8'Position'#7#14 +'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#6'TPanel'#11'panelBottom'#4'Le' - +'ft'#2#0#6'Height'#2#18#3'Top'#3#138#1#5'Width'#3'm'#2#5'Align'#7#8'alBottom' + +'ft'#2#0#6'Height'#2#18#3'Top'#3#145#1#5'Width'#3'm'#2#5'Align'#7#8'alBottom' +#9'Alignment'#7#13'taLeftJustify'#10'BevelInner'#7#9'bvLowered'#10'BevelOute' +'r'#7#6'bvNone'#12'ClientHeight'#2#18#11'ClientWidth'#3'm'#2#8'TabOrder'#2#0 +#0#12'TProgressBar'#11'ProgressBar'#4'Left'#3#214#1#6'Height'#2#16#3'Top'#2#1 +#5'Width'#3#150#0#5'Align'#7#7'alRight'#8'TabOrder'#2#0#0#0#6'TLabel'#13'lab' - +'elProgress'#4'Left'#3'?'#1#6'Height'#2#16#3'Top'#2#3#5'Width'#2#21#7'Captio' + +'elProgress'#4'Left'#3'?'#1#6'Height'#2#17#3'Top'#2#3#5'Width'#2#21#7'Captio' +'n'#6#4'Idle'#11'ParentColor'#8#0#0#0#12'TPageControl'#11'pageBrowser'#4'Lef' - +'t'#2#0#6'Height'#3#138#1#3'Top'#2#0#5'Width'#3'm'#2#5'Align'#7#8'alClient'#8 + +'t'#2#0#6'Height'#3#145#1#3'Top'#2#0#5'Width'#3'm'#2#5'Align'#7#8'alClient'#8 +'TabOrder'#2#1#0#0#11'TOpenDialog'#10'OpenDialog'#10'DefaultExt'#6#4'.htm'#6 +'Filter'#6'%html files|*.htm;*.html|all files|*.*'#7'Options'#11#14'ofHideRe' +'adOnly'#15'ofPathMustExist'#15'ofFileMustExist'#0#4'left'#3'I'#1#3'top'#2#2 diff --git a/applications/fpbrowser/mainform.pas b/applications/fpbrowser/mainform.pas index b4b3c339b..8304e427e 100644 --- a/applications/fpbrowser/mainform.pas +++ b/applications/fpbrowser/mainform.pas @@ -243,7 +243,7 @@ begin History := TStringList.Create; AddBrowserTab('', True); - pageBrowser.OnPageChanged := HandlePageChanged; + pageBrowser.OnChange := HandlePageChanged; Position := poScreenCenter;