如何自動調整Tstatusbar的位置及大小 |
|
缺席
|
|
kenbcb
中階會員   發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
|
|
李國維
高階會員 發表：42 回覆：287 積分：235 註冊：2003-02-07 發送簡訊給我 |
|
|
kenbcb
中階會員 發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
|
|
taishyang
站務副站長  發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
kenbcb
中階會員 發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
kenbcb您好:
不曉得您之前有沒有[搜尋]並[測試]版上討論的文章
我以[解析度]為關鍵字搜尋了一下發現有很多相關文章
http://delphi.ktop.com.tw/topic.php?topic_id=18513
http://delphi.ktop.com.tw/topic.php?topic_id=20200
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=17927 順心
|
|
kenbcb
中階會員 發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
我在StatusBar中有分成二個panel,在第一個panel的寬度為900,在第二個panel有文字"online status"(畫面在1024*768設計的),但在800*600無法按比例縮放,會使畫面出現捲軸 ~請各位幫幫忙,一直找不到原因
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ScaleBy(Screen->Width,1024);
Echo_Message("Welcome");
} void __fastcall TForm1::Echo_Message(const AnsiString echo_str)
{
//the function process show message by statusbar StatusBar1->Panels->Items[0]->Text = echo_str; TShape *Shape1 = new TShape(this);
Shape1->Shape = stCircle;
Shape1->Width = 18;
Shape1->Height = 18;
Shape1->Top = 5;
Shape1->Left = StatusBar1->Panels->Items[0]->Width 90;
Shape1->Parent = StatusBar1; //ON/Off line = Green/Red Color
if(ClientSocket1->Active)
{
Shape1->Brush->Color = clGreen;
Shape1->Pen->Color = clGreen;
}
else
{
Shape1->Brush->Color = clRed;
Shape1->Pen->Color = clRed;
}
}
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
kenbcb
中階會員 發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
哇也不行~會使得button & tstringgrid...等元件都變形~ 有下列程式只有statusbar變形 ~請問用動態產生statusbar並有二個panels,要如何做,可否解決此問題呢??
void __fastcall TfrmAdmin::Echo_Message(const AnsiString echo_str)
{
//the function process show message by statusbar float Scale_Width,Scale_Height;
Scale_Width = Screen->Width/1024.00;
Scale_Height = Screen->Height/768.00; StatusBar1->Panels->Items[0]->Text = echo_str; TShape *Shape1 = new TShape(this);
Shape1->Shape = stCircle;
Shape1->Width = 18*Scale_Width;
Shape1->Height = 18*Scale_Height;
Shape1->Top = 5*Scale_Width;
Shape1->Left = StatusBar1->Panels->Items[0]->Width 90*Scale_Width;
Shape1->Parent = StatusBar1; //ON/Off line = Green/Red Color
if(ClientSocket1->Active)
{
Shape1->Brush->Color = clGreen;
Shape1->Pen->Color = clGreen;
}
else
{
Shape1->Brush->Color = clRed;
Shape1->Pen->Color = clRed;
}
} void __fastcall TfrmAdmin::FormCreate(TObject *Sender)
{
//the function process initial value & form/component size RECT rt;
float Scale_Width,Scale_Height;
Scale_Width = Screen->Width/1024.00;
Scale_Height = Screen->Height/768.00; SystemParametersInfo(SPI_GETWORKAREA,0,&rt,0);
frmAdmin->Left = rt.left;
frmAdmin->Top = rt.top;
frmAdmin->Width = rt.right;
frmAdmin->Height = rt.bottom;
sgrdPMap->DefaultColWidth *= Scale_Width;
sgrdPMap->DefaultRowHeight *= Scale_Height;
sgrdGMap->DefaultColWidth *= Scale_Width;
sgrdGMap->DefaultRowHeight *= Scale_Height;
StatusBar1->Panels->Items[0]->Width *= Scale_Width;
StatusBar1->Panels->Items[1]->Width *= Scale_Width;
ScaleBy(Screen->Width,1024); PageControl1->ActivePageIndex = 0;
Echo_Message("Welcome");
}
|
發表時間：2003-09-01 18:53:52
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-05-16 7:20:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |