掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スクールボックスを印刷するには？ (ID：45893)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
IMAGEに描画だけど var I,H,W: Integer; X,Y: Integer; WC: TWinControl; begin //枠 (* W := 0; H := 0; for I:=0 to Form3.ComponentCount - 1 do begin if (Form3.Components[I]) is TWinControl then begin WC := TWinControl(Form3.Components[I]); if (WC.Parent = ScrollBox1) then begin if ( W < WC.Left + WC.Width ) then W := WC.Left + WC.Width ; if ( H < WC.Top + WC.Height) then H := WC.Top + WC.Height; end; end; end; Image1.Canvas.Brush.Color := Form3.Color; Image1.Canvas.Pen.Color := clGray; Image1.Canvas.Rectangle(0,0,W+1,H+1); *) for I:=0 to Form3.ComponentCount - 1 do begin if (Form3.Components[I]) is TWinControl then begin WC := TWinControl(Form3.Components[I]); if (WC.Parent = ScrollBox1) then begin X := WC.Left; Y := WC.Top; WC.PaintTo(Image1.Canvas,X,Y); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.