paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 08:19:41 +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;
DefaultFontAndroidSize: Integer;
// Mobile emulator
MobileEmulator: Boolean;
MobileMode: Boolean;
MobileMainForm: TLCLIntfHandle;
// For unusual implementations of DebugLn/DebugOut
procedure AccumulatingDebugOut(AStr: string);

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

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

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

@ -24,7 +24,7 @@ begin
winhandle := TCocoaWindow.Create;
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);
win:=TCocoaForm(win.initWithContentRect_styleMask_backing_defer(lRect, WinMask, NSBackingStoreBuffered, False));
win.WindowHandle := winhandle;
@ -66,7 +66,7 @@ end;
class function TCDWSCustomForm.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
begin
if CDWidgetset.MobileEmulator then
if CDWidgetset.MobileMode then
begin
Result := TLCLIntfhandle(AddNewForm(TCustomForm(AWinControl)));
if AWinControl = Application.MainForm then