if (Key = VK_UP) and (ssAlt in Shift) then // font size up by 1
begin
Key:= 0; // uses WORD instead of CHAR... ie. not #0
if PageMemo.SelLength>0
then PageMemo.Perform(EM_SETFONTSIZE, 1, 0)
else begin
x:= cboFontSize.ItemIndex;
if x<16
then begin
cboFontSize.ItemIndex:= x+1;
cboFontSizeSelect(Self);
end;
end;
end;
if (Key = VK_DOWN) and (ssAlt in Shift) then // font size down by 1
begin
Key:= 0; // uses WORD instead of CHAR... ie. not #0
if PageMemo.SelLength>0
then PageMemo.Perform(EM_SETFONTSIZE, -1, 0)
else begin
x:= cboFontSize.ItemIndex;
if x>0
then begin
cboFontSize.ItemIndex:= x-1;
cboFontSizeSelect(Self);
end;
end;
end;