Blog

Firemonkey bitmap scaling without Aliasing on Android

by Ivan Revelli
in Android, Delphi, Programmazione
on April 11, 2016

0

With Delphi , to the Seattle version , when you scale a bitmap image to enlarge using the command “Canvas.DrawBitmap(OiginalBitmap, RectF(0, 0, OiginalBitmap.Width, OiginalBitmap.Height), RectF(0, 0, Width, Height), 1, False);” the interpolation cant be disabled. A way to eliminate the problem is to manually scale the bitmap directly creating an image pixel by pixel .…
Read more

Synaptica IOT box – Work in progress

by federico
in Uncategorized
on April 7, 2016

0

Enjoying our meal! :-)

by federico
in Posts
on March 14, 2016

0

Firebird Sql Tips… Enable or Disable all trigger via sql

by Ivan Revelli
in databases, Firebird SQL
on March 9, 2016

0

To enable and disable all triggers of a database i do two procedure : Enabling all database trigger:

create procedure SP_ENABLE_ALL_TRIGGER
as
begin
  /* Procedure Text */
   update RDB$TRIGGERS set RDB$TRIGGER_INACTIVE=0
    where RDB$TRIGGER_NAME
    in(
    select
    A.RDB$TRIGGER_NAME
    from RDB$TRIGGERS A left join RDB$CHECK_CONSTRAINTS B ON
    B.RDB$TRIGGER_NAME = A.RDB$TRIGGER_NAME where ((A.RDB$SYSTEM_FLAG = 0)
    or (A.RDB$SYSTEM_FLAG is null)) and (b.rdb$trigger_name is null)
    AND (NOT(A.RDB$TRIGGER_NAME LIKE 'RDB$%'))
    );
  suspend;
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

create procedure SP_ENABLE_ALL_TRIGGER

as

begin

/* Procedure Text */

update RDB$TRIGGERS set RDB$TRIGGER_INACTIVE=0

where RDB$TRIGGER_NAME

in(

select

A.RDB$TRIGGER_NAME

from RDB$TRIGGERS A left join RDB$CHECK_CONSTRAINTS B ON

B.RDB$TRIGGER_NAME = A.RDB$TRIGGER_NAME where ((A.RDB$SYSTEM_FLAG = 0)

or (A.RDB$SYSTEM_FLAG is null)) and (b.rdb$trigger_name is null)

AND (NOT(A.RDB$TRIGGER_NAME LIKE 'RDB$%'))

);

suspend;

end

Disabling all database trigger:

create procedure SP_DISABLE_ALL_TRIGGER
as
begin
  
   update RDB$TRIGGERS set RDB$TRIGGER_INACTIVE=1
    where RDB$TRIGGER_NAME
    in(
    select
    A.RDB$TRIGGER_NAME
    from RDB$TRIGGERS A left join RDB$CHECK_CONSTRAINTS B ON
    B.RDB$TRIGGER_NAME = A.RDB$TRIGGER_NAME where ((A.RDB$SYSTEM_FLAG = 0)
    or (A.RDB$SYSTEM_FLAG is null)) and (b.rdb$trigger_name is null)
    AND (NOT(A.RDB$TRIGGER_NAME LIKE 'RDB$%'))
    );
  suspend;
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

create procedure SP_DISABLE_ALL_TRIGGER

as