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

disabled ipfilebroker, because of missing IFDEF IP_LAZARUS

Browse Source 
git-svn-id: trunk@9429 -
This commit is contained in:
mattias 2006-06-13 07:39:52 +00:00
parent ab619c7b0a
commit b9f853b989
5 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/turbopoweripro.lpk
View File

@ -41,7 +41,7 @@
</Item4>
<Item5>
<Filename Value="ipfilebroker.pas"/>
<HasRegisterProc Value="True"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="Ipfilebroker"/>
</Item5>
<Item6>

3
components/turbopower_ipro/turbopoweripro.pas
View File

@ -7,14 +7,13 @@ unit TurboPowerIPro;
interface
uses
IpAnim, IpConst, Ipfilebroker, IpHtml, IpHtmlPv, IpMsg, IpStrms, IpUtils,
IpAnim, IpConst, IpHtml, IpHtmlPv, IpMsg, IpStrms, IpUtils,
LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('Ipfilebroker', @Ipfilebroker.Register);
RegisterUnit('IpHtml', @IpHtml.Register);
end;

2
lcl/include/control.inc
View File

@ -1983,7 +1983,7 @@ begin
and (not AutoSizing)
and (not (csDestroying in ComponentState))
and IsControlVisible;
if AutoSize and not Result then begin
if (not Result) and AutoSize then begin
{$IFDEF VerboseCanAutoSize}
DbgOut('TControl.AutoSizeCanStart Self='+DbgSName(Self)+' ');
if not AutoSize then DebugLn('not AutoSize')

3
lcl/include/customform.inc
View File

@ -1475,8 +1475,7 @@ end;
------------------------------------------------------------------------------}
function TCustomForm.IsForm: Boolean;
begin
//TODO:
Result := True;
Result := true;
end;
function TCustomForm.GetPixelsPerInch: Longint;

6
lcl/include/wincontrol.inc
View File

@ -978,7 +978,7 @@ begin
or (inherited AutoSizeDelayed);
//if Result then debugln('TWinControl.AutoSizeDelayed A ',DbgSName(Self),' wcfCreatingChildHandles=',dbgs(wcfCreatingChildHandles in FWinControlFlags),' csLoading=',dbgs(csLoading in ComponentState));
{$IFDEF VerboseCanAutoSize}
if Result and AutoSize then begin
if Result {and AutoSize} then begin
DbgOut('TWinControl.AutoSizeDelayed Self='+DbgSName(Self)+' ');
if not HandleAllocated then debugln('not HandleAllocated')
else if not FShowing then debugln('not FShowing')
@ -2515,8 +2515,7 @@ var
begin
bShow := HandleObjectShouldBeVisible;
if bShow
then begin
if bShow then begin
if not HandleAllocated then CreateHandle;
if FWinControls <> nil
then begin
@ -2540,6 +2539,7 @@ begin
FShowing := not bShow;
end;
//DebugLn(['TWinControl.UpdateShowing ',DbgSName(Self),' FShowing=',FShowing,' AutoSizeDelayed=',AutoSizeDelayed]);
if FShowing then begin
ResizeDelayedAutoSizeChildren;
AdjustSize;