Minkovsky писал(а):
но этот с PAS_VERSION и только на KOL3.19Minkovsky, я Вам один умный вещь скажу...
Среди аторов последних версий KOL нашелся рационализатор, у которого руки не из того места растут. Если говорить мягко.
((можете им это сказать от моего имени))
В kol v3.19 паскаль версия не соответствует оригиналу (моему) ПО СЕМАНТИКЕ.
#pas
{$ELSE PAS_VERSION} // Pascal
procedure AlignChildrenProc(Sender: PObj);
function ToBeAlign( S: PControl ):Boolean;
begin
....................
end;
var fromSelf: Boolean;
S: PControl;
begin
if Sender = nil then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
S := Pointer( Sender );
fromSelf := oaFromSelf in S.fAligning;
Exclude( S.fAligning, oaFromSelf );
if ( (S.fParent = nil)
or {$IFDEF USE_FLAGS} (G3_IsForm in S.fFlagsG3)
{$ELSE} (S.fIsForm) {$ENDIF} ) and (not fromSelf) then
else
begin
include(S.fAligning, oaWaitAlign);
S := S.Parent;
end;
if (S <> nil) and ToBeAlign(S) then
AlignChildrenProc_(S);
end;
{$ENDIF PAS_VERSION}
------------ Дoбавленo в 13.04:
nesco, коды соответствует стопудово.
Ты говорил, что для -DPAS_VERSION -- все нормально.
Более точная локализация получилась, когда я менял ASM/PAS только для этого кода.
Попробуй и ты: тупо ifdef меняешь на ifndef -- во второй строке показанного тобой
((в этом деле главное - не забыть вернуть обратно
))
Не пропадут артефакты - попробуем kol целиком
------------ Дoбавленo в 13.08:
Хотя если пропадут - то так не бывает...
Поиск
Друзья
Администрация