常連

##質問内容
Delphiで自作のDatePickerを作ろうと思い、TEditとTButtonを配置し、ボタンをクリックするとTMonthCalendarの張り付いたフォームをポップアップ表示をするようなプログラムを作成しています。
ポップアップを表示し日付をクリックすると、日付をEditに入力しポップアップを閉じるといったところまでできたのですが、
カレンダーコンポーネントの月を選択する矢印ボタン？をクリックすることでも閉じてしまうところが現在の課題点となっています。
動き的には、カレンダーの日付部分だけクリックするとポップアップを閉じるようにし、それ以外の場所をクリックしても閉じないようにしたいです。

下記に現状のコードを記しておくので、アドバイスなどがありました、ご回答お願いします。


```Delphi
procedure TForm2.MonthCalendar1Click(Sender: TObject);
var
  MousePos : TPoint;
  HitInfo  : TMCHitTestInfo;
begin
  GetCursorPos(MousePos);
  MousePos       := MonthCalendar1.ScreenToClient(MousePos);
  HitInfo.cbSize := SizeOf(HitInfo);
  HitInfo.pt     := MousePos;

  MonthCal_HitTest(MonthCalendar1.Handle, HitInfo);

  if HitInfo.uHit and MCHT_CALENDARDATE <> 0 then
    begin
    FDataTime := MonthCalendar1.Date;
    Form1.Edit1.Text := FormatDateTime('yyyy年 MM月 dd日', FDataTime);
    close;
    end;
end;
```

Delphi　TMonthCalendarでの日付の選択判定

###実現したいこと
次のフォーマットでRichEditに文字列を表示したい．状態(発生/回復=赤色/黒色)によって色を変えたい。

【フォーマット】
 [番号1]＿年(1,000位,100位)年(10位,1位)/月/日＿時:分:秒__No.番号2-番号3＿故障名＿状態」
・ 番号1：3桁表示で右寄せ，0でパディング．
・ 年，月，日，時，分，秒：2桁表示，0でパディング．
・ 番号2：2桁表示で右寄せ，0でパディング．
・ 番号3：1桁表示で右寄せ．
・ 故障名：最大48文字まで
・状態：全角2文字で"発生"または"回復"
・ _(アンダーバー)は半角2文字分のスペース 

【実現したい例】
[001]  2018/12/05  23:09:09  No.01-1  Labelイベントハンドラ         発生
[002]  2018/12/05  23:09:09  No.01-1  Button1イベントハンドラ       発生
 ・
 ・
 ・
[019]  2018/12/05  23:09:09  No.01-1  Label1イベントハンドラ        回復(赤色)
[020]  2018/12/05  23:09:09  No.01-1  Button1イベントハンドラ       回復(赤色)
スクロールにより，No.021からNo.100までも表示できる． 

###困っていること
上記，【実現したい例】のようにRichEditに文字列を表示したいのですが，下記Windows7の画面からWindows10に移行すると，回復の状態の行が赤色と赤色が混ざってしまいます。どなたか解決方法をご教授お願いいたします。「テスト」の部分は実際には故障名称が入っておりますが，秘密保持の観点から消しています。ご了承ください。

 【Windows7時の画面(上手くいく画面(発生時が赤色，回復時が黒色))】
