Feb 19

Quick Report in 1920*1080 resolution plus 125% When the above display setting environment is,The proportion of "Preview Print" will be incorrect.(too big or too small),But the actual printing is normal.,If you want to correct,It is necessary to modify the qrprntr.pas file of Quick Report in the compilation environment,There are two ways to correct it。

Continue browsing »

Dec 31

My computer has an external NTFS hard drive.,After recently booting,Click on this drive in Thunar,Will all fail to mount,error message “error mounting wrong fs type bad option bad superblock…”。

Continue browsing »

Aug 2

[VLAN setting]
◎「VLAN」→「802.1Q」→「Advanced」→「VLAN Configuration」,Select "Enable"。
◎ Add VLAN ID sequentially,As:53、172。

Continue browsing »

Jan 2

when installing the program,"No more space left on device" appears,Check with df -h,is /tmp full。

My /tmp dependent partition,is with / same magnetic region,and / there is room,So you can temporarily increase the space of /tmp by remounting the command。

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

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

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

 

To empty /tmp,The following commands can be executed:

sudo rm -r /tmp/*

 

【參考連結】

Sep 1

When installing a network printer,sometimes after two clicks,An error of 0x00000BCB occurred,Usually occurs in barcode labelers and dot matrix printers,The mainframe never happened,Usually reinstalling the driver on Windows Server solves the problem,But after a while,will happen again。
Continue browsing »

Aug 25
<%# 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.'

【參考連結】

Aug 22
Settings page object setpoint position
"shortcut" the shortcut shortcut file
"compatibility" User 碼 machine(Note 1.)
"Compatibility for all users" All Users 碼 machine(Note 2.)

Note 1.
電腦HKEY_CURRENT_USERSOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers
Note 2.
電腦HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers

PS. The key is "string value",value is”~ HUMAN ADMIN”。

Jul 11
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;

【參考連結】

Jul 11

Delphi menus seem to always have fonts that go back to default (8, Tahoma) The problem,Questions from abroad,but no solution。The temporary solution I can think of at the moment is to set a function key (Can be set as hotkey),Let user encounter small font size,Reset font size by yourself。(During testing, the menu font can be changed back to the default value by changing the Windows display size percentage)

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

【參考連結】

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

【參考連結】