Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed font bug

Browse Source
This commit is contained in:
Christian Hammacher 2005-09-11 14:32:16 +00:00
parent 88b833f879
commit 7225aa3cc0
5 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
editor/studio/AMXX_Studio.dof
View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1 MajorVer=1
MinorVer=2 MinorVer=2
Release=0 Release=0
Build=2 Build=3
Debug=0 Debug=0
PreRelease=0 PreRelease=0
Special=0 Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=AMX Mod X Dev Team CompanyName=AMX Mod X Dev Team
FileDescription= FileDescription=
FileVersion=1.2.0.2 FileVersion=1.2.0.3
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=

BIN
editor/studio/AMXX_Studio.exe
View File

Binary file not shown.

BIN
editor/studio/AMXX_Studio.res
View File

Binary file not shown.

2
editor/studio/UnitfrmMain.pas
View File

@ -1607,7 +1607,7 @@ begin
end; end;
end; end;
eSavedFiles.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg'); eSavedFiles.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg');
eSavedFiles.Destroy; eSavedFiles.Free;
end; end;
procedure TfrmMain.trvExplorerDblClick(Sender: TObject); procedure TfrmMain.trvExplorerDblClick(Sender: TObject);

14
editor/studio/UnitfrmSettings.pas
View File

@ -189,7 +189,6 @@ type
procedure txtFontSizeChange(Sender: TObject); procedure txtFontSizeChange(Sender: TObject);
procedure cboLanguageChange(Sender: TObject); procedure cboLanguageChange(Sender: TObject);
procedure chkUseDefaultFontClick(Sender: TObject); procedure chkUseDefaultFontClick(Sender: TObject);
procedure cboFontChange(Sender: TObject);
procedure chkBoldClick(Sender: TObject); procedure chkBoldClick(Sender: TObject);
procedure chkItalicClick(Sender: TObject); procedure chkItalicClick(Sender: TObject);
procedure chkUnderlinedClick(Sender: TObject); procedure chkUnderlinedClick(Sender: TObject);
@ -243,6 +242,7 @@ type
procedure cmdResetShortcutsClick(Sender: TObject); procedure cmdResetShortcutsClick(Sender: TObject);
procedure txtShortcutKeyUp(Sender: TObject; var Key: Word; procedure txtShortcutKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
procedure cboFontChange(Sender: TObject);
public public
Foreground, Background: TColor; Foreground, Background: TColor;
CaretFore, CaretBack: TColor; CaretFore, CaretBack: TColor;
@ -372,12 +372,6 @@ begin
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Selected; TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Selected;
end; end;
procedure TfrmSettings.cboFontChange(Sender: TObject);
begin
if (not chkUseDefaultFont.Checked) then
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Selected;
end;
procedure TfrmSettings.chkBoldClick(Sender: TObject); procedure TfrmSettings.chkBoldClick(Sender: TObject);
begin begin
if chkBold.Checked then if chkBold.Checked then
@ -979,4 +973,10 @@ begin
end; end;
end; end;
procedure TfrmSettings.cboFontChange(Sender: TObject);
begin
if (not chkUseDefaultFont.Checked) then
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Text;
end;
end. end.