老森常譚 IT Help

　　Quick Report 在 1920*1080 解析度加上 125% 以上的顯示設定環境時，會發生「預覽列印」的比例不對(過大或過小)，但實際印出來是正常的情形，如果要修正，需要在編譯環境修正 Quick Report 的 qrprntr.pas 檔，有兩種修正方式。

繼續瀏覽 »

　　我的電腦固定有外接一顆 NTFS 的硬碟，最近開機後，在 Thunar 點擊這顆硬碟，都會掛載失敗，錯誤訊息時 “error mounting wrong fs type bad option bad superblock…”。

繼續瀏覽 »

【VLAN 設定】
◎「VLAN」→「802.1Q」→「Advanced」→「VLAN Configuration」，選擇「Enable」。
◎ 依序新增 VLAN ID，如：53、172。

繼續瀏覽 »

安裝程式時，出現「裝置上已無多餘空間」，用 df -h 查，是 /tmp 滿了。

我的 /tmp 非獨立磁區，是跟 / 同磁區，且 / 還有空間，所以可以透過重新 mount 的指令來暫時增加 /tmp 的空間。

df -h /tmp
#查詢 /tmp 佔用空間。

sudo mount -o remount,size=15G /tmp/
#將 /tmp 大小改成 15G。

df -h /tmp
#確認 /tmp 的佔用 % 是否改變。

若要清空 /tmp，可以執行以下指令：

sudo rm -r /tmp/*

【參考連結】

• How to increase the size of the temp folder on Linux
• 如何清理/tmp？ – Ubuntu问答

　　在安裝網路印表機時，有時會在點兩下後，出現 0x00000BCB 的錯誤，通常發生在條碼標籤機以及點陣印表機，大型事務機則沒發生過，通常重新安裝 Windows Server 上的驅動可以解決，但是隔一段時間後，就又會發生。
繼續瀏覽 »

<%# Eval("SDate", "{0:yyyy/MM/dd}") %>
// 0: 表示定義整個括號裡面的第 0 個變數要採用此日期格式。

// 以下為兩個變數的範例。
string s = String.Format("At {0}, the temperature is {1}°C.",
                         DateTime.Now, 20.4);
Console.WriteLine(s);
// Output similar to: 'At 4/10/2015 9:29:41 AM, the temperature is 20.4°C.'

【參考連結】

• asp.net – how to apply particular FORMAT of date by using eval? – Stack Overflow
• c# – What does the 0 in “{0:MM dd yyyy}” do? – Stack Overflow
• String.Format 方法 (System) | Microsoft Docs
• 自訂日期與時間格式字串 | Microsoft Docs
• 標準日期和時間格式字串 | Microsoft Docs

註1.
電腦\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers
註2.
電腦\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers

PS. 機碼為「字串值」，值為”~ RUNASADMIN”。

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;

【參考連結】

• case 判斷string的方法 | 三窟

Delphi 選單似乎一直都有字型會變回預設值 (8, Tahoma) 的問題，國外有人提問，但沒有解決方式。目前我能想到的暫時解法是設定一個功能鍵 (可設為熱鍵)，讓 user 遇到字型變小時，自行重置字型大小。(測試過程可透過變更 Windows 顯示大小百分比來讓選單字型變回預設值)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

【參考連結】

• Delphi VCL force menu repaint – Stack Overflow
• 久久來一次: Delphi MainMenu 字型放大及Menu Checked 提示圖示不見解決方法

procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116)  and (HiWord(GetKeyState(VK_CONTROL)) = 1)  then 
  begin
    ......
  end
end;

【參考連結】

• Catch SHIFT key during menu item selection? – Delphi Tips – CJC Delphi (Cool Delphi Tips)
• GetKeyState:GetKeyState ，該函式檢取指定虛擬鍵的 -百科知識中文網
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp区别_踏雪无痕的博客-CSDN博客_delphi onkeydown
• delphi key值表 – 台部落
• How to detect ctrl-t keypress in Delphi – Stack Overflow
• 鍵盤鍵碼值對照表