![![イメージ説明](81ecc29159eb890f1c1f4263fb08109b.gif)

【Windows10に移行後の画面(上手くいかない画面(赤色と黒色が混ざる))】
![イメージ説明](6b004b41b331ffd7402e8c81320fae59.gif)

###試したこと
・[TRichEditで書式が部分的に変更できない場合の対処法 ](http://a7m.hatenablog.jp/entry/20090610/1244635781)
を参考に「CRやLF」を考慮してコードに修正してみたが，上手くいかなかった。また，Lines->Addではなく，SelTextに修正したりしたが，上手くいかなかった。

###ソースコード
該当箇所を抜粋します。
```C++
void __fastcall TFailureHistory::ShowFailureHistory(void)
{
	//	変数宣言
    AnsiString	caption;
	AnsiString	temp;
  	AnsiString	isTrodgState;
	char		historyBuff[DISPLAY_MAX][LABEL_MAX];		//	故障履歴ラベルバッファ
	AnsiString	trodgName;									//	故障名称
	
	//----- 初期化 -----
	BYTE l = 0;
	BYTE m = 0;
	memset( &historyBuff[0][0], 0, sizeof(historyBuff) );
	WORD allPages = 0;										//	故障履歴の総ページ
	WORD showPages = 0;										//	故障履歴の現在ページ
	WORD pageUp = 0;										//	前に表示可能なページ数
	WORD pageDown = 0;										//	次に表示可能なページ数
	
	//	履歴表示エリア内を削除
	_failureHistoryRichEdit->Lines->Clear();
	//------------------
	
	//----- 「前」および「次」に表示可能なページ数の計算 -----
	//	前に表示可能なページ数が割り切れない場合
	if( (GA_startHistoryIdx%DISPLAY_MAX) != 0 )
	{
		pageUp = (GA_startHistoryIdx/DISPLAY_MAX)+1;
	}
	//	前に表示可能なページ数が割り切れる場合
	else
	{
		pageUp = (GA_startHistoryIdx/DISPLAY_MAX);
	}
	//	次に表示可能なページ数が割り切れない場合
	if( ((GA_history.count-GA_endHistoryIdx) % DISPLAY_MAX) != 0 )
	{
		pageDown = ( (GA_history.count-GA_endHistoryIdx) / DISPLAY_MAX ) + 1;
	}
	//	次に表示可能なページ数が割り切れる場合
	else
	{
		pageDown = ( (GA_history.count-GA_endHistoryIdx) / DISPLAY_MAX );
	}
	//--------------------------------------------------------
	
	//----- 故障履歴の総ページ数を計算後，表示 -----
	//	故障履歴の総ページをセット
	allPages = (pageUp + 1 + pageDown);
	//	故障履歴の総ページ数(分母)を表示
	denominator->Caption = IntToStr(allPages);
	denominator->Left = GetFailureHistoryPosition(allPages);
	//----------------------------------------------
	
	//----- 故障履歴の表示ページを計算後，表示 -----
	//	故障履歴の表示ページをセット
	showPages = (pageUp + 1);
	//	最初の故障履歴件数番号(分子)を表示
	numerator->Caption = IntToStr(showPages);
	numerator->Left = GetFailureHistoryPosition(showPages);
	//----------------------------------------------
	
	//	故障履歴件数が1件以上の場合
	if( GA_history.count > 0 )
	{
		//	故障履歴情報をバッファに設定するループ(最大100)
		for(WORD i=GA_startHistoryIdx; i<GA_endHistoryIdx; i++, l++)
	    {
	    	//	故障名称バッファに故障名称をセット
	    	trodgName = GA_history.data[i].trodgName;
			for( int k=trodgName.Length(); k<STRING_MAX; k++)
			{
				//	48文字の内，空きスペースに半角スペースをセット
				trodgName += " ";
			}
	    	//	故障情報が代表故障の場合
	    	if( GA_history.data[i].trackNo != 0 )
	    	{
	    		//	故障情報がアークネット情報の場合
	    		if( GA_history.data[i].trainNo != 0 )
		    	{
		    		//	故障状態が異常の場合
    				if( GA_history.data[i].isTrodgState == ON )
		    		{
			    		sprintf( historyBuff[l],
			    			"[%03d]  %02d%02d/%02d/%02d  %02d:%02d:%02d%4d号線  No.%02d-%d  %-s発生",
			    			(l+1),
							GA_history.data[i].yyh,
							GA_history.data[i].yyl,
							GA_history.data[i].mm,
							GA_history.data[i].dd,
							GA_history.data[i].hh,
							GA_history.data[i].ms,
							GA_history.data[i].ss,
							GA_history.data[i].trackNo,
							GA_history.data[i].trainNo,
							GA_history.data[i].doorNo,
							trodgName.c_str());
		    		}
		    		//	故障状態が正常の場合
		    		else
		    		{
		    			sprintf( historyBuff[l],
							"[%03d]  %02d%02d/%02d/%02d  %02d:%02d:%02d%4d号線  No.%02d-%d  %-s回復",
		    				(l+1),
							GA_history.data[i].yyh,
							GA_history.data[i].yyl,
							GA_history.data[i].mm,
							GA_history.data[i].dd,
							GA_history.data[i].hh,
							GA_history.data[i].ms,
							GA_history.data[i].ss,
							GA_history.data[i].trackNo,
							GA_history.data[i].trainNo,
							GA_history.data[i].doorNo ,
							trodgName.c_str());
		    		}
		    	}

		    	if( GA_history.data[i].trainNo == 0 )
		    	{
		    		//	故障状態が異常の場合
    				if( GA_history.data[i].isTrodgState == ON )
		    		{
			    		sprintf( historyBuff[l],
			    			"[%03d]  %02d%02d/%02d/%02d  %02d:%02d:%02d%4d号線%11s%-s発生",
			    			(l+1),
							GA_history.data[i].yyh,
							GA_history.data[i].yyl,
							GA_history.data[i].mm,
							GA_history.data[i].dd,
							GA_history.data[i].hh,
							GA_history.data[i].ms,
							GA_history.data[i].ss,
							GA_history.data[i].trackNo,
			    			" ",
							trodgName.c_str());
		    		}
		    		//	故障状態が正常の場合
		    		else
		    		{
		    			sprintf( historyBuff[l],
							"[%03d]  %02d%02d/%02d/%02d  %02d:%02d:%02d%4d号線%11s%-s回復",
			    			(l+1),
							GA_history.data[i].yyh,
							GA_history.data[i].yyl,
							GA_history.data[i].mm,
							GA_history.data[i].dd,
							GA_history.data[i].hh,
							GA_history.data[i].ms,
							GA_history.data[i].ss,
							GA_history.data[i].trackNo,
			    			" ",
							trodgName.c_str());
		    		}
		    	}
	    	}
	    }
	}
	
    //	バッファを故障履歴エディットに表示するループ
    for(WORD j=GA_startHistoryIdx; j<GA_endHistoryIdx; j++, m++)
    {
    	//	char型配列をAnsiString型に変換
        caption = StrPas(&historyBuff[m][0]);
    	//	100件目の場合
    	if( j == (GA_endHistoryIdx-1) )
    	{
    		//	故障履歴をダンプエリアに表示(改行しない)
    		_failureHistoryRichEdit->Lines->Text = _failureHistoryRichEdit->Lines->Text + caption;
    	}
    	//	1~99件目の場合
    	else
    	{
    		//	故障履歴をダンプエリアに表示
	    	_failureHistoryRichEdit->Lines->Add(caption);
    	}
    }
	
	BYTE rows = 0;										//	行数
	//	状態(発生/回復)によって，文字列のフォント(赤/黒)を設定するループ
	for(WORD n=GA_startHistoryIdx; n<GA_endHistoryIdx; n++, rows++)
	{
		//	文字列のフォントを変更する開始位置(テキスト全体における最初からの文字数，0から始まる)
		_failureHistoryRichEdit->SelStart = (DISPLAY_MAX * rows);
		//	文字列のフォントを変更する長さ
		_failureHistoryRichEdit->SelLength = DISPLAY_MAX;
		
		//	故障状態が異常の場合
		if( GA_history.data[n].isTrodgState == ON )
		{
			//	故障履歴の指定行のフォントを赤に設定
			_failureHistoryRichEdit->SelAttributes->Color = clRed;
		}
		//	故障状態が正常の場合
		else
		{
			//	故障履歴の指定行のフォントを黒に設定
			_failureHistoryRichEdit->SelAttributes->Color = clBlack;
		}
	}
}
```

###開発環境
OS：Windows10 64bit
IDE：embarcadero C++ Builder10.3

条件によりRichEditの行の色を変えたい(Windows10)

###実現したいこと
四角形や円などの図形と文字列を同時に生成する自作コンポーネントを作成すること．

###困っていること
CustomControlクラスを継承したクラスを作成し，CustomControlのプロパティであるFontを継承しました．ですが，テストアプリでFontのSizeプロパティを変更しても文字列のサイズが変更せずに困っています．

![](d82c2e11f359d83ef79aa978329a5788.jpeg)
図1　文字列のサイズが変わらないインスタンス

![](74359643cf47064459801374af16dcbd.jpeg)
図2　Sizeプロパティを16にした時の画面

###実現方法
文字列のサイズを変更する方法はウィンドウメッセージのWM_SETFONTイベントを発生させる必要があるだろうと思っています．ですが，WM_SETFONTイベントの発生させ方が分からず困っています．どなたがご教授お願いいたします．

###ソースコード
文字数が10,000文字以上になるため，各種メソッド部分をわざと消しています．
```Delphi
unit Door;
//  Delphi
interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
  Vcl.Controls, Vcl.Graphics, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Dialogs;

type
  TDoor = class(TCustomControl)
  private
    { Private 宣言 }
    FCaption: UnicodeString;
    FShape: TShapeType;
    FShapeColor: TColor;
    FWidth_C: Integer;
    FHeight_C: Integer;

    procedure SetShape(Value: TShapeType);
    procedure SetShapeColor(Value: TColor);
    procedure SetCaption(Value: UnicodeString);
    procedure SetWidth_C(Value: Integer);
    procedure SetHeight_C(Value: Integer);
  protected
    { Protected 宣言 }
  public
    { Public 宣言 }
    left: Integer;
    top: Integer;

    //  コンストラクタ(オーバーライド)
    constructor Create( AOwner: TComponent ); override;
    procedure Paint; override;
  published
    { Published 宣言 }
    //  プロパティにdefaultを付けるとデフォルト値にできる
    property Shape: TShapeType read FShape write SetShape default stRectangle;
    property ShapeColor: TColor read FShapeColor write SetShapeColor;
    property Caption: UnicodeString read FCaption write SetCaption;
    property Width_C: Integer read FWidth_C write SetWidth_C;
    property Height_C: Integer read FHeight_C write SetHeight_C;
    //  継承プロパティ(再宣言するとオブジェクトインスペクタに表示できるようになる)
    property Anchors;
    property Color;
    property Enabled;
    property Font;
    property Name;
    property ParentColor;
    property Visible;
    property OnClick;
    property OnDblClick;
  end;

procedure Register;

//---------------------------------------------------------------------------
implementation

const
  DelphiWindows: array [1 .. 1] of PWideChar = ('TAppBuilder');

procedure Register;
begin
  //  「Samples」パレットにドアを登録
  RegisterComponents('Samples', [TDoor]);
end;

//  WM_PAINTメッセージで起動
//  クライアントエリアに更新領域が存在するときにコール
procedure TDoor.Paint;
var
  x1, y1: Integer;
  x2, y2: Integer;
  x_space, y_space: Integer;

begin
  //  四角形の場合
  if FShape = stRectangle then
  begin
    with Canvas do begin
      //  FSahpeColor色で塗りつぶし
      Brush.Color:= FShapeColor;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Rectangle(Rect(Left, Top, (Left+Width), (Top+Height)));

      //  文字列の描画
      TextOut(FWidth_C, FHeight_C, FCaption);
    end;
  end
  //  円の場合
  else if FShape = stCircle then
  begin
    with Canvas do begin
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));

      if Width > Height then
      begin
        x_space:= Width - Height;
        x1:= Left + (x_space div 2);
        y1:= Top;
        x2:= x1 + Height;
        y2:= y1 + Height;
      end
      else
      begin
        y_space:= Height - Width;
        x1:= Left;
        y1:= Top + (y_space div 2);
        x2:= x1 + Width;
        y2:= y1 + Width;
      end;

      //  FSahpeColor色で塗りつぶし
      Brush.Color:= FShapeColor;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Ellipse(x1, y1, x2, y2);

      //  文字列の描画
      TextOut(FWidth_C, FHeight_C, FCaption);
    end;
  end
  //  楕円の場合
  else if FShape = stEllipse then
  begin
    with Canvas do begin
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
      //  FSahpeColor色で塗りつぶし
      Brush.Color:= FShapeColor;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Ellipse(Left, Top, (Left+Width), (Top+Height));

      //  文字列の描画
      TextOut(FWidth_C, FHeight_C, FCaption);
    end;
  end
  //  角の丸い四角形の場合
  else if FShape = stRoundRect then
  begin
    with Canvas do begin
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
      //  FSahpeColor色で塗りつぶし
      Brush.Color:= FShapeColor;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      RoundRect(Left, Top, Width, Height, 10, 10);

      //  文字列の描画
      TextOut(FWidth_C, FHeight_C, FCaption);
    end;
  end
  //  角の丸い正方形の場合
  else if FShape = stRoundSquare then
  begin
    with Canvas do begin
      if Width > Height then
      begin
        x_space:= Width - Height;
        x1:= Left + (x_space div 2);
        y1:= Top;
        x2:= x1 + Height;
        y2:= y1 + Height;
      end
      else
      begin
        y_space:= Height - Width;
        x1:= Left;
        y1:= Top + (y_space div 2);
        x2:= x1 + Width;
        y2:= y1 + Width;
      end;

      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
      //  FSahpeColor色で塗りつぶし
      Brush.Color:= FShapeColor;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      RoundRect(x1, y1, x2, y2, 10, 10);

      //  文字列の描画
      TextOut(FWidth_C, FHeight_C, FCaption);
    end;
  end
  //  正方形の場合
  else if FShape = stSquare then
  begin
    with Canvas do begin
      //  Color色で塗りつぶし
      Brush.Color:= Color;
      Brush.Style:= bsSolid;
      FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));

      if Width > Height then
      begin
        x_space:= Width - Height;
        x1:= Left + (x_space div 2);
        y1:= Top;
        x2:= x1 + Height;
        y2:= y1 + Height;
      end
      else
      begin
        y_space:= Height - Width;
        x1:= Left;
        y1:= Top + (y_space div 2);
        x2:= x1 + Width;
        y2:= y1 + Width;
      end;

      //  FSahpeColor色で塗りつぶし
      Brush.Color:= FShapeColor;
      Brush.Style:= bsSolid;
      //  黒色で太さ1で枠線描画
      Pen.Color:= clBlack;
      Pen.Style:= psSolid;
      Pen.Width:= 1;
      Rectangle(Rect(x1, y1, x2, y2));

      //  ためしにやってみたが，フォントサイズが変更しなかった．
      Font.Assign(Font);
      //  文字列の描画
      TextOut(FWidth_C, FHeight_C, FCaption);
    end;
  end;

//  FCaption.
//  Font.Size
end;


//Createメソッド省略
//SetShapeメソッド省略
//SetShapeColorメソッド省略
//SetCaptionメソッド省略
//SetWidth_Cメソッド省略
//SetHeight_Cメソッド省略

end.
```

継承したFontプロパティの文字サイズを大きくしてもサイズが大きくならない

###分からないこと・困ったこと
TButtonクラスの下記メソッドはインスタンス生成時やインスタンス破棄時のコールされる「コンストラクタ」と「デストラクタ」なのでしょうか？
・Create
・Destroy

[Vcl.StdCtrls.TButton.Create](http://docwiki.embarcadero.com/Libraries/Rio/ja/Vcl.StdCtrls.TButton.Create)
[Vcl.StdCtrls.TButton.Destroy](http://docwiki.embarcadero.com/Libraries/Rio/ja/Vcl.StdCtrls.TButton.Destroy)
上記2つのEmbarcaderoのDocWikiを拝見しても「このトピックには現在ドキュメントが存在しません。「ノート」を利用してこのトピックの改良について話しあうことができます。 」と書かれており，メソッドの機能や使い方が記載されておらず困っています。調べたところ，TLabelも同じでした。それに対して，TShapeの「[Create](http://docwiki.embarcadero.com/Libraries/Rio/ja/Vcl.ExtCtrls.TShape.Create)」と「[Destroy](http://docwiki.embarcadero.com/Libraries/Rio/ja/Vcl.ExtCtrls.TShape.Destroy)」は機能や使い方が記載されています。違いは何なのでしょうか？「TGraphicControl」や「TWinControl」，「TCustomControl」といったコンポーネントの継承元の違いなのでしょうか？それとも，DocWikiがフリーのサポートサイトのため，分からない箇所は記載してないだけなのでしょうか？

また，「Create」と「Destory」が「コンストラクタ」と「デストラクタ」の場合，1点質問があります。「コンストラクタ」の命名方法はクラスと同じ，「デストラクタ」のクラス名に「~(チルダ)」ではないのでしょうか？TButtonクラスの場合，コンストラクタが「TButton」，デストラクタが「~TButton」ではないのでしょうか？

どなたがご教授お願いいたします。

TButtonクラスの「Create」と「Destroy」がどういう機能・使い方か分からない

###実現したいこと
開発環境で作成したアプリケーションの画面解像度と実機の画面解像度が異なってもアプリケーションの表示が異ならないようにしたい。

###困っていること
小数点の計算や表示ができなくて困っています。

###経緯
[フォームとコントロールを動的にサイズ変更するときの考慮事項](http://docwiki.embarcadero.com/RADStudio/Rio/ja/%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%81%A8%E3%82%B3%E3%83%B3%E3%83%88%E3%83%AD%E3%83%BC%E3%83%AB%E3%82%92%E5%8B%95%E7%9A%84%E3%81%AB%E3%82%B5%E3%82%A4%E3%82%BA%E5%A4%89%E6%9B%B4%E3%81%99%E3%82%8B%E3%81%A8%E3%81%8D%E3%81%AE%E8%80%83%E6%85%AE%E4%BA%8B%E9%A0%85)
開発環境の画面解像度：1024×768
実機の画面解像度：1366×768
開発環境の画面解像度と実機の画面解像度は上記の通りで，上記URLを参考に縦の「画面解像度の差分比率」を求めようとしました。ですが，小数点の計算が出来ずに困っています。

###試したこと
小数点の計算が出来るかを下記ソースコードで試してみましたが，「Unit1.cpp」の「ShowMessage(floatToStr(c));」で「1」と出て困っています。自分的には「1.75」と表示されてほしいです。どなたかご教授お願いいたします。

###ソースコード
Project1.cpp
```C++
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
	try
	{
		Application->Initialize();
		Application->MainFormOnTaskBar = true;
		Application->CreateForm(__classid(TForm1), &Form1);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	catch (...)
	{
		try
		{
			throw Exception("");
		}
		catch (Exception &exception)
		{
			Application->ShowException(&exception);
		}
	}
	return 0;
}
//---------------------------------------------------------------------------
```
Unit1.cpp
```C++
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	int a = 7;
	int b = 4;
	float c = a/b;
	ShowMessage(floatToStr(c));
}
//---------------------------------------------------------------------------
```
Unit1.h
```C++
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

```

###開発環境
OS:Windows10 pro 64bit
IDE:Embarcadero10.3

小数点の計算・表示が出来ない

###困っていること
下記記載の開発PCで製作したアプリをレンタルPCで起動後，特定の操作をするとタスクが死んでしまい，その原因がソフトウェアなのかハードウェアなの分からず，困っています．どなたかご教授お願いいたします．

###タスクが死ぬときの操作
アプリ自体は5つのマルチタスクで動いています．下記操作を実行すると，Excelが表示した時点でタスクバーに表示されていた5つのタスクアイコンが4つになります．Excelの表示方法は「ボタンをクリック」した時，「起動するExcelのパスを生成」して，Windows標準の「start 起動するExcelのパス」でExcelを表示しています．実機とレンタルPCのOSの設定は同じにしており，ソフト動作に必要なdllやbplはインストールしていることは確認しました．ですが，実機では下記操作を何度しても該当タスクが死なず，レンタルPCで下記操作を1度すると，Excelが表示した時点でタスクが死にます．Excelの表示は，開始日時から終了日時のあるデータを表示するものです(詳細は説明できません，申し訳ありません）．表示形式はマクロを使用しています．
0. ボタンをクリックする．
0. Excelが表示する．
0. タスクが死ぬ．

###試したこと
社内のソフトウェアおよびハードウェアの有識者に聞いたところ，「start」でExcelを起動しているから「ソフトウェアがノンブロッキング」で動作しているが，それは問題ないか？とアドバイスをいただきました．なので，Windows標準の「start」からC++BuilderのOLEでExcelの起動するように変更してもタスクが死んでしまいました．ハードウェアの要因として考えているのは，HDDとSSDの違いまたはOSビルドの違いです．Excelに表示するデータが多いとHDDとSSDでデータの読み取り時間に違いなどがあるのでしょうか？また，OSビルドが17134.81と17134.137と異なりますが，最新のOSが入っているレンタルPCにおいて，17134.81にない更新プログラムが悪さをしていたりするのでしょうか？
原因がPC(ハードウェア)のせいなのかソフトウェアなのかが分からないので，どなたかご教授お願いいたします．

###実機のスペック
メーカ：Lenovo ThinkPad
OS:Windows10 Pro(バージョン1803 OSビルド：17134.81→リリース日：2018/05/23)
プロセッサ：Intel(R) Core(TM) i7
実装メモリ(RAM)：16.0GB
システムの種類：64ビットオペレーティングシステム
Cドライブの容量：464GB
HDDの種類：HDD
MS Officeの種類：2016 Personal

###レンタルPCのスペック
メーカ：HP
OS:Windows10 Pro(バージョン1803 OSビルド：17134.137→リリース日：2018/06/26)
プロセッサ：Intel(R) Core(TM) i7
実装メモリ(RAM)：16.0GB
システムの種類：64ビットオペレーティングシステム
Cドライブの容量：237GB
HDDの種類：SSD
MS Officeの種類：2016 Home & Business

###開発PCのスペック
アプリの開発環境を下記に記載しておきます．
OS:Windows10 64bit
IDE:Embarcadero C++Builder 10.3 Professional 
MS Officeの種類：2016 Professional

特定の操作をするとタスクが死んでしまう

### 解決したいこと
　業務でOVHのため，既設装置(BCB5)を新しい言語(Embarcadero C++ Builder 10.2 Tokyo)で既設と同じ表示・動作になるように作り直しています(Win10化)。ソースは同じ警告を出すために，テスト的に作ったアプリです。
その中で，下記１～３と同じ警告が出ました。１～３の警告を削除したいです。警告をダブルクリックすると，Unit2.cppの「AnsiString str;」に移動します。Unit2.cppは，クラスではなく，共通関数です。なぜ，くらすでもないのに「コンストラクタが必要です」や「デストラクタが必要です」と警告が出るのでしょうか？
どなたかご教授お願いいたします。
1. 宣言にはグローバルコンストラクタが必要です
1. 宣言には終了時のデストラクタが必要です
1. 宣言にはグローバルデストラクタが必要です

### 開発環境
OS：Windows10 64bit
IDE：Embarcadero C++ Builder10.2 Tokyo

### ソース
Unit1.cpp
```C++
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#pragma argsused

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    showMessage();
}
//---------------------------------------------------------------------------
```
Unit1.h
```C++
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TEdit *Edit1;
	TButton *Button1;
	void __fastcall Button1Click(TObject *Sender);
private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
```
Unit2.cpp
```C++
//---------------------------------------------------------------------------

#pragma hdrstop
#pragma argsused

#include "Unit2.h"
#include "Unit1.h"

AnsiString str;
//---------------------------------------------------------------------------
void __fastcall showMessage(void)
{
	str = Form1->Edit1->Text;
    ShowMessage(str);
}
//---------------------------------------------------------------------------
#pragma package(smart_init)
```
Unit2.h
```C++
//---------------------------------------------------------------------------

#ifndef Unit2H
#define Unit2H

#include <vcl.h>
//---------------------------------------------------------------------------
void __fastcall showMessage(void);

extern AnsiString str;
//---------------------------------------------------------------------------
#endif
```

「グローバルコンストラクタが必要です」や「グローバルデストラクタが必要です」の警告削除方法を教えてください。

###実現したいこと
開発PCと実機PCの画面解像度が異なってもビジュアルコントロールの位置やサイズを調整しないようにしたい。
開発PCの画面解像度：1920×1080(ずっと固定したい)
実機PCの画面解像度：1920×1080や1366×768，1024×768など

###問題点
従来は，アプリを投入する実機PCの画面解像度の種類をメーカなどに確認後，実機PCと開発PCで共通の画面解像度があればその中で最も高解像度の画面解像度にする方法をとっていました。ですがそれだと，メーカに問い合わせたりして，時間がかかるため，先行でプログラムを開発していて後で画面解像度が変わったりすると，アプリのビジュアルコントロールの位置やサイズを調整をするコストが発生しています。

###困っていること
[iOSの画面比率、解像度について](https://teratail.com/questions/137329)のように，アプリの処理で実機PCの画面解像度を意識しないようにする方法(全解像度対応方法)はあるのでしょうか？
EmbarcaderoのHPを調べて試したことを「試したこと」に記載します。
「質問事項」
１．[フォームとコントロールを動的にサイズ変更するときの考慮事項](http://docwiki.embarcadero.com/RADStudio/Rio/ja/フォームとコントロールを動的にサイズ変更するときの考慮事項)の1番目に，「定数を用いて，開発用コンピュータの画面解像度の１つの次元（高さまたは幅）をピクセル単位で指定します。TScreen.HeightプロパティまたはTScreen.Widthプロパティを用いて，実行時にユーザーのコンピューターの同じ次元のサイズを取得します。開発用コンピュータの値をユーザーのコンピュータの除算して，2代のコンピュータの画面解像度の差分比率を算出します。」とあります。
また，4番目に，「ユーザーのコンピュータよりも高い画面解像度に構成されたコンピュータ上でアプリケーションを設計した場合は，ビジュアルコントロールのサイズ変更時にフォントサイズも縮小されます。設計時のフォントサイズが小さすぎると，実行時にサイズ変更したフォントが読めなくなる場合がります。たとえば，フォームのデフォルトフォントサイズは8です。開発用コンピュータの画面海王度が1024×768で，ユーザーのコンピュータが640×480の場合，ビジュアルコントロールのサイズは係数0.625(640/1024=0.625)をかけて縮小されます。元のフォントサイズ8は5(8×0.625=5)になります。アプリケーション内のテキストはフォントサイズが小さく表示されつぶれて読めなくなります。」と記載があります。
上記の記載に関して
１．１．差分比率の算出方法は，「開発PCの画面解像度を実機PCの画面解像度で除算するのか？」それとも「実機PCの画面解像度を開発PCの画面解像度で除算するのか？」が分からなくて困っています。1番目だと，前者と記載がありますし，4番目だと後者で計算しています。
１．２．1番目に「定数を用いて，開発用コンピュータの画面解像度の１つの次元（高さまたは幅）をピクセル単位で指定します。」とありますが，高さまたは横の差分比率が異なった場合，どちらを使うべきかわからなくて困っています。図２のように，開発PCは1920×1080で，実機PCは1024×768の場合，横幅の差分比率が「約0.53」，縦幅の差分比率が「約0.71」でどちらを使えばよいのでしょうか？

２．図１のボタンのフォントのデフォルトサイズは8です。縦幅の差分比率である1をボタン1のフォントサイズにかけても変わらないはずなのになぜ，変わるのでしょうか？ボタン2のフォントサイズと変わっているように見えます(わざとボタン2のフォントサイズは変更していません)

###試したこと
[画面解像度と色深度](http://docwiki.embarcadero.com/RADStudio/Rio/ja/画面解像度と色深度)の2番目を試してみようと思い，[フォームとコントロールを動的にサイズ変更するときの考慮事項](http://docwiki.embarcadero.com/RADStudio/Rio/ja/フォームとコントロールを動的にサイズ変更するときの考慮事項)を参考にし，実行時に「開発PCの解像度と実機PCの解像度が比例するように，フォームと全てのビジュアルコントロールのサイズを画面解像度の違いの比率に合わせて調整する」手法を試してみました。

![イメージ説明](6ccca603c148bd2b56cdd4be7eeae5ba.jpeg)
図1　実機の解像度　1920×1080

![イメージ説明](daaa365cfbd1cda2a5a4a3ea2218a25f.jpeg)
図2　実機の解像度　1366×768

![イメージ説明](c64da691fa306f519f600c1807ff570c.jpeg)
図3　実機の解像度　1024×768

###ソースコード
Project1.cpp
```C++
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
	try
	{
		Application->Initialize();
		Application->MainFormOnTaskBar = true;
		Application->CreateForm(__classid(TForm1), &Form1);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	catch (...)
	{
		try
		{
			throw Exception("");
		}
		catch (Exception &exception)
		{
			Application->ShowException(&exception);
		}
	}
	return 0;
}
//---------------------------------------------------------------------------
```

Unit1.cpp
```C++
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	//  実機の縦幅画面解像度
	GA_JikkiWidth = Screen->Width;
	//  実機の横幅画面解像度
	GA_JikkiHeight = Screen->Height;
	//  横幅の差分比率
	GA_WidthRatio = (GA_JikkiWidth / DEVELOPWIDTH);
	//  縦幅の差分比率
	GA_HeightRatio = (GA_JikkiHeight / DEVELOPHEIGHT);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	Form1->Width *= GA_WidthRatio;
	Form1->Height *= GA_HeightRatio;

	Button1->Left *= GA_WidthRatio;
	Button1->Top *= GA_HeightRatio;
	Button1->Width *= GA_WidthRatio;
	Button1->Height *= GA_HeightRatio;
	Button1->Font->Size *= GA_HeightRatio;

	Button2->Left *= GA_WidthRatio;
    Button2->Top *= GA_HeightRatio;
	Button2->Width *= GA_WidthRatio;
	Button2->Height *= GA_HeightRatio;
//    Button2->Font->Size *= GA_WidthRatio;


	Label1->Caption = "開発PCの画面解像度(Width):" + FloatToStr(DEVELOPWIDTH);
	Label2->Caption = "開発PCの画面解像度(Height):" + FloatToStr(DEVELOPHEIGHT);
	Label3->Caption = "実機PCの画面解像度(Width):" + FloatToStr(GA_JikkiWidth);
	Label4->Caption = "実機PCの画面解像度(Height):" + FloatToStr(GA_JikkiHeight);
	Label5->Caption = "横幅の差分比率:" + FloatToStr(GA_JikkiWidth) + " / " +
						FloatToStr(DEVELOPWIDTH) + " = " + FloatToStr(GA_WidthRatio);
	Label6->Caption = "縦幅の差分比率:" + FloatToStr(GA_JikkiHeight) + " / " +
						FloatToStr(DEVELOPHEIGHT) + " = " + FloatToStr(GA_HeightRatio);
}
//---------------------------------------------------------------------------
```

Unit1.h
```C++
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>

#define DEVELOPWIDTH        1920                //  開発PCの横幅画面解像度
#define DEVELOPHEIGHT       1080                //  開発PCの縦幅画面解像度
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TLabel *Label1;
	TLabel *Label2;
	TLabel *Label3;
	TLabel *Label4;
	TLabel *Label5;
	TLabel *Label6;
	TButton *Button1;
	TButton *Button2;
	void __fastcall FormShow(TObject *Sender);
private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);

	float GA_JikkiWidth;                          //  実機PCの横幅画面解像度
	float GA_JikkiHeight;                         //  実機PCの縦幅画面解像度
	float GA_WidthRatio;                          //  横幅の差分比率
    float GA_HeightRatio;                         //  縦幅の差分比率
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
```

###開発環境
OS:Windows10 Pro 64bit
IDE:Embarcadero10.3.3

VCL(Visual Component Library)