フォームについて

たこ 2008-01-27 08:54:20 No: 29520

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

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

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

たこ 2008-01-27 09:13:15 No: 29521

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

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

KHE00221 2008-01-27 09:24:56 No: 29522

【意味不明】

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

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

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

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

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

たこ 2008-01-27 18:41:02 No: 29523

■ ■ ■
■ ■

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

■ ■
■ ■ ■

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

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

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

質問下手だね 2008-01-27 18:52:09 No: 29524

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

たこ 2008-01-27 19:01:07 No: 29525

すいません．．．

KHE00221 2008-01-27 19:55:35 No: 29526

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

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 19:56:04 No: 29527

Canvas.Free わすれ

Fusa 2008-01-28 19:30:09 No: 29528

こんな感じかな。

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;

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