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

Variable renaming

Browse Source 
git-svn-id: trunk@34654 -
This commit is contained in:
sekelsenmat 2012-01-08 00:57:40 +00:00
parent 1911a68384
commit 5258be773c
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawnint.pas
View File

@ -164,7 +164,7 @@ type
DefaultFont: TFPCustomFont; DefaultFont: TFPCustomFont;
DefaultFontAndroidSize: Integer; DefaultFontAndroidSize: Integer;
// Mobile emulator // Mobile emulator
MobileEmulator: Boolean; MobileMode: Boolean;
MobileMainForm: TLCLIntfHandle; MobileMainForm: TLCLIntfHandle;
// For unusual implementations of DebugLn/DebugOut // For unusual implementations of DebugLn/DebugOut
procedure AccumulatingDebugOut(AStr: string); procedure AccumulatingDebugOut(AStr: string);

4
lcl/interfaces/customdrawn/customdrawnobject_cocoa.inc
View File

@ -39,7 +39,7 @@ begin
if Application.ApplicationType = atDefault then if Application.ApplicationType = atDefault then
Application.ApplicationType := atDesktop; Application.ApplicationType := atDesktop;
MobileEmulator := Application.ApplicationType in [atPDA, atKeyPadDevice]; MobileMode := Application.ApplicationType in [atPDA, atKeyPadDevice];
if Application.LayoutAdjustmentPolicy = lapDefault then if Application.LayoutAdjustmentPolicy = lapDefault then
Application.LayoutAdjustmentPolicy := lapFixedLayout; Application.LayoutAdjustmentPolicy := lapFixedLayout;
@ -63,7 +63,7 @@ begin
DebugLn('TCDWidgetSet.AppRun'); DebugLn('TCDWidgetSet.AppRun');
{$ENDIF} {$ENDIF}
if MobileEmulator and (Application.MainForm <> nil) then if MobileMode and (Application.MainForm <> nil) then
TCDWSCustomForm.DoShowHide(Application.MainForm); TCDWSCustomForm.DoShowHide(Application.MainForm);
{ Enters main message loop } { Enters main message loop }

4
lcl/interfaces/customdrawn/customdrawnwsforms_cocoa.inc
View File

@ -24,7 +24,7 @@ begin
winhandle := TCocoaWindow.Create; winhandle := TCocoaWindow.Create;
winhandle.LCLForm := TCustomForm(AWinControl); winhandle.LCLForm := TCustomForm(AWinControl);
if CDWidgetset.MobileEmulator then lRect := GetNSRect(200, 200, 240, 320) if CDWidgetset.MobileMode then lRect := GetNSRect(200, 200, 240, 320)
else lRect := CreateParamsToNSRect(AParams); else lRect := CreateParamsToNSRect(AParams);
win:=TCocoaForm(win.initWithContentRect_styleMask_backing_defer(lRect, WinMask, NSBackingStoreBuffered, False)); win:=TCocoaForm(win.initWithContentRect_styleMask_backing_defer(lRect, WinMask, NSBackingStoreBuffered, False));
win.WindowHandle := winhandle; win.WindowHandle := winhandle;
@ -66,7 +66,7 @@ end;
class function TCDWSCustomForm.CreateHandle(const AWinControl: TWinControl; class function TCDWSCustomForm.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; const AParams: TCreateParams): TLCLIntfHandle;
begin begin
if CDWidgetset.MobileEmulator then if CDWidgetset.MobileMode then
begin begin
Result := TLCLIntfhandle(AddNewForm(TCustomForm(AWinControl))); Result := TLCLIntfhandle(AddNewForm(TCustomForm(AWinControl)));
if AWinControl = Application.MainForm then if AWinControl = Application.MainForm then