ピンポ〜ン、明けおめ…(MonthCalendarExコンポ) (ID:33009)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

桜  ：「カイトに言われた通りの大きさと色でマークの絵を描いてきたわヨ」
海都：「そう？ こっちの準備もＯＫだから、さっそく組み込もう」

http://kaito.es.land.to/img/_Demo9.png

桜  ：「ねぇ、この画像をどう使うの？」
海都：「この画像を読み込んだImageListを、MarkImagesプロパティにセットすると…こうなるんだ」

http://kaito.es.land.to/img/_Demo10.png

桜  ：「あ、マークが変った、こんなふうに使うのぉ…、マークの位置も変えられるのね？」
海都：「うん、もしコードでマークを変えたい場合は、こんなカンジで…」

{$DEFINE AddMASK}
var
  aImageList: TImageList;

procedure TForm1.FormCreate(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
   bmp.LoadFromFile('Mark27x27_1.bmp');
   aImageList := TImageList.Create(Self);
   aImageList.Height := bmp.Height;
   aImageList.Width := bmp.Width div 14;   // bmpは 14個のマーク入り
{$IFDEF AddMASK}
   aImageList.Masked := True;
   aImageList.AddMasked(bmp, clBlack);     // 透過色は黒
{$ELSE}
   aImageList.Masked := False;
   aImageList.Add(bmp, nil);
{$ENDIF}
  finally
   bmp.Free;
  end;

with MonthCalendarEx1 do begin
   AutoLoadSaveData := True;
   Date := Now;
   MarkImages := aImageList;
   MarkOffset := 0;              // ImageListの0〜3のIndexの画像(4個)を使う
   MarkPos := dpVTopHRight;      // マーク表示位置は右上

ExtrDays.Add(2, 04, dsBirthday or dsDate, '今日はサクラの誕生日');
   ExtrDays.Add(2, 27, dsBirthday or dsEx10, '今日も誰かの誕生日');
  end;
  .........
end;

桜  ：「アタシの誕生日に苺のマークが付いてるけど、ここだけマークが2種類あるよネ」
海都：「これはTSさんが追加してくれたイベントを使って、苺のマークを表示してるんだよ」

procedure TForm1.MonthCalendarEx1BeforeDrawDay(Sender: TObject;
  Canvas: TCanvas; R: TRect; AYear, AMonth, ADay: Word;
  DayState: Cardinal);
var
  X, Y: Integer;
begin
  if (DayState and dsBirthday) <> 0 then begin         // DayStateが誕生日(dsBirthday)の日
   MonthCalendarEx1.CalcMarkPos(dpVHCenter, R, X, Y);  // マーク位置は中央
   aImageList.Draw(Canvas, X, Y, 13);                  // 苺マーク(Index=13)表示
  end;
end;

桜  ：「TSさん？」
海都：「そう、TSさんがメールで、改良したMonthCalendarExコンポのソースを送ってくれて」
桜  ：「そうなの…、それで、TSさんの改良って、それだけ？ 他にもあるの？」
海都：「他には、デザイン時にマウスのドラッグでコンポのサイズを変更出来るようにとかも…」
桜  ：「あ、そういえば、今まではマウスでドラッグしてもコンポのサイズが変らなかったよね？」
海都：「うん、やっぱりマウスドラッグでサイズ調整できた方が便利だね」
桜  ：「それはそうよ」
海都：「ただ、コンポを貼り付けた直後だけは、DragResizingプロパティをTrueに変更する必要がある」
桜  ：「えっ？ 最初からTrueにしておけばイイと思うけど、ダメなの？」
海都：「デフォルトではFalseにしておかないと、Delphiバージョンによっては、貼り付け時にコンポのサイズが異常に小さくなってしまうから」
桜  ：「ふ〜ん、そんなコトもあるんだ…」
海都：「…このカワイイ赤ちゃんの写真、眺めてるだけでも癒されるよ」
桜  ：「先週ね、友達の赤ちゃんの写真を背景にして、このカレンダーを印刷して、その友達にプレゼントしたら、とっても喜んでくれたの」
海都：「そう…、オレもサクラの写真を背景にしたカレンダーを印刷して欲しいな、これくらいの大きさで」
桜  ：「じゃぁ、それはバレンタインの日にチョコと一緒にプレゼントするネ」
海都：「あ、そうか、もうすぐバレンタインなのか」
桜  ：「女の子にとっては、すごく大切な日だもん」
海都：「だけど、安い義理チョコで、高いお返しを期待する子もいるんじゃないの？」
桜  ：「そんなぁ…、いるかもしれないけど、でも、アタシは違うわよ」
海都：「もちろん、それは分かってるよ^^;、あれ？ 気分悪くした？ ごめん^^;;」

http://kaito.es.land.to/lime/lime.cgi?MonthCalendarEx01

←解決時は質問者本人がここをチェックしてください。

戻る