- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
if o is TSpellChecker then
begin
TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);
TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);
end else
if o is Tform then
begin
TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
end else
if o is TComboBox then
begin
//TComboBox(o).Caption:=ml(TMenuItem(o).Caption,form.Name);
TComboBox(o).Hint := ml(TComboBox(o).Hint, form.Name);
end else
if o is TMenuItem then
begin
TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
end else
if (o is TTBXButton) then
begin
TTBXButton(o).Caption := ml(TTBXButton(o).Caption, form.Name);
TTBXButton(o).Hint := ml(TTBXButton(o).Hint, form.Name);
end else
if (o is TTBXLink) then
begin
TTBXLink(o).Caption := ml(TTBXLink(o).Caption, form.Name);
TTBXLink(o).Hint := ml(TTBXLink(o).Hint, form.Name);
end else
if (o is TRzGroup) then
begin
TRzGroupBox(o).Caption := ml(TRzGroup(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzGroup(o).Hint, form.Name);
end else
if (o is TRzPanel) then
begin
TRzGroupBox(o).Caption := ml(TRzPanel(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzPanel(o).Hint, form.Name);
end else
if (o is TRzButton) then
begin
TRzButton(o).Caption := ml(TRzButton(o).Caption, form.Name);
TRzButton(o).Hint := ml(TRzButton(o).Hint, form.Name);
end else
if (o is TRzTabControl) then
begin
TRzTabControl(o).Hint := ml(TRzTabControl(o).Hint, form.Name);
for k := 0 to TRzTabControl(o).Tabs.Count - 1 do
begin
TRzTabControl(o).Tabs.Items[k].Caption := ml(TRzTabControl(o).Tabs.Items[k].Caption, form.Name);
TRzTabControl(o).Tabs.Items[k].Hint := ml(TRzTabControl(o).Tabs.Items[k].Hint, form.Name);
end;
end else
if (o is TRzTabSheet) then
begin
TRzTabSheet(o).Caption := ml(TRzTabSheet(o).Caption, form.Name);
end else
if (o is TRzGroupBox) then
begin
TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
end else
if (o is TRzGroupItems) then
begin
TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
end else
if (o is TToolButton) then
begin
TToolButton(o).Caption := ml(TToolButton(o).Caption, form.Name);
TToolButton(o).Hint := ml(TToolButton(o).Hint, form.Name);
end else
if o is TButton then
begin
TButton(o).Caption := ml(TButton(o).Caption, form.Name);
TButton(o).Hint := ml(TButton(o).Hint, form.Name);
end else
if o is TBitBtn then
begin
TBitBtn(o).Caption := ml(TBitBtn(o).Caption, form.Name);
TBitBtn(o).Hint := ml(TBitBtn(o).Hint, form.Name);
end else
if o is TSpeedButton then
begin
TSpeedButton(o).Caption := ml(TSpeedButton(o).Caption, form.Name);
TSpeedButton(o).Hint := ml(TSpeedButton(o).Hint, form.Name);
end else
if o is TRzToolButton then
begin
TRzToolButton(o).Caption := ml(TRzToolButton(o).Caption, form.Name);
TRzToolButton(o).Hint := ml(TRzToolButton(o).Hint, form.Name);
end else
if o is TRadioButton then
begin
TRadioButton(o).Caption := ml(TRadioButton(o).Caption, form.Name);
TRadioButton(o).Hint := ml(TRadioButton(o).Hint, form.Name);
end else
guest 23.07.2009 04:01 # −1
case o of не объясняли?) ctrl+v точнее работает?)
guest 10.08.2009 21:02 # +1
labutinpa 14.08.2009 01:19 # +1
Hint, навскидку, у TWinControl есть
guest 23.07.2009 09:34 # 0
guest 24.07.2009 09:17 # −1
Это SiteEdit
guest 11.08.2009 11:43 # 0
Валяюсь под столом. Когда я только учился дельфям, то писал длинные условия и еще баще :) Даже не припомню на сколько строк... 200 наверно :)
guest 21.08.2009 12:56 # 0
if o is TSpellChecker then
begin
TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);
TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);
Exit;
end;
И таких вот блоков сделать столько, сколько надо. Имхо намного читабельнее. Хотя наверняка есть куда более красивое решение:)
guest 31.08.2009 22:54 # +1
guest 04.09.2009 21:09 # 0
guest 07.09.2009 15:57 # +1
7-ой пост - говнокодер еще говонокодернее первого.
2 и 3 пост респект.
guest 03.02.2010 20:14 # 0
guest 23.03.2012 12:57 # 0