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

名前

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

本文 使っているとどうしてもやりたくなったので DayPosition:byte と OnAfterDrawDay (Sender:TObject;Canvas,R,AYear,AMonth,ADay,DoMark); を追加してみました、とりあえず下記の変更で動作してます。 >日付の文字位置の指定(大きくしたとき左上とかにしたい) procedure TMonthCalendarEx.DrawDayText(R: TRect; const s: string); var DT1:Cardinal; begin Canvas.Brush.Style := bsClear; //文字を指定の位置にしたい case FDayPosition of 1:DT1:=DT_SINGLELINE + DT_TOP + DT_LEFT; 2:DT1:=DT_SINGLELINE + DT_TOP + DT_CENTER; 3:DT1:=DT_SINGLELINE + DT_TOP + DT_RIGHT; else DT1:=DT_SINGLELINE + DT_VCENTER + DT_CENTER; end; DrawText(Canvas.Handle, PChar(s), Length(s), R, DT1); end; >描画時に自前でデータ部等を描画したい。 DrawDayText(R, IntToStr(ADay)); //使用プログラムでの描画用 DoOnAfterDrawDay(Canvas,R,AYear,AMonth,ADay,DoMark); プログラムが読みやすいので私でも追加できました、感謝します。