フォームについて

たこ 2008-01-26 23:54:20 No: 29520 IP: 192.*.*.*

フォーム自体を反転させるって可能なんですか?

フォームにはパネルが五つくらいランダムに配置されている状態なのですが

わかるかたがいらっしゃいましたら返答お願いします

たこ 2008-01-27 00:13:15 No: 29521 IP: 192.*.*.*

補足：フォームの横軸を反転です

みなさんよろしくお願いします

KHE00221 2008-01-27 00:24:56 No: 29522 IP: 192.*.*.*

【意味不明】

フォーム自体を反転って？

フォームに乗っているコンポーネントの位置を横軸に反転させる事は
可能だけどね（座標を入れ替えるだけ）

アイコンを右に表示し、ボタンを左に表示させたような状態にしたいのか？

表示も反転？文字読めないぞ？

前に質問したのと同一人物じゃないのか？

編集削除

たこ 2008-01-27 09:41:02 No: 29523 IP: 192.*.*.*

■  ■  ■
  ■  ■

フォーム上が以上の状態であり

  ■  ■
■  ■  ■

にしたいということなのですが。。。

文字が読めない状態でもいいんで＾＾

わかりずらくてすいません

編集削除

質問下手だね 2008-01-27 09:52:09 No: 29524 IP: 192.*.*.*

「Delphi初心者」「がけっぷち」「たこ」は同一質問者に見えるけど...
前は回転で今度は反転？
まったく質問が下手だね。もっと他人が理解できるような詳しい説明をしようとは思わないのかな？

編集削除

たこ 2008-01-27 10:01:07 No: 29525 IP: 192.*.*.*

すいません．．．

編集削除

KHE00221 2008-01-27 10:55:35 No: 29526 IP: 192.*.*.*

こうすれば一応表示上だけは反転するけどね・・・・

procedure TForm1.Button1Click(Sender: TObject);
var
    DC : HDC;
    Canvas : TCanvas;
begin
    DC := GetWindowDC(Form1.Handle);
    Canvas := TCanvas.Create;
    Canvas.Handle := DC;
    Canvas.CopyRect(Rect(0,0,Width,Height),Canvas,Rect(0,Height-1,Width,-1));
    ReleaseDC(0,DC);
end;

編集削除

KHE00221 2008-01-27 10:56:04 No: 29527 IP: 192.*.*.*

Canvas.Free わすれ

編集削除

Fusa 2008-01-28 10:30:09 No: 29528 IP: 192.*.*.*

こんな感じかな。

function PositionUpSizeDownChange(Form: TForm; R: TRect): TRect;
begin
  Result := R;
  Result.Bottom := (Form.ClientHeight) - R.Top;
  Result.Top := Result.Bottom - (R.Bottom - R.Top);
end;

procedure TForm11.Panel1Click(Sender: TObject);
begin
  Panel1.BoundsRect := PositionUpSizeDownChange(Self, Panel1.BoundsRect);
end;

procedure TForm11.Panel2Click(Sender: TObject);
begin
  Panel2.BoundsRect := PositionUpSizeDownChange(Self, Panel2.BoundsRect);
end;

procedure TForm11.Panel3Click(Sender: TObject);
begin
  Panel3.BoundsRect := PositionUpSizeDownChange(Self, Panel3.BoundsRect);
end;

何がしたいかわからないのに
質問に答えるのって、非常に難しい、
答える方が嫌になりかねないですね。

編集削除