• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqt誰得windowscocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

練習用です。いろんなものがごちゃまぜです。


Commit MetaInfo

Revision9454bd725f8d9dd7b4a5a66d0b984ee649139cd3 (tree)
Time2017-05-16 10:26:23
Author渡邉 喜光 <tccwas@gmai...>
Commiter渡邉 喜光

Log Message

Delphiサンプル

Change Summary

Incremental Difference

--- /dev/null
+++ b/Delphi/delphisamp1/Project1.dpr
@@ -0,0 +1,14 @@
1+program Project1;
2+
3+uses
4+ Vcl.Forms,
5+ Unit1 in 'Unit1.pas' {Form1};
6+
7+{$R *.res}
8+
9+begin
10+ Application.Initialize;
11+ Application.MainFormOnTaskbar := True;
12+ Application.CreateForm(TForm1, Form1);
13+ Application.Run;
14+end.
--- /dev/null
+++ b/Delphi/delphisamp1/Project1.dproj
@@ -0,0 +1,125 @@
1+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+ <PropertyGroup>
3+ <ProjectGuid>{3C0F2F6C-1120-4610-8644-10F87078B768}</ProjectGuid>
4+ <ProjectVersion>18.2</ProjectVersion>
5+ <FrameworkType>VCL</FrameworkType>
6+ <MainSource>Project1.dpr</MainSource>
7+ <Base>True</Base>
8+ <Config Condition="'$(Config)'==''">Debug</Config>
9+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
10+ <TargetedPlatforms>1</TargetedPlatforms>
11+ <AppType>Application</AppType>
12+ </PropertyGroup>
13+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14+ <Base>true</Base>
15+ </PropertyGroup>
16+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
17+ <Base_Win32>true</Base_Win32>
18+ <CfgParent>Base</CfgParent>
19+ <Base>true</Base>
20+ </PropertyGroup>
21+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
22+ <Cfg_1>true</Cfg_1>
23+ <CfgParent>Base</CfgParent>
24+ <Base>true</Base>
25+ </PropertyGroup>
26+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
27+ <Cfg_1_Win32>true</Cfg_1_Win32>
28+ <CfgParent>Cfg_1</CfgParent>
29+ <Cfg_1>true</Cfg_1>
30+ <Base>true</Base>
31+ </PropertyGroup>
32+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
33+ <Cfg_2>true</Cfg_2>
34+ <CfgParent>Base</CfgParent>
35+ <Base>true</Base>
36+ </PropertyGroup>
37+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
38+ <Cfg_2_Win32>true</Cfg_2_Win32>
39+ <CfgParent>Cfg_2</CfgParent>
40+ <Cfg_2>true</Cfg_2>
41+ <Base>true</Base>
42+ </PropertyGroup>
43+ <PropertyGroup Condition="'$(Base)'!=''">
44+ <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
45+ <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
46+ <DCC_E>false</DCC_E>
47+ <DCC_N>false</DCC_N>
48+ <DCC_S>false</DCC_S>
49+ <DCC_F>false</DCC_F>
50+ <DCC_K>false</DCC_K>
51+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
52+ <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
53+ <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
54+ <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
55+ <SanitizedProjectName>Project1</SanitizedProjectName>
56+ </PropertyGroup>
57+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
58+ <DCC_UsePackage>rtl;vcl;vclactnband;vcldsnap;IndyCore;IndySystem;vclx;bindcomp;tethering;svnui;appanalytics;dsnap;bindcompvcl;vclimg;vcltouch;VclSmp;vcldb;bindcompfmx;svn;bindengine;dbrtl;IndyProtocols;fmx;fmxdae;xmlrtl;fmxobj;vclwinx;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
59+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
60+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
61+ <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
62+ <VerInfo_Locale>1033</VerInfo_Locale>
63+ <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
64+ </PropertyGroup>
65+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
66+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
67+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
68+ <DCC_Optimize>false</DCC_Optimize>
69+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
70+ <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
71+ <DCC_RemoteDebug>true</DCC_RemoteDebug>
72+ </PropertyGroup>
73+ <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
74+ <DCC_RemoteDebug>false</DCC_RemoteDebug>
75+ <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
76+ <AppEnableHighDPI>true</AppEnableHighDPI>
77+ </PropertyGroup>
78+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
79+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
80+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
81+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
82+ <DCC_DebugInformation>0</DCC_DebugInformation>
83+ </PropertyGroup>
84+ <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
85+ <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
86+ <AppEnableHighDPI>true</AppEnableHighDPI>
87+ </PropertyGroup>
88+ <ItemGroup>
89+ <DelphiCompile Include="$(MainSource)">
90+ <MainSource>MainSource</MainSource>
91+ </DelphiCompile>
92+ <DCCReference Include="Unit1.pas">
93+ <Form>Form1</Form>
94+ <FormType>dfm</FormType>
95+ </DCCReference>
96+ <BuildConfiguration Include="Release">
97+ <Key>Cfg_2</Key>
98+ <CfgParent>Base</CfgParent>
99+ </BuildConfiguration>
100+ <BuildConfiguration Include="Base">
101+ <Key>Base</Key>
102+ </BuildConfiguration>
103+ <BuildConfiguration Include="Debug">
104+ <Key>Cfg_1</Key>
105+ <CfgParent>Base</CfgParent>
106+ </BuildConfiguration>
107+ </ItemGroup>
108+ <ProjectExtensions>
109+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
110+ <Borland.ProjectType>Application</Borland.ProjectType>
111+ <BorlandProject>
112+ <Delphi.Personality>
113+ <Source>
114+ <Source Name="MainSource">Project1.dpr</Source>
115+ </Source>
116+ </Delphi.Personality>
117+ <Platforms>
118+ <Platform value="Win32">True</Platform>
119+ </Platforms>
120+ </BorlandProject>
121+ <ProjectFileVersion>12</ProjectFileVersion>
122+ </ProjectExtensions>
123+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
124+ <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
125+</Project>
--- /dev/null
+++ b/Delphi/delphisamp1/Project1.dproj.local
@@ -0,0 +1,10 @@
1+<?xml version="1.0" encoding="utf-8"?>
2+<BorlandProject>
3+ <Transactions>
4+ <Transaction>2017/04/24 16:39:01.000.229,=C:\Users\bellm\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
5+ <Transaction>2017/05/16 10:21:48.894,=C:\Users\bellm\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
6+ <Transaction>2017/05/16 10:24:23.296,C:\Users\bellm\Documents\work\delphisamp1\Unit1.dfm=C:\Users\bellm\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
7+ <Transaction>2017/05/16 10:24:23.296,C:\Users\bellm\Documents\work\delphisamp1\Unit1.pas=C:\Users\bellm\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
8+ <Transaction>2017/05/16 10:24:33.011,C:\Users\bellm\Documents\work\delphisamp1\Project1.dproj=C:\Users\bellm\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
9+ </Transactions>
10+</BorlandProject>
Binary files /dev/null and b/Delphi/delphisamp1/Project1.identcache differ
--- /dev/null
+++ b/Delphi/delphisamp1/Project1.stat
@@ -0,0 +1,10 @@
1+[Stats]
2+EditorSecs=1
3+DesignerSecs=2
4+InspectorSecs=1
5+CompileSecs=1
6+OtherSecs=1
7+StartTime=2017/05/13 12:25:38
8+RealKeys=0
9+EffectiveKeys=0
10+DebugSecs=1
--- /dev/null
+++ b/Delphi/delphisamp1/Unit1.dfm
@@ -0,0 +1,48 @@
1+object Form1: TForm1
2+ Left = 0
3+ Top = 0
4+ Caption = 'Form1'
5+ ClientHeight = 278
6+ ClientWidth = 635
7+ Color = clBtnFace
8+ Font.Charset = DEFAULT_CHARSET
9+ Font.Color = clWindowText
10+ Font.Height = -11
11+ Font.Name = 'Tahoma'
12+ Font.Style = []
13+ Menu = MainMenu1
14+ OldCreateOrder = False
15+ PixelsPerInch = 96
16+ TextHeight = 13
17+ object MainMenu1: TMainMenu
18+ Left = 128
19+ Top = 64
20+ object N1: TMenuItem
21+ Caption = #12501#12449#12452#12523'(&F)'
22+ object N2: TMenuItem
23+ Caption = #26032#35215#20316#25104'(&N)'
24+ end
25+ object O1: TMenuItem
26+ Caption = #38283#12367'(&O)'
27+ end
28+ object S1: TMenuItem
29+ Caption = #19978#26360#12365#20445#23384'(&S)'
30+ end
31+ object N3: TMenuItem
32+ Caption = '-'
33+ end
34+ object P1: TMenuItem
35+ Caption = #21360#21047'(&P)'
36+ end
37+ object R1: TMenuItem
38+ Caption = #12506#12540#12472#35373#23450'(&R)...'
39+ end
40+ object N4: TMenuItem
41+ Caption = '-'
42+ end
43+ object X1: TMenuItem
44+ Caption = #32066#20102'(&X)'
45+ end
46+ end
47+ end
48+end
--- /dev/null
+++ b/Delphi/delphisamp1/Unit1.pas
@@ -0,0 +1,34 @@
1+unit Unit1;
2+
3+interface
4+
5+uses
6+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
7+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus;
8+
9+type
10+ TForm1 = class(TForm)
11+ MainMenu1: TMainMenu;
12+ N1: TMenuItem;
13+ N2: TMenuItem;
14+ O1: TMenuItem;
15+ S1: TMenuItem;
16+ N3: TMenuItem;
17+ P1: TMenuItem;
18+ R1: TMenuItem;
19+ N4: TMenuItem;
20+ X1: TMenuItem;
21+ private
22+ { Private 宣言 }
23+ public
24+ { Public 宣言 }
25+ end;
26+
27+var
28+ Form1: TForm1;
29+
30+implementation
31+
32+{$R *.dfm}
33+
34+end.