diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-06 09:53:53 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-06 09:53:53 +0000 |
| commit | 1ef212ba89e50965b6b3b2d756be2c17e110b3ee (patch) | |
| tree | c8c4ae8f81097a00cd0650a133af05658a841355 /src/menu | |
| parent | 909cf4e491116930f6385e48165c6e770cf8505d (diff) | |
| download | usdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.tar.gz usdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.tar.xz usdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.zip | |
Delphi-mode set for FPC
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1348 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/menu')
| -rw-r--r-- | src/menu/UDrawTexture.pas | 4 | ||||
| -rw-r--r-- | src/menu/UMenuButton.pas | 11 | ||||
| -rw-r--r-- | src/menu/UMenuButtonCollection.pas | 4 | ||||
| -rw-r--r-- | src/menu/UMenuInteract.pas | 4 | ||||
| -rw-r--r-- | src/menu/UMenuStatic.pas | 8 |
5 files changed, 29 insertions, 2 deletions
diff --git a/src/menu/UDrawTexture.pas b/src/menu/UDrawTexture.pas index a7dde18f..3ea1c5eb 100644 --- a/src/menu/UDrawTexture.pas +++ b/src/menu/UDrawTexture.pas @@ -2,6 +2,10 @@ unit UDrawTexture; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + {$I switches.inc} uses UTexture; diff --git a/src/menu/UMenuButton.pas b/src/menu/UMenuButton.pas index 60b92b9f..3d7442c0 100644 --- a/src/menu/UMenuButton.pas +++ b/src/menu/UMenuButton.pas @@ -2,9 +2,18 @@ unit UMenuButton; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + {$I switches.inc} -uses TextGL, UTexture, gl, UMenuText,SDL; +uses + TextGL, + UTexture, + gl, + UMenuText, + SDL; type CButton = class of TButton; diff --git a/src/menu/UMenuButtonCollection.pas b/src/menu/UMenuButtonCollection.pas index c700c812..1e36a565 100644 --- a/src/menu/UMenuButtonCollection.pas +++ b/src/menu/UMenuButtonCollection.pas @@ -2,6 +2,10 @@ unit UMenuButtonCollection; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + {$I switches.inc} uses UMenuButton; diff --git a/src/menu/UMenuInteract.pas b/src/menu/UMenuInteract.pas index e0b4fa11..a81a41c4 100644 --- a/src/menu/UMenuInteract.pas +++ b/src/menu/UMenuInteract.pas @@ -2,6 +2,10 @@ unit UMenuInteract; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + {$I switches.inc} type diff --git a/src/menu/UMenuStatic.pas b/src/menu/UMenuStatic.pas index ac8fa2dc..93ee9fa6 100644 --- a/src/menu/UMenuStatic.pas +++ b/src/menu/UMenuStatic.pas @@ -2,9 +2,15 @@ unit UMenuStatic; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + {$I switches.inc} -uses UTexture, gl; +uses + UTexture, + gl; type TStatic = class |