名前 題名 ▼ Mr.XRAYさん > > これは考えさせて下さい．というのは，わさわざ今のスタイルにしています > > ので． > > もし，コードを修正して使用するのであれば，TCustomControから作成していま > すので，元々フラットです． > > procedure TplDateEditLabel.Paint; > > で今のスタイルにしていますので，このPaintメソッドの中の > (1)...の部分を削除すればフラットに戻ります． > > {$IFDEF VER150} > if ThemeServices.ThemesEnabled then begin > AEge :=BDR_RAISEDOUTER; > AGrfFlag:=BF_FLAT or BF_RECT; > end else begin > AEge :=EDGE_SUNKEN; (1) > AGrfFlag:=BF_RECT; (2) > end; > {$ELSE} > AEge :=EDGE_SUNKEN; (3) > AGrfFlag:=BF_RECT; (4) > {$ENDIF} > > 定数値については，例えば以下を参考にして下さい． > > http://www.activebasic.com/help_center/Pages/API/Window/PaintingAndDrawing/DrawEdge.htm > > 以上，よろしくお願いします． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link