くだすれDelphi(超初心者用)その51

くだすれDelphi(超初心者用)その51 at TECH

639:デフォルトの名無しさん
10/05/11 14:28:43
Delphi7だけどバグの修正これでいいかな
Quality　Centralの33496
URLﾘﾝｸ(qc.embarcadero.com)

procedure　TMenuItem.DoDrawText(ACanvas:　TCanvas;　const　ACaption:　string;
.

　　with　ACanvas　do
　　begin
　　　　if　Text　=　cLineCaption　then//追加2010.05.11　QC33496
　　　　　　exit;//追加2010.05.11　QC33496
　　　　if　IsLine　then
　　　　begin
　　　　　　　if　Flags　and　DT_CALCRECT　=　0　then
　　　　　　begin
　　　　　　　　R　:=　Rect;
　　　　　　　　Inc(R.Top,　4);
　　　　　　　　DrawEdge(Handle,　R,　EDGE_ETCHED,　BF_TOP);
　　　　　　end;
　　　　end

２箇所追加してみたけど（新しいの2010も治っていないけど）

次ページ

続きを表示

1を表示