빠른 보고 1920*1080 해상도 플러스 125% 위의 디스플레이 설정 환경이,"미리보기 인쇄"의 비율이 올바르지 않습니다.(너무 크거나 너무 작음),그러나 실제 인쇄는 정상입니다.,교정하고 싶다면,컴파일 환경에서 Quick Report의 qrprntr.pas 파일을 수정해야 합니다.,수정하는 방법은 2가지가 있습니다。
![](https://it-help.tips/wp/wp-content/uploads/2024/02/20240219a01.png)
빠른 보고 1920*1080 해상도 플러스 125% 위의 디스플레이 설정 환경이,"미리보기 인쇄"의 비율이 올바르지 않습니다.(너무 크거나 너무 작음),그러나 실제 인쇄는 정상입니다.,교정하고 싶다면,컴파일 환경에서 Quick Report의 qrprntr.pas 파일을 수정해야 합니다.,수정하는 방법은 2가지가 있습니다。
unit unit1; interface uses Windows, Messages.... type TFormName = (Casefm1, Casefm2, Casefm3); function xxx(): Boolean; var StrFormName: String; CaseFormName: TFormName; begin StrFormName := 'Case' + vFormName; // 將 FormName(物件) 與 TFormName(值) 做區隔。 // (vFormName為帶有各FormName的字串變數) CaseFormName := TFormName(GetEnumValue(TypeInfo(TFormName), StrFormName)); case CaseFormName of Casefm1: begin .............. end; Casefm2: begin .............. end; Casefm3: begin ............... end;
【參考連結】
Delphi 메뉴에는 항상 기본값으로 돌아가는 글꼴이 있는 것 같습니다. (8, 타호마) 문제,해외에서 온 질문,하지만 해결책이 없다。현재 생각할 수 있는 임시 해결책은 기능 키를 설정하는 것입니다. (단축키로 설정할 수 있습니다.),사용자가 작은 글꼴 크기를 접하게 하십시오.,스스로 글꼴 크기 재설정。(테스트하는 동안 Windows 디스플레이 크기 백분율을 변경하여 메뉴 글꼴을 다시 기본값으로 변경할 수 있습니다.)
procedure Tmainform.N93Click(Sender: TObject); begin Screen.MenuFont.Size := 12; xxxxxx.BringToFront; // 改變畫面焦點,以刷新選單畫面。 end;
【參考連結】
procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean); begin if (Msg.CharCode = 116) and (HiWord(GetKeyState(VK_CONTROL)) = 1) then begin ...... end end;
【參考連結】
var vTime, vTime1, vTime2: double; begin vTime1 := GetTickCount(); vTime2 := GetTickCount(); vTime := (vTime2 - vTime1) / 1000; Showmessage(floatToStr(vTime) + 's'); end;
【參考連結】
두 주 회사 네트워크 아키텍처의 주요 수리하기 전에,바쁜 꿀벌,당신은 프린트 서버의 IP를 수정하는 경우,이 매우 기계가 비뚤어진,첫째 날은 변화를 시작하자,나중에, 더 나은 변경 한 후,상태에서 장시간 사용되기,그는 깰 수있을,일 시도,마지막으로 포기,나는 작은 프로그램을 움켜,放在Server讓程式每隔30秒就對print server來ping一下。